Yksi yksinkertaisimmista laskentataulukoihin liittyvistä automatioista, joita voit käyttää makrolla Excelissä, on uuden laskentataulukon lisääminen ja nimeäminen. Näin makro toimii ja kuinka sitä käytetään.
Kuinka makro toimii
Kun luet koodin rivit läpi, huomaat, että tämä makro on suhteellisen intuitiivinen:
Alamakro1()
Vaihe 1: Kerro Excelille, mitä tehdä virheen sattuessa
On Error GoTo MyError
Vaihe 2: Lisää taulukko ja nimeä se
Sheets.Add
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "kk-vvvv h_mm_ss
aamupäivä iltapäivä")
Poistu Subista
'Vaihe 3: Jos tässä, tapahtui virhe; kerro käyttäjälle
MyError:
MsgBox "Siellä on jo taulukko."
Lopeta ala
Sinun on ennakoitava, että jos annat uudelle taulukolle jo olemassa olevan nimen, tapahtuu virhe. Joten vaiheessa 1 makro käskee Exceliä siirtymään välittömästi riville, joka sanoo MyError (vaiheessa 3), jos tapahtuu virhe.
Vaihe 2 käyttää Lisää-menetelmää uuden taulukon lisäämiseen. Oletusarvoisesti taulukon nimi on Sheet xx, jossa xx edustaa arkin numeroa. Annat taulukolle uuden nimen muuttamalla ActiveSheet-objektin Name-ominaisuutta. Tässä tapauksessa nimeät laskentataulukon nykyisen päivämäärän ja kellonajan mukaan.
Kuten työkirjoissa, aina kun käytät VBA:ta uuden arkin lisäämiseen, äskettäin lisätystä taulukosta tulee automaattisesti aktiivinen taulukko. Huomaa lopuksi vaiheessa 2, että makro poistuu toimenpiteestä. Sen on tehtävä tämä, jotta se ei vahingossa mene vaiheeseen 3 (joka tulee voimaan vain, jos tapahtuu virhe).
Vaihe 3 ilmoittaa käyttäjälle, että taulukon nimi on jo olemassa. Jälleen tämä vaihe tulisi aktivoida vain, jos tapahtuu virhe.
Kuinka käyttää makroa
Voit ottaa tämän makron käyttöön kopioimalla ja liittämällä sen vakiomoduuliin:
Aktivoi Visual Basic Editor painamalla Alt+F11.
Napsauta hiiren kakkospainikkeella projektin/työkirjan nimeä projektiikkunassa.
Valitse Lisää → Moduuli.
Kirjoita tai liitä koodi äskettäin luotuun moduuliin.