Excel VBA është një mjet i fuqishëm dhe i dobishëm për të kryer detyrat shumë shpejt në sasi të mëdha. Ju mund të aplikoni disa kushte dhe të nxirrni rezultate të ndryshme në bazë të kushteve individuale përmes VBA. Tani, ndonjëherë, mund të dëshironi të kontrolloni nëse një fletë e veçantë ekziston në librin tuaj të punës. Dhe, nëse jo, mund t'ju duhet të krijoni atë fletë. Në këtë artikull, unë do t'ju tregoj të gjithë hapat për të shtuar një fletë nëse nuk ekziston, duke përdorur Excel VBA.

Excel VBA: Shto fletë nëse nuk ekziston (Një pamje e shpejtë)

8224

Fut në një modul të ri për të aplikuar kodin e mësipërm.

Shkarkoni Librin e Punës Praktike

Ju mund ta shkarkoni librin tonë të punës praktike nga këtu falas!

Hapat për të aplikuar kodin VBA për të shtuar fletën në Excel nëse nuk ekziston

Të themi, ju keni një libër pune që përmban 4 fletë pune të quajtura janar, shkurt, mars dhe prill. Çdo fletë përmban raportin e shitjeve të muajit vijues. Tani, ju duhet të gjeni disa fletë në librin e punës dhe të shtoni fletën nëse nuk ekziston. Ju mund të ndiqni udhëzimet hap pas hapi më poshtë për ta arritur këtë.

📌 Hapi 1: Fusni një modul të ri

Së pari, duhet të futni një modul për të shkruar kodin VBA.

• Për ta bërë këtë, që në fillim, shkoni te skedari Zhvilluesi >> Visual Basic .

• Si rezultat, Microsoft VisualDo të shfaqet dritarja Basic for Applications.
• Më pas, shkoni te mjeti Insert >> Module .

Kështu, një modul i ri i quajtur Module1 është krijuar.

Lexo më shumë: Si të shtoni fletë me Emri në Excel VBA (6 mënyra të thjeshta)

Lexime të ngjashme

• Krijoni një libër të ri pune dhe ruani duke përdorur VBA në Excel
• Excel VBA: Krijoni një libër të ri pune dhe emërtoni atë (6 shembuj)
• Si të krijoni një fletë të re nga shablloni duke përdorur makro në Excel

📌 Hapi 2: Shkruani dhe ruani kodin e kërkuar VBA

Tani, duhet të shkruani kodin brenda modulit dhe ta ruani atë.

• Në për ta bërë këtë, klikoni në opsionin Moduli1 dhe shkruani kodin e mëposhtëm në dritaren e kodit.

41689743

• Si si rezultat, dritarja e kodit do të duket si më poshtë.

🔎 Shpjegimi i kodit:

♣ Segmenti 1:

8812

Në këtë pjesë, ne kemi deklaruar emrin makro dhe variablin nam es.

♣ Segmenti 2:

7349

Në këtë pjesë, ne kemi krijuar një kuti hyrëse. Nëpërmjet kësaj kutie hyrëse, ne mund të marrim hyrjen e emrit të skedarit që duhet të gjejmë.

♣ Segmenti 3:

7846

Në këtë pjesë kontrollojmë nëse fleta e kërkuar ekziston në librin e punës. Nëse jo, do të krijonte fletën e kërkuar dhe do të na tregonte një mesazh për këtë ndryshim.

♣ Segmenti 4:

5866

Në këtë pjesë, ne kemi punuar me rezultatin nëse fleta e kërkuar tashmë ekziston në librin e punës. Në këtë skenar, do të shfaqet një kuti tjetër mesazhi që ju informon se kjo fletë ekziston. Për më tepër, në këtë pjesë e mbyllim kodin si duhet.

• Më pas shtypni Ctrl + S.

• Më pas, do të shfaqet një dritare Microsoft Excel . Klikoni në butonin Jo .

• Si rezultat, do të shfaqet dritarja Ruaj si .
• Në vijim, zgjidhni opsionin Ruaj si lloj: si format .xlsm . Më pas, klikoni në butonin Ruaj .

Kështu, ju keni shkruar dhe ruajtur kodin tuaj të kërkuar.

Shënim:

Duhet ta ruani librin e punës Excel në formatin .xlsm . Përndryshe, makro nuk do të aktivizohet dhe kodi nuk do të funksionojë.

Lexo më shumë: Excel VBA për të shtuar fletë me emrin e ndryshores (5 shembuj idealë)

📌 Hapi 3: Ekzekutoni kodin

Tani, duhet të ekzekutoni kodin dhe të kontrolloni rezultatet.

• Për ta bërë këtë, para së gjithash, klikoni në ikonën Run në dritaren Microsoft Visual Basic për Aplikacione .

• Si rezultat, do të shfaqet dritarja Macros .
• Më pas, zgjidhni makro AddSheetIfNotExist dhe klikoni në butonin Run .

• Në këtë kohë, kutia jonë e mesazheve e krijuardo të shfaqet me emrin Shto fletën nëse nuk ekziston . Këtu, opsioni automatik do të ishte Fleta5 .

• Tani, për të kontrolluar, shkruani “Prill” në kutinë e tekstit dhe klikoni në butonin Ok .

• Më pas, do të shihni një mesazh tjetër do të shfaqet kutia duke ju thënë se fleta tashmë ekziston.
• Klikoni në butonin Ok .

• Më pas, ekzekutoni përsëri kodin dhe shkruani “Maj” në kutinë e tekstit të kutisë së krijuar të mesazheve. Më pas, klikoni në butonin OK .

• Si rezultat, do të shihni një kuti tjetër mesazhi që do shfaqet duke ju informuar se fleta “Maj” nuk ekzistonte dhe kështu krijoi këtë fletë.
• Në vijim, klikoni në butonin OK .
• 15>

  

  Më në fund, mund të shihni se keni shtuar një fletë që nuk ekzistonte më parë. Dhe, libri i punës do të dukej kështu tani.

  

  Lexo më shumë: Excel VBA: Shto fletën pas fundit (3 shembuj idealë)

  Përfundim

  Pra, në këtë artikull, ju kam treguar të gjithë hapat për të shtuar një fletë nëse nuk ekziston me Excel VBA. Kaloni me kujdes artikullin e plotë për ta kuptuar më mirë dhe për të arritur rezultatin e dëshiruar. Shpresoj ta gjeni këtë artikull të dobishëm dhe informues. Nëse keni ndonjë pyetje ose rekomandim të mëtejshëm, ju lutem mos ngurroni të më kontaktoni.

  Dhe, vizitoni ExcelWIKI për shumë më tepërartikuj si ky. Faleminderit!