Excel VBA ir spēcīgs un ērts rīks, lai diezgan ātri veiktu uzdevumus lielā daudzumā. Izmantojot VBA, varat piemērot vairākus nosacījumus un, pamatojoties uz atsevišķiem nosacījumiem, iegūt dažādus rezultātus. Tagad dažreiz, iespējams, vēlaties pārbaudīt, vai jūsu darbgrāmatā ir konkrēta lapa. Un, ja nav, jums, iespējams, būs nepieciešams izveidot šo lapu. Šajā rakstā es parādīšu jums visus soļus, lai pievienot lapu ja tās nav, izmantojot Excel VBA.

Excel VBA: Pievienot lapu, ja tās nav (ātrs skats)

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Kuru lapu jūs meklējat?", _ "Add Sheet If NotExist", "Sheet5", , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & addSheetName & _ "''' sheet hastika pievienota, jo tā nepastāvēja.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "The ''" & addSheetName & _ "''sheet already exists in this workbook.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub End Sub 

Ievietojiet jaunā modulī, lai piemērotu iepriekš minēto kodu.

Lejupielādēt Practice Workbook

Mūsu prakses darba burtnīcu varat lejupielādēt no šejienes bez maksas!

Soļi, kā piemērot VBA kodu, lai pievienotu lapu programmā Excel, ja tās nav

Pieņemsim, ka jums ir darbgrāmata, kurā ir 4 darblapas ar nosaukumiem janvāris, februāris, marts un aprīlis. Katrā lapā ir nākamā mēneša pārdošanas pārskats. Tagad jums jāatrod dažas lapas darbgrāmatā un jāpievieno lapa, ja tās nav. Lai to paveiktu, varat sekot tālāk sniegtajām norādēm soli pa solim.

📌 1. solis: Ievietojiet jaunu moduli

Vispirms ir jāievada modulis, lai rakstītu VBA kodu.

• Lai to izdarītu, pašā sākumā dodieties uz Izstrādātājs cilne>> Visual Basic instruments.

• Tā rezultātā Microsoft Visual Basic lietojumprogrammām tiks parādīts logs.
• Pēc tam dodieties uz Ievietot cilne>> Modulis instruments.

Tādējādi tiek izveidots jauns modulis ar nosaukumu Modulis1 ir izveidots.

Lasīt vairāk: Kā pievienot lapu ar nosaukumu programmā Excel VBA (6 vienkārši veidi)

Līdzīgi lasījumi

• Jaunas darbgrāmatas izveide un saglabāšana, izmantojot VBA programmā Excel
• Excel VBA: jaunas darbgrāmatas izveide un nosaukuma piešķiršana (6 piemēri)
• Kā izveidot jaunu lapu no veidnes, izmantojot Excel makroprogrammu

📌 2. solis: uzrakstiet un saglabājiet vajadzīgo VBA kodu

Tagad modulī ir jāuzraksta kods un tas jāglabā.

• Lai to izdarītu, noklikšķiniet uz Modulis1 opciju un kodu logā ierakstiet šādu kodu.

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Kuru lapu jūs meklējat?", _ "Add Sheet If NotExist", "Sheet5", , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & addSheetName & _ "''' sheet hastika pievienota, jo tā nepastāvēja.", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "The ''" & addSheetName & _ "''lapa jau pastāv šajā darbgrāmatā.", _ vbInformation, "Add Sheet If Not Exist" End If End If End End  Sub 

• Rezultātā koda logs izskatīsies šādi.

🔎 Koda skaidrojums:

♣ 1. posms:

 Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String 

Šajā daļā mēs esam deklarējuši makro nosaukumu un mainīgo nosaukumus.

♣ 2. posms:

 addSheetName = Application.InputBox("Kuru lapu jūs meklējat?", _ "Add Sheet If Not Exist", "Sheet5", , , , , , 2) On Error Resume Next requiredSheetName = Worksheets(addSheetName).Name 

Šajā daļā mēs esam izveidojuši ievades lodziņu. Izmantojot šo ievades lodziņu, mēs varam ievadīt faila nosaukumu, kas mums jāatrod.

♣ 3. posms:

 If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & addSheetName & _ "'' lapa ir pievienota, jo tā neeksistēja.", _ vbInformation, "Add Sheet If Not Exist" 

Šajā daļā mēs pārbaudām, vai darbgrāmatā ir vajadzīgā lapa. Ja nav, tiek izveidota vajadzīgā lapa un parādīts ziņojums par šīm izmaiņām.

♣ 4. posms:

 Else MsgBox "The ''" & addSheetName & _ "''lapa jau pastāv šajā darbgrāmatā.", _ vbInformation, "Add Sheet If Not Exist" End If End If End Sub 

Šajā daļā mēs esam strādājuši ar rezultātu, ja darbgrāmatā jau eksistē vajadzīgā lapa. Šajā scenārijā parādīsies vēl viens ziņojuma lodziņš, kurā jūs informēs, ka šī lapa eksistē. Turklāt šajā daļā mēs pareizi pabeidzam kodu.

• Pēc tam nospiediet Ctrl + S.

• Pēc tam Microsoft Excel parādīsies logs. Noklikšķiniet uz Nē pogu.

• Tā rezultātā Saglabāt kā tiks parādīts logs.
• Pēc tam izvēlieties Saglabāt kā veidu: opciju kā .xlsm pēc tam noklikšķiniet uz Saglabāt pogu.

Tādējādi esat uzrakstījis un saglabājis vajadzīgo kodu.

Piezīme:

Excel darbgrāmata ir jāsaglabā .xlsm pretējā gadījumā makro netiks aktivizēts un kods nedarbosies.

Lasīt vairāk: Excel VBA, lai pievienotu lapu ar mainīgo nosaukumu (5 ideāli piemēri)

📌 3. solis: Palaist kodu

Tagad ir nepieciešams palaist kodu un pārbaudīt rezultātus.

• Lai to izdarītu, vispirms noklikšķiniet uz Palaist ikona Microsoft Visual Basic lietojumprogrammām logs.

• Tā rezultātā Makroprocesori tiks parādīts logs.
• Pēc tam izvēlieties AddSheetIfNotExist makro un noklikšķiniet uz Palaist pogu.

• Šajā laikā mūsu izveidotais ziņojumu lodziņš ar nosaukumu Pievienot lapu Ja nav parādīsies. Šajā gadījumā automātiskā opcija būtu šāda. Lapa5 .

• Tagad pārbaudei rakstiet "Aprīlis" teksta lodziņā un noklikšķiniet uz Labi pogu.

• Pēc tam tiks parādīts cits ziņojuma logs, kurā tiks paziņots, ka lapa jau eksistē.
• Noklikšķiniet uz Labi pogu.

• Pēc tam vēlreiz palaidiet kodu un rakstiet "Maijs" izveidotā ziņojuma teksta lodziņā. Pēc tam noklikšķiniet uz LABI pogu.

• Rezultātā tiks parādīts vēl viens ziņojuma lodziņš, kurā tiks parādīta informācija, ka "Maijs" lapa neeksistēja, tāpēc tika izveidota šī lapa.
• Pēc tam noklikšķiniet uz LABI pogu.

Visbeidzot, redzat, ka esat pievienojis lapu, kuras iepriekš nebija. Un tagad darbgrāmata izskatās šādi.

Lasīt vairāk: Excel VBA: lapas pievienošana pēc pēdējās (3 ideāli piemēri)

Secinājums

Tātad, šajā rakstā es esmu parādījis visus soļus, lai pievienotu lapu, ja tās nav, izmantojot Excel VBA. Rūpīgi izbraukiet visu rakstu, lai to labāk saprastu un sasniegtu vēlamo rezultātu. Es ceru, ka šis raksts jums būs noderīgs un informatīvs. Ja jums ir kādi papildu jautājumi vai ieteikumi, lūdzu, sazinieties ar mani.

Un apmeklējiet ExcelWIKI par daudz vairāk rakstus, piemēram, šo. Paldies!