میانبر برای حرکت بین دو کاربرگ در اکسل

Question

با استفاده از Ctrl+Pg Up و Ctrl+Pg Down می‌توانید به راحتی بین کاربرگ‌های یک کتاب کار حرکت کنید . اگر بخواهید از میانبر برای جابجایی بین دو کاربرگ خاص و غیر همسایه مانند Sheet1 و Sheet4 استفاده کنید، چه؟ در این مورد، بهتر است از یک ماکرو برای انجام پرش به اطراف استفاده کنید.

در صورت تمایل، می توانید دو ماکرو را تعریف کنید که پرش را انجام می دهند. یک ماکرو به Sheet1 و دیگری به Sheet4 می‌پرد. ایجاد این موارد با استفاده از ضبط کننده ماکرو به اندازه کافی آسان است و می توانید یک کلید میانبر به هر یک از ماکروها اختصاص دهید.

اگر به دنبال یک میانبر هستید که بین دو کاربرگ جابجا شود، می توانید از یک ماکرو مانند زیر استفاده کنید:

Sub JumpBetween1()
    If ActiveSheet.Name = "Sheet1" Then
        Worksheets("Sheet4").Activate
    Else
        Worksheets("Sheet1").Activate
    End If
End Sub

ماکرو به سادگی بررسی می کند که کدام کاربرگ در حال حاضر نمایش داده می شود. اگر Sheet1 باشد، Sheet4 نمایش داده می شود. در تمام موارد دیگر، Sheet1 نمایش داده می شود. این مفید است، اما به این معنی است که اگر در حال حاضر Sheet2 را نمایش داده اید، میانبر همیشه Sheet1 را نشان می دهد. ممکن است نخواهید ماکرو کاری انجام دهد مگر اینکه Sheet1 یا Sheet4 نمایش داده شود. در این صورت، باید از این تغییر ماکرو استفاده کنید:

Sub JumpBetween2()
    If ActiveSheet.Name = "Sheet1" Then
        Sheets("Sheet4").Activate
    ElseIf ActiveSheet.Name = "Sheet4" Then
        Sheets("Sheet1").Activate
    End If
End Sub

توجه داشته باشید که تنها تفاوت بین این دو ماکرو این است که تغییر دوم از ElseIf برای بررسی نمایش Sheet4 استفاده می کند. این بدان معناست که اگر هر کاربرگ دیگری غیر از Sheet1 یا Sheet4 نمایش داده شود، ماکرو کاری انجام نمی دهد.