چگونگی ایجاد لیست شیت ها در اکسل با لینک

با سلام خدمت کاربران عزیز آی تی سواد

بسیاری از کاربران زمان زیادی را صرف ایجاد شیتی حاوی لیست شیت ها در اکسل می‌کنند .

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

علاوه بر این، یک هایپر لینک در هر شیت وجود دارد که شما را به شیت خلاصه بر می گرداند، مانند تصویر زیر:

لیست شیت ها در اکسل با لینک

۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .

۲. در پنجره Microsoft Visual Basic for Applications بر رویInsert > Module کلیک کنید و سپس از زیر کد VBA را کپی و در درون پنجره ماژول قراردهید .

Sub CreateSummary()
Dim x As Worksheet
Dim Counter As Integer
Counter = 0
For Each x In Worksheets
Counter = Counter + 1
If Counter = 1 Then GoTo Donothing
    With ActiveCell
        .Value = x.Name
        .Hyperlinks.Add ActiveCell, "", x.Name & "!A1", TextToDisplay:=x.Name, ScreenTip:="Click here to go to the Worksheet"
        With Worksheets(Counter)
            .Range("A1").Value = "Back to " & ActiveSheet.Name
            .Hyperlinks.Add Sheets(x.Name).Range("A1"), "", _
            "'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _
            ScreenTip:="Return to " & ActiveSheet.Name
        End With
    End With
ActiveCell.Offset(1, 0).Select
Donothing:
Next x
End Sub

Sub CreateSummary()

Dim x As Worksheet

Dim Counter As Integer

Counter = 0

For Each x In Worksheets

Counter = Counter + 1

If Counter = 1 Then GoTo Donothing

With ActiveCell

.Value = x.Name

.Hyperlinks.Add ActiveCell, "", x.Name & "!A1", TextToDisplay:=x.Name, ScreenTip:="Click here to go to the Worksheet"

With Worksheets(Counter)

.Range("A1").Value = "Back to " & ActiveSheet.Name

.Hyperlinks.Add Sheets(x.Name).Range("A1"), "", _

"'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _

ScreenTip:="Return to " & ActiveSheet.Name

End With

ActiveCell.Offset(1, 0).Select

Donothing:

Next x

End Sub

۳.سپس بر روی آیکن اجرای ماکرو کلیک کنید.

۴ . پنجره ماکرو ها باز می شود از لیست ماکرو ها ، ماکروی مورد نظر را انتخاب کنید و بر روی run کلیک کنید.

راه دیگر برای اجرای ماکرو , ایجاد یک دکمه و اختصاص دادن ماکرو به آن است .

روش انجام این کار به شرح ذیل است:

۱. یک شکل را در شیت وارد کنید .

۲. روی آن راست کلیک کنید و Assign Macro را انتخاب کنید .

۳. در پنجره Assign Macro ، ماکرویی را انتخاب کنید که می‌خواهید به شکل اختصاص داده شود و روی OK کلیک کنید.

حال ، می‌توانید به سادگی روی شکل کلیک کنید تا ماکرو را اجرا کنید.

نکات:

۱. من سلول A۱ را در هر برگه کد گذاری کرده‌ام ، که برای این است که شما را به صفحه خلاصه برگرداند .

اطمینان حاصل کنید که اگر چیزی در سلول A۱ در هر شیت دارید آن را تغییر دهید .

۲. این کد را زمانی اجرا کنید که در شیت خلاصه قرار دارید.

ترجمه شده از سایت www.extendoffice.com

ممنون از همراهی شما کاربران عزیز آی تی سواد

اشتراک گذاری

بیشتر

با سلام خدمت کاربران عزیز آی تی سواد

لیست شیت ها در اکسل با لینک

ممنون از همراهی شما کاربران عزیز آی تی سواد

دیدگاهتان را بنویسید لغو پاسخ