هنگامی که یک ورک بوک جدید را شروع می کنید، بسیار معمول است که هر کاربرگ را بر اساس ماه متفاوتی از سال نامگذاری کنید. اگر این کار را کمی انجام دهید، می دانید که تغییر نام هر کاربرگ به نوبه خود دقیقاً به همان چیزی که نیاز دارید می تواند خسته کننده باشد.
ماکرو زیر برای کمک به این شرایط ایجاد شده است. نام کاربرگ ها را در ورک بوک شما بررسی می کند و اگر با حروف «ورق» شروع می شوند، نام آن ها را به ماه های سال تغییر می دهد. اگر برگه های کافی در ورک بوک وجود نداشته باشد، در صورت لزوم برای هر ماه از سال برگه هایی اضافه می کند.
Sub DoMonths()
Dim J As Integer
Dim K As Integer
For J = 1 To 12
If J
آخرین مرحله در ماکرو این است که کاربرگ ها را به ترتیب مناسب برای ماه های 1 تا 12 قرار می دهد. نتیجه این است که اگر کاربرگ دیگری در ورک بوک باقی مانده باشد (به عبارت دیگر، برخی از کاربرگ ها را داشتید که با شروع نشده بودند. حروف "Sheet" و سپس آن کاربرگ ها پس از 12 ماه در انتهای ورک بوک قرار می گیرند.
توجه داشته باشید که ماکرو از تابع MonthName استفاده می کند که در VBA تعبیه شده است. نام کامل ماه را که با شماره (1 تا 12) به آن ارجاع داده شده است، برمی گرداند. (اگر سعی کنید آن را با عددی خارج از آن محدوده استفاده کنید، یک خطا برمی گرداند.)
