انتقال نام شیت ها به سلول

[vahid950]

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[حسام بحرانی]

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

با سلام ، دوست عزیز شما می بایست از Hyperlink استفاده کنید . به فایل زیر نگاه کنید ؛
با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ

[vahid950]

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

[حسام بحرانی]

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

سلام ، لطفاً به عکس زیر نگاه کنید ؛



با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ

[vahid950]

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

[امين اسماعيلي]

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

[shabakeha]

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

با سلام.
میشه برای هر دو روش مثالی بزنید.
باتشکر.

[حسام بحرانی]

با سلام.
میشه برای هر دو روش مثالی بزنید.
باتشکر.

با سلام ، دو فایل بسیار زیبا از آقای وطن پرست در اینحا و نیز آقا نیمای عزیز در اینجا برای ایجاد منو با استفاده از vba ارائه شده که می تونید به اون مراجعه کنید .
با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ

[امين اسماعيلي]

با درود
میبینم شب از نیمه گذشته و من طبق معمول قدیما بیدارم. خوب بریم سر کار شما دوست عزیز . اینکه با vba انجام بشه که قبلا انجام شده . لینک رو دوستان دادن. نمیدونم کجاخودمم قبلا به سه طریق تو شیت،تو کمبو و لیست باکس گذاشته بودم. اما بریم سر تابع
اگر فقط اسم هر شیتی رو تو خود شیت میخواستی که اونم انجام شده با تابع . اما ما الان سر کارمون با تمام شیت ها توی یه شیته . خوب بسه زیاد حرف زدم بریم سر اصل مطلب :

1- بر قسمت formulas-Define naeme
بعدش
در قسمت Name بنویس SheetNames
و در قسمت refers to : فرمول زیر رو بنویس

=GET.WORKBOOK(1)&T(NOW())

بعدش در سل A1 فرمول زیر رو بنویس و درگ کن تا پایین تا زمانی که سل خالی ظاهر بشه(یعنی تمام شدن نام شیت ها)

=IFERROR(INDEX(MID(SheetNames,FIND("]",SheetNames)+1,255),ROWS(A$1:A1)),"")

دست آخر یادتون نره که اگر از اکسل 2007 به بالا دارین استفاده میکنین فایل رو به صورت ماکرویی ذخیره کنین

[Amir Ghasemiyan]

با درود
میبینم شب از نیمه گذشته و من طبق معمول قدیما بیدارم. خوب بریم سر کار شما دوست عزیز . اینکه با vba انجام بشه که قبلا انجام شده . لینک رو دوستان دادن. نمیدونم کجاخودمم قبلا به سه طریق تو شیت،تو کمبو و لیست باکس گذاشته بودم. اما بریم سر تابع
اگر فقط اسم هر شیتی رو تو خود شیت میخواستی که اونم انجام شده با تابع . اما ما الان سر کارمون با تمام شیت ها توی یه شیته . خوب بسه زیاد حرف زدم بریم سر اصل مطلب :

1- بر قسمت formulas-Define naeme
بعدش
در قسمت Name بنویس SheetNames
و در قسمت refers to : فرمول زیر رو بنویس

=GET.WORKBOOK(1)&T(NOW())

بعدش در سل A1 فرمول زیر رو بنویس و درگ کن تا پایین تا زمانی که سل خالی ظاهر بشه(یعنی تمام شدن نام شیت ها)

=IFERROR(INDEX(MID(SheetNames,FIND("]",SheetNames)+1,255),ROWS(A$1:A1)),"")

دست آخر یادتون نره که اگر از اکسل 2007 به بالا دارین استفاده میکنین فایل رو به صورت ماکرویی ذخیره کنین

ممنون امين جان آموزش خيلي خوبي بود. لذت بردم
ميشه در مورد define name يكم بيشتر توضيح بدي؟
اين تابعي كه استفاده كردي از توابع vba هست. چطور ميشه كه از طريق تعريف نام قابل اجرا شده؟
اصلا چه كدهايي در vba اين قابليت رو دارن كه بدون ماژول و كدنويسي وارد برناممون بشن؟