دو سطر کردن محل عنوان شیت ها برای نمایش نام شیت ها

[Pars.hamed]

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

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

[iranweld]

با سلام

میتوانید شیت اول را به نام شیت ها اختصاص داده و با هایپر لینک به شیت مورد نظر لینک کنید
در فایل پیوست با باز شدن فایل نام شیت ها لیست و هایپر لینک به شیت میگردد.

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 2

k = Cells(Rows.Count, "A").End(xlUp).Row

ActiveSheet.Range("A1:A" & k).Clear
ActiveSheet.Range("A1") = "sheets Name"
For Each ws In Worksheets

If ws.Name <> ActiveSheet.Name Then

ActiveSheet.Cells(x, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name

x = x + 1

End If

Next ws

End Sub 

[Pars.hamed]

با سلام

میتوانید شیت اول را به نام شیت ها اختصاص داده و با هایپر لینک به شیت مورد نظر لینک کنید
در فایل پیوست با باز شدن فایل نام شیت ها لیست و هایپر لینک به شیت میگردد.

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 2

k = Cells(Rows.Count, "A").End(xlUp).Row

ActiveSheet.Range("A1:A" & k).Clear
ActiveSheet.Range("A1") = "sheets Name"
For Each ws In Worksheets

If ws.Name <> ActiveSheet.Name Then

ActiveSheet.Cells(x, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, Address:="", SubAddress:= _
ws.Name & "!A1", TextToDisplay:=ws.Name

x = x + 1

End If

Next ws

End Sub 

با تشکر از وقتی که برای جواب به این پست گذاشتید.
اما این راه و می دونم

اما دقیقا منظورم اینه که اون پایین رو دو سطر کنم که اسم همه شیت ها مشخص باشه .

[majid_mx4]

با سلام

دوست عزیز
شما میتوانید بر روی فلش های جابجایی صفحات رایت کلیک کنید خود اکسل لیستی از شیتهای مذکور بشما میدهد و اگر این لیست تمامی شیتها را در بر نگیرد میتوانید از گزینه More Sheets استفاده نمایید.

امیدوارم بتواند مشکل جنابعالی را حل نمایید.

موفق باشید میر

[smmehri]

سلام
منظور چنین چیزیه ولی نه به این وسعت فقط دو ردیفه شدن ردیف شیت ها
https://www.formuladesk.com/formuladesk-navigator

[saed.rasa]

سلام،
تشکر بابت ارسال موضوع مفید
سیستم مورد نیاز: ویندوز ۷ به بالا- اکسل ۲۰۱۳ به بالا