استفاده از برنامه نویسی VBA در Hyperlink

[sepahan2006]

سلام به همه دوستان
در حال ساخت پروژه ای هستم که شامل تعداد زیادی شیت می باشد که هر چند مورد با یکدیگر درارتباط مستقیم هستند، لذا برای جابجایی از این شیت ها از دستور هایپر لینک استفاده میکنم، برای زیبا سازی می خوام از دکمه های موجود در command butten استفاده کنم اما دستوری که در زمان نوشتن vba ان لازمه را نمیدونم، خواهش میکنم اگه کسی بلده برای من هم بفرسته تا بتونم پروژه ام را نهایی کنم.

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

[iranweld]

ماکروی ذیل نام شیتها را در ستون A لیست نموده و با هایپر لینک به شیت مربوطه لینک مینماید

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