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

Question

اکسل به شما این امکان را می دهد که بسته به مقدار حافظه ای که در سیستم خود دارید، چندین کتاب کار را همزمان باز کنید. برای برخی افراد غیرعادی نیست که ده، پانزده، بیست یا بیشتر کتاب کار را به یکباره باز کنند.

به طور سنتی، روش معمولی که برای جابجایی از یک کتاب کار به کتاب دیگر استفاده می‌شود، نمایش زبانه View نوار و استفاده از ابزار Switch Windows برای انتخاب کتاب کار مورد نظر است. اگر بیش از 9 کتاب کار باز باشد و روی ابزار Switch Windows کلیک کنید، اکسل گزینه ای را نشان می دهد که می گوید "More Windows". روی گزینه کلیک کنید و می توانید نمایشی از تمام کتاب های باز شده را مشاهده کنید. انتخاب یک کتاب کار از این لیست به نمایش آن کتاب کار ختم می شود.

اگر به طور معمول با بسیاری از کتاب‌های باز کار می‌کنید، کلیک کردن مکرر بر روی ابزار Switch Windows، کلیک بر روی More Windows و سپس انتخاب کتاب مورد نظر برای مشاهده، می‌تواند برای شما دردسرساز باشد. اگر کتاب‌های کار همه فهرست شده باشند و بتوانید از لیست انتخاب کنید، بسیار ساده‌تر خواهد بود. متأسفانه، اکسل به شما امکان نمایش بیش از 9 کتاب کار را با استفاده از ابزار Switch Windows نمی دهد. (به نظر می رسد که نه یک عدد نسبتاً دلخواه باشد، اما مایکروسافت مجبور شد در جایی حدی را تعیین کند. Nine به اندازه هر محدودیت دلخواه دیگر خوب است.) با این حال، راه حل هایی وجود دارد که می توانید از آنها استفاده کنید.

اولین راه حل، استفاده از قابلیت تعویض وظیفه اکسل است. کافی است کلید Alt را نگه دارید، همانطور که مکرراً کلید Tab را فشار می دهید تا از یک پنجره به پنجره دیگر بروید. وقتی پنجره کار مورد نظر انتخاب شد، کلید Alt را رها کنید و کتاب کار واقعی نمایش داده می شود.

همچنین می‌توانید ماکروها را برای نمایش فهرستی از کتاب‌های کار توسعه دهید، به شما اجازه انتخاب یکی از آن‌ها و سپس جابه‌جایی بین آن‌ها را بدهید. کارآمدترین راه برای انجام این کار ایجاد یک UserForm و پیوستن چندین ماکرو به آن است. این مراحل را دنبال کنید:

Private Sub ListBox1_Click()
    Windows(ListBox1.Value).Activate
    Unload Me
End Sub

Private Sub UserForm_Activate()
    Dim wkb As Workbook

    For Each wkb In Workbooks
        If Windows(wkb.Name).Visible Then _
          ListBox1.AddItem wkb.Name
    Next
End Sub

Sub AllWindows()
    UserForm1.Show
End Sub

1. مطمئن شوید که یک کتاب کار شخصی ایجاد کرده اید که حاوی ماکروهای رایج شما باشد. (چگونگی انجام این کار در شماره های دیگر ExcelTips مورد بحث قرار گرفته است.)
2. Alt+F11 را فشار دهید تا ویرایشگر VBA نمایش داده شود.
3. مطمئن شوید که کتاب کار شخصی در پنجره Project انتخاب شده است. (گوشه سمت چپ بالای ویرایشگر VBA.)
4. از منوی Insert گزینه UserForm را انتخاب کنید. یک UserForm جدید در مرکز صفحه نمایش شما ظاهر می شود.
5. با استفاده از جعبه ابزار در سمت چپ ویرایشگر VBA، یک کنترل ListBox را در UserForm قرار دهید. این کنترل لیستی از Workbook های باز را نگه می دارد. (با خیال راحت لیست باکس را به اندازه دلخواه بزرگ یا کوچک کنید.)
6. سایر موارد دلخواه مانند متن توضیحات و غیره را به UserForm اضافه کنید.
7. اندازه UserForm را به اندازه ای که می خواهید نمایش داده شود تغییر دهید.
8. روی UserForm (نه در ListBox) کلیک راست کرده و از منوی Context گزینه View Code را انتخاب کنید. سپس پنجره کد برای UserForm را مشاهده می کنید.
9. هر چیزی که در پنجره کد است را با کد زیر جایگزین کنید:
10. ماژول را از منوی Insert انتخاب کنید. یک پنجره کد برای ماژول جدید ظاهر می شود.
11. کد زیر را به پنجره کد ماژول ها اضافه کنید:
12. ویرایشگر VBA را ببندید و با فشار دادن Alt+Q به اکسل بازگردید.

پس از ورود به اکسل، می توانید ماکرو AllWindows را به نوار ابزار دسترسی سریع یا به یک کلید میانبر اختصاص دهید. هنگامی که روی دکمه نوار ابزار یا کلید میانبر کلیک می کنید، UserForm نمایش داده می شود که تمام کتاب های کاری باز را نشان می دهد. سپس می توانید یکی را انتخاب کنید و UserForm ناپدید می شود و کتاب کار انتخاب شده نمایش داده می شود.