کاربرد تابع INDIRECT

[mostafap4]

ممنونم جناب پارسا
فقط سوال اولم را جواب ندادید؟ آیا این تابع indirect فقط وقتی کار میکنه که اون یکی فایل هم باز باشه؟

[Ali Parsaei]

ممنونم جناب پارسا
فقط سوال اولم را جواب ندادید؟ آیا این تابع indirect فقط وقتی کار میکنه که اون یکی فایل هم باز باشه؟

بله ظاهرا" اينطور است

[mostafap4]

تابع دیگری سراغ دارید که این کاری که نمونه اش را فرستادم را بتونه انجام بدهد؟
خیلی سپاسگزارم استاد ممنونم از راهنماییتون

[Ali Parsaei]

تابع دیگری سراغ دارید که این کاری که نمونه اش را فرستادم را بتونه انجام بدهد؟
خیلی سپاسگزارم استاد ممنونم از راهنماییتون

اگر شيتي که در آن اطلاعات را فراخوان مي کنيد با بقيه شيت ها همه در يک فايل بود کار خيلي راحت بود، مثال آن در آدرس:
نمایش محتوای یک شیت در شیت دیگر
بحث شده، ولي به اين طريق فعلا" چيزي به ذهنم نمي رسد مگر اينکه از ماکروها بخواهيد استفاده کنيد.
متاسفانه ظاهرا" تابع INDIRECT در صورت بسته بودن فايل دوم کار نمي کند، البته بعضي توابع ديگر مانند VLOOKUP در موارد ارجاع به فايل ديگر در صورت بسته بودن فايل دوم هم به خوبي کار مي کنند (نهايت اينکه سوالي در مورد به روز رساني بکنند). شايد بتوان تابع يا راه حلي پيدا کرد ولي من فعلا" چيزي به ذهنم نمي رسد.
ولي حدث مي زنم بقيه دوستان راه حل هاي مناسبي سراغ خواهند داشت.

[لیلا11]

سلام.من یک فایل اکسلی دارم که چندتا شیت داره و توی هرکدوم یک ستون شماره تلفنها و یه سری اطلاعات دیگست البته تعداد شماره هام خیلی زیاده.این شیتها تو بعضی شماره ها مشترکند.من میخوام همه شماره ها تو یک ستون یک شیت جمع بشه بدون اینکه تکراری باشند و اطلاعات موجود در جلوی هریک از شماره ها در هر کدام از شیتها تو شیت اصلی فراخوانی بشه.لطفا کمکم کنید.

[generalsamad]

با سلام
یک فایل نمونه قرار دادم
البته کدش رو دوستان نوشتن و من بعضی جاهاش رو ویرایش کردم و چند خط کد اضافه کرد

Private Sub CommandButton1_Click()
With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
If Sheet1.Range("A2").Value <> "" Then
Dim LR As Long
LR = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Sheet1.Range("A2:D" & LR).ClearContents
End If


Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.CodeName <> "Sheet1" Then
  With ws
    .Range("A2:D" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheet1.Cells(Rows.Count, "A").End(xlUp).Offset(1)
  End With
  End If
Next ws

Sheet1.Activate
With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
Columns("A:D").Select
    ActiveSheet.Range("$A$1:$D$20000").RemoveDuplicates Columns:=Array(1, 2, 3, 4), _
        Header:=xlNo
    Range("A1").Select
End Sub 

فایل ضمیمه کردید

[لیلا11]

سلام .میشه یکی به سوال من جواب بده.

[generalsamad]

مگه جواب رو نگرفتید؟

[لیلا11]

اگه میشه یکم در مورد جواب توضیح بدین.حجم فتایل من در حدود 25meg امکانش هست براتون بفرستم؟

[generalsamad]

فایلتون رو با winrar فشرده کنید اگه حجمش کم شد و امکانش بود همینجا آپلود کنید
یا نیازی نیست فایل اصلیتون رو بفرست
اگه تعداد شیت هاتون زیاده از شیت هاتون حذف کنید
از سطرها هم همینطور که حجم فایلتون کم بشه
که ساختار جدولتون رو ببینیم
بعد بر اساس اون توی کد تغییرات بدیم

[لیلا11]

براتون یه فایل فرستادم با دوتا شیت و یه تعداد کمی از سلول ها .میخوام همه ی شماره ها شیتها در یک شیت بدون تکرار بیاد و مقادیر مقابلشونم از همون فراخوانی بشه

[generalsamad]

با سلام
این فایل رو ببینید

جواب رو توی هر شیتی که میخواید قرار بدید نام اون شیت رو توی کد باید تغییر بدید
نسبت به فایل ارسالی این قسمت از کد

If ws.CodeName <> "Sheet1" Then 

به این کد تغییر کرد

If ws.CodeName <> "Sheet3" Then 

اگه جواب رو نگرفتید بفرمائید
فایل ضمیمه گردید

[لیلا11]

خیلی ممنون .لطف کردین

[لیلا11]

فقط یه سوال دیگه اینکه حالا اگه به جواب رسیدمو برای هر شماره ای مقدارشو بدست آوردم لازمه که برای هر شماره ای به تعداد مقادیرش که عدد صحیح مثبتی هست کدی تعریف کنم مثلا برای کدی اومده 5 باید 5 تا کد به اون شماره اختصاص بدم.راه حلی براش دارین؟؟

[generalsamad]

متوجه منظورتو نشدم
اگه خواستتون رو به همراه فایل نمونه بیان کنید بهتر راهنمائی میشید