لیست شیت ها بدون استفاده از vba

[jmfnima]

سلام دوستان
همونطور که میدونین با VBA خیلی راحت میشه لیستی از شیت های موجود در یک فایل رو بدست آورد. اما روشی که من میخوام بگم بدون کمک گرفتن از VBA هست
برای اینکار ابتدا یک نام تعریف میکنیم:
(برای تعریف نام از منوی formula گزینه name manager و دکمه new رو میزنیم.)
در پنجره باز شده مطابق شکل اطلاعات را وارد میکنیم

[ATTACH=CONFIG]12385[/ATTACH]

فرمولی که در شکل مشاهده میکنید بصورت زیر است:

 =SUBSTITUTE(GET.WORKBOOK(1);"["&GET.WORKBOOK(16)&"]";"")

حالا کافیه در سلول A1 فرمول زیر رو بنویسیم و درگ کنیم. با درگ کردن لیست همه شیت ها رو مشاهده میکنید.
نکته: تا جایی درگ رو ادامه بدین که به خطا برنخورید)

=INDEX(SheetNames;ROW(A1))

با سلام و تشکر از جناب اقای قاسمیان ترفند کاربردی رو ارائه نمودین
SUBSTITUTE(GET.WORKBOOK(1);"["&GET.WORKBOOK(16)&"]";"")
فقط یک سوال میشه فرمولی که برای Define Name گذاشتین رو توضیح بدین منطورم آرگومان هایی هست که برای تابع Substatuteگذاشتین .
عبارت Get.Workbook(1) جز توابع اکسل نیست

[mina javan]

ممنون - جالب بود

[amir_ts]

با سلام و کسب اجازه از استاد ارجمند جناب قاسمیان
فایل نمونه پیوست شد.(هر چقدر تلاش کردم در خود سایت نتونستم آپلود کنم.)

SheetNames_list

[fokker]

جناب قاسمیان سلام علیکم. متاسفانه نتونستم این روش رو کابردی کنم. لطفا در صورت امکان نمونه پیوست نمایید با تشکر

[mokaram]

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

دوست عزیز ایراد از نامگذاری محدوده مورد نظر شماست . بهتره قوانین نامگذاری را رعایت کنید. ( نگاهی به لینک زیر بندازید )

نامگذاری

[مجید]

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

[Amir Ghasemiyan]

سلام دوستان
همونطور که میدونین با VBA خیلی راحت میشه لیستی از شیت های موجود در یک فایل رو بدست آورد. اما روشی که من میخوام بگم بدون کمک گرفتن از VBA هست
برای اینکار ابتدا یک نام تعریف میکنیم:
(برای تعریف نام از منوی formula گزینه name manager و دکمه new رو میزنیم.)
در پنجره باز شده مطابق شکل اطلاعات را وارد میکنیم



فرمولی که در شکل مشاهده میکنید بصورت زیر است:

 =SUBSTITUTE(GET.WORKBOOK(1);"["&GET.WORKBOOK(16)&"]";"")

حالا کافیه در سلول A1 فرمول زیر رو بنویسیم و درگ کنیم. با درگ کردن لیست همه شیت ها رو مشاهده میکنید.
نکته: تا جایی درگ رو ادامه بدین که به خطا برنخورید)

=INDEX(SheetNames;ROW(A1))