Naudodami VBA ypatybę, galite užklausti, kiek darbalapių yra aktyvioje darbaknygėje
Daugelyje makrokomandų visi darbaknygės darbalapiai turėtų būti paleisti. Norėdami tai padaryti, pirmiausia turite sužinoti, kiek darbo lapų yra darbo knygoje.
Šiuo tikslu galite užklausti nuosavybės COUNT. Ši makrokomanda rodo, kaip praktiškai naudoti šią ypatybę:
Sub ShowSheetNumber ()
Dim skaičius kaip sveikasis skaičius
Skaičius = darbalapiai. Skaičius
„MsgBox“ „Dabartinėje darbaknygėje yra“ & _
Skaičiai ir „lentelės“.
Pabaiga Sub
Makrokomanda nuskaito darbo lapų skaičių dabartinėje darbaknygėje ir parodo šį skaičių su pranešimu lange. Toliau pateiktoje iliustracijoje parodyta, kaip gali atrodyti rezultatas:
Norėdami įvesti makrokomandą, „Excel“ paspauskite klavišų kombinaciją ALT F11. Tai iškviečia VBA redaktorių. Norėdami įterpti tuščią modulio lapą, naudokite komandą INSERT - MODULE. Norėdami pradėti makrokomandą, „Excel“ paspauskite klavišų kombinaciją ALT F8.
