Suorita makro, kun Excel käynnistyy - VBA -koodiesimerkkejä

Onko sinun suoritettava makro, kun Excel käynnistyy? Sinulla on kaksi vaihtoehtoa:

1. Luo Workbook_Open () -alialuekirja ”Tämä työkirja”.

2. Aseta Auto_Open () -ala minkä tahansa moduulin sisälle.

Työkirja_Avaa tapahtuma

Luo tämän työkirjan alaotsikko "Työkirja_Avaa"

123 Työkirja_open ()MsgBox "Tämä koodi suoritettiin Excel -käynnistyksen yhteydessä!"End Sub

Auto_Open

Toisen menetelmän käyttäminen: Luo aliohjelma nimeltä Auto_Open ja aseta siihen koodi tai soita toiselle aliosalle. Koodisi suoritetaan automaattisesti, kun Excel käynnistyy.

123 Yksityinen osa Auto_Open ()MsgBox "Tämä koodi suoritettiin Excel -käynnistyksen yhteydessä!"End Sub

Luo ja nimeä uusi laskentataulukko aina, kun Excel avautuu

Seuraava koodi toimii työkirjan avaamisen yhteydessä. Se lisää automaattisesti uuden taulukon ja merkitsee siihen päivämäärän. Se tarkistaa myös, ettei arkki ole jo olemassa - jotta se voidaan avata useammin kuin kerran päivässä.

Tämä koodi käyttää työkirjan avointa tapahtumaa, ja se on sijoitettava työkirjamoduuliin ”Avaa työkirja” -tapahtumaan. Toiminto Sheet_Exist on sijoitettava moduuliin ja tämä tarkistaa, onko arkki olemassa:

123456789101112131415 Yksityinen alityökirja_Avaa ()Himmennä uusi_taulukon_nimi merkkijonoksiNew_Sheet_Name = Muoto (Nyt (), "pp-kk-vv")Jos Sheet_Exists (New_Sheet_Name) = False thenTyökirjan kanssaLaskentataulukot.Add (). Name = New_Sheet_NameLopetaLoppu JosTallentaaEnd Sub
12345678910111213 Funktio Sheet_Exists (WorkSheet_Name As String) BooleaninaHimmennä työkirja laskentataulukkonaSheet_Exists = FalseJokaiselle tämän työkirjan työkirjalleJos Work_sheet.Name = Työsivun_nimi SittenSheet_Exists = TottaLoppu JosSeuraavaLopeta toiminto

Voit ladata .XLSM -tiedoston tähän opetusohjelmaan napsauttamalla tätä

Aseta oletusarkki, kun työkirja avautuu

Haluatko varmistaa, että taulukko näkyy aina ensimmäisenä, kun työkirja avautuu? Esimerkiksi kun avaat työkirjan taulukon3, se on aina aktiivinen arkki. Näin voit.

Voit viitata VBA: n taulukkoon sen ohjelman nimen (eli Sheet3) tai välilehden nimen (eli JanData) avulla. On parasta käyttää ohjelman nimeä, koska jos välilehden nimi muuttuu, välilehden nimeen viittaava VBA -koodisi ei enää toimi. Jos kuitenkin käytät ohjelman nimeä, käyttäjä voi muuttaa välilehden nimeä useita kertoja ja makro toimii edelleen.

Varmistaaksesi, että tietty arkki on aina aktivoitu, kun työkirja avautuu, aseta vain sheet.activate -koodi workbook_open -alikenttään. Tämä on esimerkki, joka aktivoi taulukon 3 käyttämällä ohjelman nimeä aina, kun työkirja avautuu.

123 Yksityinen alityökirja_Avaa ()Taulukko 3.AktivoiEnd Sub

Ja tämä tehdään käyttämällä välilehden nimeä:

1234 Yksityinen alityökirja_Avaa ()Sheets ("mytabname"). AktivoiEnd Sub

Sidenote: Sinun on tallennettava ja käynnistettävä Excel uudelleen, jotta tämä toimii.
Sidenote: Tämä toimii vain, jos makrot ovat käytössä.
Sivuhuomautus: Laita tämä koodi VBE: n ThisWorkbook -objektin koodi -ikkunaan.

Lataa lomake aina, kun työkirja avautuu

Jos haluat ladata lomakkeen tai suorittaa jonkin VBA -koodin, kun avaat Excel -työkirjan, aseta koodi tämän työkirjan koodi -ikkunaan ja Workbook_Open -alikenttään.

Laskentataulukostasi:
1. Paina ALT ja F11 avataksesi VB -editorin
2. Avaa koodi-ikkuna kaksoisnapsauttamalla sanaa Tämä työkirja
3. Kirjoita tämä koodi ThisWorkbook -koodi -ikkunaan

123 Yksityinen alityökirja_Avaa ()UserForm 1.NäytäEnd Sub

Sidenote: Korvaa Userform1 lomakkeen nimellä

4. Sulje Excel ja avaa se uudelleen.

wave wave wave wave wave