چاپ لیست کاربرگ

Question

در کتاب های کاری پیچیده که حاوی کاربرگ های زیادی هستند، نیاز به فهرستی از کاربرگ های مختلف غیرعادی نیست. هنگامی که لیست را در اختیار دارید، می توانید آن را چاپ کنید یا به روش دیگری از آن استفاده کنید، مانند ایجاد فهرست مطالب برای ورک بوک خود. ماکرو زیر، GetSheets، به سرعت نام کاربرگ ها را در ورک بوک فعلی بازیابی می کند. آنها را در کاربرگ فعلی قرار می دهد، از سلول A1 شروع می شود و سپس به سمت پایین کار می کند.

Sub GetSheets()
    Dim j As Integer
    Dim NumSheets As Integer

    NumSheets = Sheets.Count
    For j = 1 To NumSheets
        Cells(j, 1) = Sheets(j).Name
    Next j
End Sub

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

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