Viena no vienkāršākajām ar darblapām saistītajām automatizācijām, ko varat lietot ar makro programmā Excel, ir jaunas darblapas pievienošana un nosaukšana. Lūk, kā šis makro darbojas un kā to izmantot.
Kā darbojas makro
Izlasot koda rindiņas, redzēsit, ka šis makro ir salīdzinoši intuitīvs:
Apakšmakro1()
1. darbība. Pastāstiet programmai Excel, kā rīkoties, ja rodas kļūda
Par kļūdu GoTo MyError
2. darbība. Pievienojiet lapu un piešķiriet tai nosaukumu
Izklājlapas.Pievienot
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "md-gggg h_mm_ss
am/pm")
Iziet Sub
'3. darbība. Ja šeit, radās kļūda; pastāstiet lietotājam
Mana kļūda:
MsgBox "Tā jau ir lapa."
Beigt apakš
Jums jāparedz, ka, piešķirot jaunajai lapai jau esošu nosaukumu, radīsies kļūda. Tātad 1. darbībā makro liek programmai Excel nekavējoties pāriet uz rindiņu MyError (3. darbībā), ja rodas kļūda.
2. darbībā tiek izmantota pievienošanas metode, lai pievienotu jaunu lapu. Pēc noklusējuma lapa tiek saukta par lapu xx, kur xx apzīmē lapas numuru. Jūs piešķirat lapai jaunu nosaukumu, mainot ActiveSheet objekta rekvizītu Name. Šajā gadījumā darblapai piešķirat nosaukumu ar pašreizējo datumu un laiku.
Tāpat kā ar darbgrāmatām, katru reizi, kad izmantojat VBA, lai pievienotu jaunu lapu, tikko pievienotā lapa automātiski kļūst par aktīvo lapu. Visbeidzot, 2. darbībā ņemiet vērā, ka makro aizver procedūru. Tas ir jādara, lai tas nejauši nepārietu uz 3. darbību (kas stājas spēkā tikai tad, ja rodas kļūda).
3. darbība informē lietotāju, ka lapas nosaukums jau pastāv. Atkal, šī darbība ir jāaktivizē tikai tad, ja rodas kļūda.
Kā lietot makro
Lai ieviestu šo makro, varat to kopēt un ielīmēt standarta modulī:
Aktivizējiet Visual Basic redaktoru, nospiežot Alt+F11.
Ar peles labo pogu noklikšķiniet uz projekta/darbgrāmatas nosaukuma projekta logā.
Izvēlieties Ievietot → Modulis.
Ierakstiet vai ielīmējiet kodu jaunizveidotajā modulī.