Määrake töölehtede arv VBA kaudu

Anonim

Kuidas makro abil teada saada, kui palju töölehti on

Paljud makrod on ette nähtud konkreetse ülesande täitmiseks töövihiku kõikide töölehtede läbimiseks. Selleks looge silmus, milles kausta lehed jooksevad üksteise järel läbi.

Kui soovite määrata, mitu tabelit töövihikus on, saate seda atribuuti kasutada Töölehed. Loend kasutada. Järgmine makro näitab, kuidas seda atribuuti kasutada aktiivse töövihiku töölehtede arvu pärimiseks:

Alampositsioon fikseeritud tabelite arv ()
Dim A kui string
Hämardatud number täisarvuna
Loend = ActiveWorkbook.Worksheets.Count
A = MsgBox ("Sellel töövihikul on" & number & _
"Töölehed.", VbOKOnly, "Tabelite arv")
End Sub

Pärast käivitamist kuvab Excel väikeses aknas töölehtede arvu, nagu on näidatud järgmisel joonisel.

Näpunäide. Kui soovite teada, kuidas Excelis makrosid sisestada ja käivitada, leiate lühikirjelduse siit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html