Kā pārlūkot Excel lapas, izmantojot VBA

Automatizējot parastos garlaicīgos Excel uzdevumus VBA, jums būs jāpārbauda katra lapa. Un tāpēc jūs, protams, esat šeit.

Apskatīsim kodu, kas jāizmanto darbgrāmatas lapās.

VBA kods, lai ievietotu visas lapas Activeworkbook un drukāt lapas Nosaukums

Sub loop

Iepriekš minētais vba kods tiek pārvietots pa katru aktīvās darbgrāmatas lapu un izdrukā lapu nosaukumu

Kā tas strādā?

Tas ir pavisam vienkārši. Mēs sakām VBA, lai katra darblapa tiktu saglabāta aktīvajā darbgrāmatā ws un pēc tam izdrukātu tās nosaukumu, izmantojot nosaukuma metodi.

Apmeklējiet visas lapas, izņemot vienu

Tātad, ja jūs mēģināt apvienot vairākas lapas vienā galvenajā lapā, jums būs jāapmeklē katra lapa. kopējiet katras lapas datus galvenajā lapā. Bet jūs vēlaties, izņemot galveno lapu no cilpām. Pieņemsim, ka galveno lapu nosaucāt par “meistaru”. Tādā gadījumā izmantojiet šo metodi:

Sub loopSheets () Katram ws ActiveWorkbook.Worksheets Ja ws.Name "Master", tad atkļūdojiet. Drukāt ws.Name & "Copied" End If Next ws End Sub

Tas ir gandrīz tāds pats kā iepriekš minētais kods, tikai pievienojot paziņojumu If.

Ja ws.Nosaukums "Meistars" Tad

Šī rinda pārbauda, vai pašreizējās darblapas nosaukums ir “Meistars”. ja tā nav, kods starp, ja bloks darbojas. Citādi ievadiet kodu, ja bloks tiek izlaists.

Tātad, jā, puiši, šādā veidā jūs varat pārvietoties pa Excel darblapām. Tālāk mēs uzzināsim, kā apvienot vairākas lapas vienā, izmantojot vba.