Excel VBA és una eina potent i pràctica per dur a terme tasques amb força rapidesa en quantitats massives. Podeu aplicar diverses condicions i obtenir resultats diferents sobre la base de les condicions individuals mitjançant VBA. Ara, de vegades, potser voldreu comprovar si hi ha un full concret al vostre llibre de treball. I, si no, potser haureu de crear aquest full. En aquest article, us mostraré tots els passos per afegir un full si no existeix mitjançant Excel VBA.

Excel VBA: afegiu un full si no existeix. (Vista ràpida)

3762

Inseriu en un mòdul nou per aplicar el codi anterior.

Baixeu el quadern de pràctiques

Podeu descarregar el nostre quadern de pràctiques des d'aquí de manera gratuïta!

Passos per aplicar el codi VBA per afegir un full a Excel si no existeix

Per exemple, teniu un llibre de treball que conté 4 fulls de treball anomenats gener, febrer, març i abril. Cada full conté l'informe de vendes del mes següent. Ara, heu de trobar alguns fulls al llibre de treball i afegir el full si no existeix. Podeu seguir les directrius pas a pas següents per aconseguir-ho.

📌 Pas 1: inseriu un mòdul nou

Primer, heu d'inserir un mòdul per escriure codi VBA.

• Per fer-ho, al principi, aneu a la pestanya Desenvolupador >> Eina Visual Basic .

• Com a resultat, el Microsoft VisualApareixerà la finestra Bàsica per a aplicacions.
• A continuació, aneu a la pestanya Insereix >> Mòdul eina.

Així, s'ha creat un mòdul nou anomenat Module1 .

Llegir més: Com afegir un full amb Nom a Excel VBA (6 maneres fàcils)

Lectures similars

• Creeu un nou llibre de treball i deseu-lo amb VBA a Excel
• Excel VBA: creeu un quadern de treball nou i poseu-lo un nom (6 exemples)
• Com crear un full nou a partir de la plantilla mitjançant una macro a Excel

📌 Pas 2: escriviu i deseu el codi VBA requerit

Ara, heu d'escriure el codi dins del mòdul i desar-lo.

• A per fer-ho, feu clic a l'opció Module1 i escriviu el codi següent a la finestra del codi.

43299547

• Com a resultat, la finestra del codi tindrà un aspecte semblant a la següent.

🔎 Explicació del codi:

♣ Segment 1:

6365

En aquesta part, hem declarat el nom de la macro i la variable nam es.

♣ Segment 2:

6147

En aquesta part, hem creat un quadre d'entrada. A través d'aquest quadre d'entrada, podem agafar l'entrada del nom del fitxer que hem de trobar.

♣ Segment 3:

2387

En aquesta part, comprovem si el full requerit existeix al quadern de treball. En cas contrari, crearia el full necessari i ens mostraria un missatge sobre aquest canvi.

♣ Segment 4:

2823

En aquesta part, hem treballat amb el resultat si el full requerit ja existeix al llibre de treball. En aquest escenari, apareixerà un altre quadre de missatge que us informarà que aquest full existeix. A més, en aquesta part, acabem el codi correctament.

• Després, premeu Ctrl + S.

• A continuació, apareixerà una finestra Microsoft Excel . Feu clic al botó No .

• Com a resultat, apareixerà la finestra Desa com a .
• A continuació, trieu l'opció Desa com a tipus: com a format .xlsm . A continuació, feu clic al botó Desa .

Així, heu escrit i desat el codi necessari.

Nota:

Heu de desar el llibre d'Excel en format .xlsm . En cas contrari, la macro no s'habilitarà i el codi no funcionarà.

Llegir més: Excel VBA per afegir un full amb nom de variable (5 exemples ideals)

📌 Pas 3: executeu el codi

Ara, heu d'executar el codi i comprovar els resultats.

• Per fer-ho, primer i sobretot, feu clic a a la icona Executar a la finestra Microsoft Visual Basic for Applications .

• Com a resultat, apareixerà la finestra Macros .
• A continuació, trieu la macro AddSheetIfNotExist i feu clic al botó Executar .

• En aquest moment, el nostre quadre de missatges creatanomenada Afegeix un full si no existeix apareixerà. Aquí, l'opció automàtica seria Full5 .

• Ara, per comprovar-ho, escriviu “Abril” al quadre de text i feu clic al botó D'acord .

• Posteriorment, veureu un altre missatge. apareixerà un quadre indicant-vos que el full ja existeix.
• Feu clic al botó D'acord .

• Després, torneu a executar el codi i escriviu "Maig" al quadre de text del quadre de missatge creat. A continuació, feu clic al botó D'acord .

• Com a resultat, veureu un altre quadre de missatge que apareixen informant-vos que el full “Maig” no existia i, per tant, va crear aquest full.
• A continuació, feu clic al botó D'acord .

Finalment, podeu veure que heu afegit un full que abans no existia. I ara el quadern de treball es veuria així.

Llegir més: Excel VBA: Afegeix un full després de l'últim (3 exemples ideals)

Conclusió

Per tant, en aquest article, us he mostrat tots els passos per afegir un full si no existeix amb Excel VBA. Reviseu l'article complet amb cura per entendre'l millor i aconseguir el resultat desitjat. Espero que aquest article us sigui útil i informatiu. Si teniu més preguntes o recomanacions, no dubteu a posar-vos en contacte amb mi.

I visiteu ExcelWIKI per a molts mésarticles com aquest. Gràcies!