پیتر یک ماکرو ایجاد کرد که همه کاربرگ های یک ورک بوک را حذف می کند، به جز یکی به نام "Index". این ماکرو به خوبی کار می کند. با این حال، پس از اجرای ماکرو، اگر یک کاربرگ جدید اضافه کند، انتظار دارد که به عنوان پیش فرض «Sheet1» نامیده شود، اما در واقع یک عدد بعدی، مانند «Sheet3» یا «Sheet4» نام گذاری می شود. پیتر متعجب است که برای بازنشانی شماره گذاری برگه به پیش فرض مورد انتظار چه چیزی لازم است.
ساده ترین راه برای تنظیم مجدد شماره گذاری برگه این است که به سادگی ورک بوک را ببندید و دوباره آن را باز کنید. با این حال، این شامل یک مرحله دستی از طرف شما است. اگر کاربرگ های جدید را از طریق ماکرو اضافه می کنید، احتمالاً نمی خواهید ورک بوک را به صورت دستی ببندید و دوباره باز کنید.
در صورت تمایل می توانید یک ماکرو ساده برای انجام فرآیند بستن و باز کردن مجدد ایجاد کنید. تا زمانی که ماکرو در ورک بوک ماکرو شخصی شما ذخیره شده باشد و نه در ورک بوکی که در حال بستن آن هستید، کار خواهد کرد.
Sub Reopen()
Dim wb As Excel.Workbook
Dim sPath As String
Set wb = ThisWorkbook
sPath = wb.FullName
Application.OnTime Now + TimeValue("00:00:01"), _
Application.Workbooks.Open(sPth)
wb.Close (True)
End Sub
ماکرو نام ورک بوک فعلی را تعیین می کند و سپس یک رویداد OnTime را تنظیم می کند تا ورک بوک را 1 ثانیه در آینده باز کند. با این حال، در طول این 1 ثانیه، ورک بوک بسته و ذخیره می شود، که به آن اجازه می دهد دوباره با موفقیت باز شود.
در صورت تمایل می توانید برگه های جدید خود را از طریق ماکرو نیز اضافه کنید. ماکرو کوتاه زیر یک کاربرگ اضافه می کند و بلافاصله آن را به نام مورد نظر تغییر نام می دهد.
Sub AddWs()
Worksheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Sheet" & Sheets.Count - 1
End Sub
شما می خواهید با این راه حل ها بازی کنید و پیدا کنید که کدام یک برای نیازهای شما بهترین کار را دارد، به خصوص اگر می خواهید راه حل را با یک ماکرو موجود ادغام کنید.
