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

[vahid950]

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

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

سلام
دوستان کسی میدونه چه جوری میشه بدون استفاده از کد نویسی در محیط وی بی اسامی شیتهای یک فایل اکسل رو به سلولهای اکسل منتقل کنیم
مثلا فرض کنید فایلی دارید با تعداد صفحات بسیار زیاد و بدنبال این هستیم یک صفحه به عنوان فهرست نام صفحات داشته باشیم
ممنون
با سلام ، دوست عزیز شما می بایست از Hyperlink استفاده کنید . به فایل زیر نگاه کنید ؛
با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ (http://forum.exceliran.com/member.php?u=10018)

[vahid950]

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

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

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

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

2193

با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ (http://forum.exceliran.com/member.php?u=10018)

[vahid950]

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

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

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

[shabakeha]

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

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

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

با سلام.
میشه برای هر دو روش مثالی بزنید.
باتشکر.
با سلام ، دو فایل بسیار زیبا از آقای وطن پرست (http://forum.exceliran.com/member.php?u=2445) در اینحا (http://forum.exceliran.com/showthread.php?t=1051&p=16561&viewfull=1#post16561) و نیز آقا نیمای (http://forum.exceliran.com/member.php?u=1784) عزیز در اینجا (http://forum.exceliran.com/showthread.php?t=1051&p=16572&viewfull=1#post16572) برای ایجاد منو با استفاده از vba ارائه شده که می تونید به اون مراجعه کنید .
با سپاس
ɦɛʂɑɱ ɓɑɦɾɑɳɨ (http://forum.exceliran.com/member.php?u=10018)

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

با درود
میبینم شب از نیمه گذشته و من طبق معمول قدیما بیدارم. خوب بریم سر کار شما دوست عزیز . اینکه با 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 اين قابليت رو دارن كه بدون ماژول و كدنويسي وارد برناممون بشن؟

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

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

[misammisam]

با درود
میبینم شب از نیمه گذشته و من طبق معمول قدیما بیدارم. خوب بریم سر کار شما دوست عزیز . اینکه با 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 به بالا دارین استفاده میکنین فایل رو به صورت ماکرویی ذخیره کنین



اين خيلي جالب بود ، الان من هنگ كردم اين چطوري كار ميكنه !!!!؟؟؟؟
يكي زحمت بكشه يه توضيح بده درباره كلش ، مخصوصا رو اين قسمتش
,FIND("]",
بعدش ، همينو ميشه كاري كرد كه لينكشو به شيتها هم بده ، خودم با vb درستش كردم

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Integer
For Each sh In Worksheets
i = i + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 1), Address:="", SubAddress:="'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
Next
End Sub


ولي بدون كد نويسي در vb هم ميخوام ببينم ميشه .

تشكر

[alirezaariana]

سلام
ضمن تشکر از راهنمایی شما
من دوسالی هست از این فرمول استفاده کردم خیلی عالی بود ولی الان آفیس رو آپدیت کردم در آفیس 2019 قسمت Sheetnames ارور میده