با سلام
میتوانید شیت اول را به نام شیت ها اختصاص داده و با هایپر لینک به شیت مورد نظر لینک کنید
در فایل پیوست با باز شدن فایل نام شیت ها لیست و هایپر لینک به شیت میگردد.
کد PHP:
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
علاقه مندی ها (Bookmarks)