Trebate li pokrenuti makronaredbu pri pokretanju programa Excel? Imate dvije mogućnosti:
1. Izradite pododrednicu Workbook_Open () unutar ‘ThisWorkbook’.
2. Postavite podmeni Auto_Open () unutar bilo kojeg modula.
Workbook_Open Event
Izradite podnaslov "Radna knjiga_otvorena" unutar "ove radne knjige"
| 123 | Radna sveska_open ()MsgBox "Ovaj kôd je pokrenut pri pokretanju programa Excel!"Kraj podm |
Auto_Open
Koristeći drugu metodu: Jednostavno stvorite potprogram pod nazivom Auto_Open i unesite kôd u njega ili od tamo pozovite drugu podprogram. Kôd se automatski pokreće pri pokretanju programa Excel.
| 123 | Privatno pod Auto Auto_Open ()MsgBox "Ovaj kôd je pokrenut pri pokretanju programa Excel!"Kraj podm |
Stvaranje i imenovanje novog radnog lista svaki put kada se Excel otvori
Sljedeći kod funkcionira pri otvaranju radne knjige. Automatski dodaje novi list i označava ga datumom. Također provjerava da li list već postoji - kako bi se omogućilo njegovo otvaranje više od jednom dnevno.
Ovaj kôd koristi Otvoreni događaj radne knjige i mora se staviti u modul radne knjige pod događajem "Otvorena radna knjiga". Funkcija Sheet_Exist mora biti smještena u modul i to provjerava postoji li list ili ne:
| 123456789101112131415 | Privatna pomoćna radna knjiga_Open ()Dim New_Sheet_Name As StringNew_Sheet_Name = Format (Now (), "dd-mm-yy")Ako Sheet_Exists (New_Sheet_Name) = Netočno TadaS radnom bilježnicomRadni listovi.Dodaj (). Naziv = Novi_Naziv_tabliceZavrši sZavrši akoUštedjetiKraj podm |
| 12345678910111213 | Funkcijski list_Postoji (naziv radnog lista_naziv kao niz) Kao BooleanZatamni radni list kao radni listList_Exists = NetočnoZa svaki radni list u ovoj radnoj knjizi. Radni listoviAko je Work_sheet.Name = Radni_naziv_NatoList_Postoji = IstinaZavrši akoSljedećiZavršna funkcija |
Kliknite ovdje da biste preuzeli .XLSM datoteku za ovaj vodič
Postavite zadani list kad se otvori radna knjiga
Želite li biti sigurni da se list uvijek prvi prikazuje kad se otvori radna knjiga? Na primjer, kada otvorite list radne knjige3, uvijek je aktivan list. Evo kako.
Na list iz VBA -e možete se pozvati prema nazivu programa (tj. Sheet3) ili nazivu kartice (tj. JanData). Najbolje je koristiti naziv programa, jer ako se promijeni naziv kartice, vaš VBA kôd koji se odnosi na naziv kartice više neće raditi. Međutim, ako koristite naziv programa, korisnik može promijeniti naziv kartice više puta, a vaša makronaredba i dalje radi.
Kako biste bili sigurni da je određeni list uvijek aktiviran kada se radna knjiga otvori, samo postavite list.aktivaciju koda u pododjeljak workbook_open. Ovo je primjer koji aktivira sheet3 korištenjem naziva programa svaki put kada se otvori radna knjiga.
| 123 | Privatna pomoćna radna knjiga_Open ()List3.AktivirajKraj podm |
I to radi pomoću naziva kartice:
| 1234 | Privatna pomoćna radna knjiga_Open ()Tablice ("mytabname"). AktivirajteKraj podm |
Sidenote: Morate spremiti i ponovo pokrenuti Excel kako bi ovo funkcioniralo.
Spomena: Ovo radi samo ako su omogućene makronaredbe.
Spomena: Stavite ovaj kôd u prozor koda za objekt ThisWorkbook u VBE -u.
Učitaj obrazac svaki put kada se otvori radna knjiga
Ako želite učitati obrazac ili pokrenuti neki VBA kôd kada otvorite excel radnu knjigu, postavite svoj kôd u prozor koda ove radne knjige i u pododrednicu Workbook_Open.
Iz vaše proračunske tablice:
1. Pritisnite ALT i F11 da otvorite VB editor
2. Dvaput kliknite riječ ThisWorkbook da otvorite kodni prozor
3. Upišite sljedeći kôd u prozor koda ThisWorkbook
| 123 | Privatna pomoćna radna knjiga_Open ()Korisnički obrazac1.PrikažiKraj podm |
Spomena: Zamijenite Userform1 imenom vašeg obrasca
4. Zatvorite Excel i ponovno ga otvorite.
