برگه های کاربرگ انجماد در اکسل

Question

Jonathan یک کتاب کار دارد که شامل بیش از پنجاه کاربرگ است که یکی از آنها "Main" نام دارد و به عنوان اولین برگه در کتاب کار قرار دارد. او دائماً مجبور است به کاربرگ "اصلی" برگردد. برای نمایش کاربرگ، او باید هر بار بر روی یک برگه کلیک کند یا تا آخر به سمت چپ برگه ها حرکت کند (با کلیک بر روی کنترل در سمت چپ برگه ها) و سپس برگه "اصلی" را انتخاب کند. . این آخرین روش ساده ترین است، اما همچنان زمان بر است. جاناتان به این فکر می‌کند که آیا راهی وجود دارد، مانند فریز کردن یک صفحه، برای مسدود کردن برگه کاربرگ. او دوست دارد که برگه "اصلی" همیشه قابل مشاهده باشد و برگه های سمت راست آن پیمایش کنند.

پاسخ کوتاه این است که خیر، راهی در اکسل برای مسدود کردن برگه های کاربرگ وجود ندارد. همانطور که گفته شد، چندین کار وجود دارد که می توانید برای به دست آوردن نتایج مورد نظر خود انجام دهید.

یکی از راه حل های ممکن استفاده از هایپرلینک ها در کاربرگ های خود است. بسیاری از افراد سیستمی را راه اندازی می کنند که در آن کاربرگ اصلی آنها به عنوان فهرستی از مطالب برای سایر کاربرگ های کتاب کار عمل می کند. هر کاربرگ از کاربرگ اصلی پیوند داده می‌شود و هر کاربرگ غیراصلی یک ابرپیوند به کاربرگ اصلی دارد. بنابراین آنها می توانند خیلی سریع بین کاربرگ های اصلی و فرعی فقط با کلیک بر روی لینک ها حرکت کنند.

گزینه دیگر این است که به یاد داشته باشید که می توانید روی کنترل های برگه کاربرگ در سمت چپ برگه های پایین پنجره اکسل کلیک راست کنید. هنگامی که این کار را انجام می دهید، لیستی از نام پانزده کاربرگ اول دریافت می کنید و می توانید به راحتی کاربرگ "اصلی" را انتخاب کنید.

گزینه دیگر این است که یک ماکرو بسیار ساده راه اندازی کنید که همیشه کاربرگ "Main" را نمایش دهد:

Sub GoToMain()
    Sheets("Main").Select
End Sub

می توانید این ماکرو را به یک کلید میانبر اختصاص دهید یا آن را به نوار ابزار دسترسی سریع اضافه کنید تا بتوانید خیلی سریع از آن استفاده کنید. هنگام اجرا، کاربرگ با نام "Main" همیشه نمایش داده می شود.

اگر می‌خواهید همیشه برگه «اصلی» در قسمت برگه‌ها قابل مشاهده باشد، باید به یک ماکرو متوسل شوید که مرتباً برگه‌ها را تغییر می‌دهد تا «اصلی» همیشه قابل مشاهده باشد.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim sc As Long  count of sheets
    Dim NewPos As Long  index of serlected sheet

    Application.EnableEvents = False
    Application.ScreenUpdating = False

    If ActiveSheet.Index <> 1 Then
        sc = Sheets.Count
        NewPos = ActiveSheet.Index
        For i = 2 To NewPos - 1
            Sheets(2).Move After:=Sheets(sc)
        Next i
        Sheets(1).Activate
        Sheets(2).Activate
    End If

    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

این ماکرو باید بخشی از شی ThisWorkbook باشد، بنابراین مطمئن شوید که آن را در جای مناسب در ویرایشگر VBA اضافه کرده اید. ساده ترین راه برای انجام این کار این است که مراحل زیر را دنبال کنید:

1. کلیدهای Alt+F11 را فشار دهید تا ویرایشگر ویژوال بیسیک نمایش داده شود.
2. با استفاده از پنجره Project، روی شی ThisWorkbook دوبار کلیک کنید. (مطمئن شوید که روی شی ThisWorkbook مرتبط با کتاب کار که می‌خواهید ماکرو را در آن اضافه کنید، دوبار کلیک کنید.) یک پنجره کد برای شی ThisWorkbook ظاهر می‌شود.
3. کد بالا را در پنجره کد قرار دهید.

ماکرو همیشه کاربرگ ها را در موقعیت 2 از میان تعداد برگه هایی که دارید جابه جا می کند تا کاربرگ مورد نظر در موقعیت دوم قرار گیرد. این بدان معنی است که کاربرگ در موقعیت اول (Main) هرگز حرکت نمی کند.