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

Excel VBA: در صورت عدم وجود برگه اضافه کنید. (مشاهده سریع)

6341

برای اعمال کد بالا در ماژول جدیدی وارد کنید.

دانلود کتاب تمرین تمرین

می‌توانید کتاب تمرینی ما را به صورت رایگان از اینجا دانلود کنید!

مراحل اعمال کد VBA برای افزودن برگه در اکسل اگر وجود ندارد

بگویید، شما یک کتاب کار حاوی 4 کاربرگ به نام های ژانویه، فوریه، مارس و آوریل دارید. هر برگه حاوی گزارش فروش ماه بعد است. اکنون، باید چند برگه را در کتاب کار پیدا کنید و اگر برگه وجود ندارد، آن را اضافه کنید. برای انجام این کار می توانید دستورالعمل های گام به گام زیر را دنبال کنید.

📌 مرحله 1: یک ماژول جدید وارد کنید

ابتدا، باید درج کنید یک ماژول برای نوشتن کد VBA.

• برای انجام این کار، در همان ابتدا، به برنامه برنامه >> Visual Basic بروید.

• در نتیجه، Microsoft Visualپنجره Basic for Applications ظاهر می شود.
• سپس، به درج برگه >> Module ابزار بروید.

بنابراین، یک ماژول جدید به نام Module1 ایجاد شده است.

بیشتر بخوانید: نحوه افزودن برگه با نام در Excel VBA (6 روش آسان)

خواندنی های مشابه

• ایجاد Workbook جدید و ذخیره با استفاده از VBA در Excel
• Excel VBA: ایجاد یک Workbook جدید و نامگذاری آن (6 مثال)
• نحوه ایجاد برگه جدید از الگو با استفاده از ماکرو در اکسل

📌 مرحله 2: کد VBA مورد نیاز را بنویسید و ذخیره کنید

اکنون، باید کد را در داخل ماژول بنویسید و ذخیره کنید.

• در برای انجام این کار، روی گزینه Module1 کلیک کنید و کد زیر را در پنجره کد بنویسید.

12425274

• به عنوان یک در نتیجه، پنجره کد مانند زیر خواهد بود.

🔎 توضیح کد:

♣ بخش 1:

6157

در این قسمت نام ماکرو و نام متغیر را اعلام کرده ایم. es.

♣ بخش 2:

8828

در این قسمت، یک کادر ورودی ایجاد کرده ایم. از طریق این کادر ورودی، می‌توانیم ورودی نام فایلی را که باید پیدا کنیم، بگیریم.

♣ بخش 3:

3956

در این قسمت بررسی می کنیم که آیا برگه مورد نیاز در کتاب کار وجود دارد یا خیر. در غیر این صورت، برگه مورد نیاز را ایجاد می‌کند و پیامی درباره این تغییر به ما نشان می‌دهد.

♣ بخش 4:

3434

در این قسمت، اگر برگه مورد نیاز از قبل در کتاب کار وجود داشته باشد، با نتیجه کار کرده ایم. در این سناریو، جعبه پیام دیگری ظاهر می شود که به شما اطلاع می دهد که این برگه وجود دارد. علاوه بر این، در این قسمت، کد را به درستی پایان می دهیم.

• بعد از آن، Ctrl + S را فشار دهید.

• متعاقباً، یک پنجره Microsoft Excel ظاهر می شود. روی دکمه خیر کلیک کنید.

• در نتیجه، پنجره ذخیره به عنوان ظاهر می شود.
• در ادامه، گزینه Save as type: را با قالب .xlsm انتخاب کنید. سپس بر روی دکمه ذخیره کلیک کنید.

بنابراین، کد مورد نیاز خود را نوشته و ذخیره کرده اید.

توجه:

شما باید کتاب کار Excel را در قالب xlsm. ذخیره کنید. در غیر این صورت، ماکرو فعال نخواهد شد و کد کار نخواهد کرد.

بیشتر بخوانید: Excel VBA برای افزودن برگه با نام متغیر (5 مثال ایده آل)

📌 مرحله 3: کد را اجرا کنید

اکنون، باید کد را اجرا کرده و نتایج را بررسی کنید.

• برای انجام این کار، ابتدا و مهمتر از همه، روی روی نماد Run در پنجره Microsoft Visual Basic for Applications .

• در نتیجه، پنجره Macros ظاهر می شود.
• سپس، ماکرو AddSheetIfNotExist را انتخاب کرده و روی دکمه Run کلیک کنید.

• در این زمان، جعبه پیام ما ایجاد شدبا نام افزودن برگه اگر وجود ندارد ظاهر می شود. در اینجا، گزینه خودکار Sheet5 خواهد بود.

• اکنون، برای بررسی، بنویسید "April" در کادر متنی کلیک کنید و روی دکمه Ok کلیک کنید. کادر ظاهر می شود و به شما می گوید که برگه از قبل وجود دارد.
• روی دکمه Ok کلیک کنید.

• پس از آن، دوباره کد را اجرا کنید و “May” را در کادر متنی کادر پیام ایجاد شده بنویسید. سپس بر روی دکمه OK کلیک کنید.

• در نتیجه، کادر پیام دیگری را مشاهده خواهید کرد. ظاهر می شود و به شما اطلاع می دهد که صفحه "مه" وجود ندارد و بنابراین این برگه را ایجاد کرده است.
• به دنبال آن، روی دکمه OK کلیک کنید.

در نهایت، می توانید ببینید که برگه ای را اضافه کرده اید که قبلا وجود نداشته است. و، کتاب کار اکنون به این شکل است.

بیشتر بخوانید: Excel VBA: Add Sheet After Last (3 مثال ایده آل)

نتیجه

بنابراین، در این مقاله، تمام مراحل اضافه کردن یک برگه را در صورت عدم وجود با Excel VBA به شما نشان دادم. مقاله کامل را با دقت مرور کنید تا بهتر متوجه شوید و به نتیجه دلخواه خود برسید. امیدوارم این مقاله برای شما مفید و آموزنده باشد. اگر سؤال یا توصیه دیگری دارید، لطفاً با من تماس بگیرید.

و برای اطلاعات بیشتر به ExcelWIKI مراجعه کنیدمقالاتی مانند این ممنونم!