Naudodami VBA makrokomandą sukurkite naują darbaknygę, kurioje yra tiksliai tiek darbalapių, kiek jums reikia
Daugelyje makrokomandų turi būti sukurtos naujos darbaknygės, kurios, pavyzdžiui, užpildytos tam tikru turiniu. Svarbi užduotis yra sukurti naują „Excel“ darbaknygę, kurioje būtų tiksliai norimas skaičiuoklių skaičius.
Ši makrokomanda atlieka šį darbą. Sukuriama nauja darbaknygė, kurioje yra 31 darbalapis. Šie darbalapiai sunumeruoti nuo 1 iki 31. Čia yra tinkamos VBA komandos:
Sub FuegeTabellenEin ()
Dim skaičius kaip sveikasis skaičius
Dim i As Integer
„Dim Mappe As Workbook“
Skaičius = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 31
Nustatyti aplanką = Darbaknygės. Pridėti
Jei i = 1 „Mappe.Worksheets.Count“
Aplankas. Darbo lapai (i). Pavadinimas = i
Kitas I.
Application.SheetsInNewWorkbook = skaičius
Pabaiga Sub
Kai ji prasideda, „Excel“ rodo naują darbaknygę, kurioje yra 31 darbalapis. Toliau pateiktame paveikslėlyje parodyta, kaip tai atrodo lapų registre:
Makrokomandoje nurodote norimą darbalapių skaičių naudodami skaičių 31. Pakeiskite šį skaičių, jei norite, kad darbaknygėje būtų mažiau ar daugiau darbalapių.
Norėdami įvesti makrokomandą, „Excel“ paspauskite ALT F11, kad atidarytumėte VBA redaktorių. Norėdami įterpti tuščią modulio lapą, naudokite komandą INSERT - MODULE. Norėdami paleisti makrokomandą tiesiai iš „Excel“, naudokite klavišų kombinaciją ALT F8.
