Nustatykite darbalapių skaičių per VBA

Anonim

Kaip naudoti makrokomandą, kad sužinotumėte, kiek yra darbalapių

Daugelis makrokomandų yra skirtos peržvelgti visus darbaknygės darbalapius, kad būtų galima atlikti konkrečią užduotį. Norėdami tai padaryti, sukurkite kilpą, kurioje aplanko lapai būtų paleisti vienas po kito.

Jei norite nustatyti, kiek lentelių yra darbaknygėje, galite naudoti šią ypatybę Skaičiai naudoti. Šioje makrokomandoje parodyta, kaip naudoti šią ypatybę, norint užklausti aktyvios darbaknygės darbalapių skaičių:

Pozicijos lentelių skaičius fiksuotas ()
Dim A kaip eilutė
Dim skaičius kaip sveikasis skaičius
Skaičius = ActiveWorkbook.Worksheets.Count
A = MsgBox ("Šioje darbaknygėje yra" & numeris & _
„Darbo lapai.“, „VbOKOnly“, „Lentelių skaičius“)
Pabaiga Sub

Kai tik pradėsite, „Excel“ mažame lange parodys darbalapių skaičių, kaip parodyta šiame paveikslėlyje.

Patarimas: Jei norite sužinoti, kaip įvesti ir paleisti makrokomandas „Excel“, trumpą aprašymą rasite čia: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html