Vienas iš paprasčiausių su darbalapiais susijusių automatizavimo būdų, kurį galite taikyti naudodami makrokomandą programoje „Excel“, yra naujo darbalapio pridėjimas ir pavadinimo suteikimas. Štai kaip ta makrokomanda veikia ir kaip ją naudoti.
Kaip veikia makrokomandas
Perskaitę kodo eilutes pamatysite, kad ši makrokomanda yra gana intuityvi:
Sub-makro1()
„1 veiksmas: nurodykite „Excel“, ką daryti, jei įvyko klaida
Įvykus klaidą Eikite į „MyError“.
„2 veiksmas: pridėkite lapą ir pavadinkite jį
Lakštai.Pridėti
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "mmd-yyyy h_mm_ss
ryto vakaro")
Išeiti iš sub
„3 veiksmas: jei čia, įvyko klaida; pasakyti vartotojui
Mano klaida:
MsgBox "Jau yra toks lapas."
Pabaigos sub
Turite numatyti, kad jei naujam lapui suteiksite jau egzistuojantį pavadinimą, atsiras klaida. Taigi 1 veiksme makrokomanda nurodo „Excel“ nedelsiant pereiti prie eilutės, kurioje rašoma „MyError“ (3 veiksme), jei yra klaida.
2 veiksme naudojamas metodas Pridėti, kad pridėtumėte naują lapą. Pagal numatytuosius nustatymus lapas vadinamas Sheet xx, kur xx reiškia lapo numerį. Jūs suteikiate lapui naują pavadinimą pakeisdami objekto ActiveSheet ypatybę Name. Tokiu atveju darbalapį pavadinate dabartine data ir laiku.
Kaip ir darbaknygėse, kiekvieną kartą, kai naudojate VBA, kad pridėtumėte naują lapą, naujai pridėtas lapas automatiškai tampa aktyviu lapu. Galiausiai, atlikdami 2 veiksmą, atkreipkite dėmesį, kad makrokomandos procedūra baigiama. Jis turi tai padaryti, kad jis netyčia nepatektų į 3 veiksmą (kuris pradeda veikti tik tada, kai įvyksta klaida).
3 veiksmas praneša vartotojui, kad lapo pavadinimas jau yra. Vėlgi, šis veiksmas turėtų būti suaktyvintas tik tada, kai įvyksta klaida.
Kaip naudoti makrokomandą
Norėdami įdiegti šią makrokomandą, galite nukopijuoti ir įklijuoti ją į standartinį modulį:
Suaktyvinkite Visual Basic redaktorių paspausdami Alt + F11.
Dešiniuoju pelės mygtuku spustelėkite projekto / darbaknygės pavadinimą projekto lange.
Pasirinkite Įterpti → Modulis.
Įveskite arba įklijuokite kodą naujai sukurtame modulyje.