Delovanje delovnega lista | Posodobitev zaslona | DisplayAlerts | Izračun
Mati vseh predmetov je sam Excel. Imenujemo ga Objekt aplikacije. Predmet aplikacije omogoča dostop do številnih možnosti, povezanih z Excelom.
Funkcija delovnega lista
Lastnost WorksheetFunction lahko uporabite v Excel VBA za dostop do funkcij programa Excel.
1. Na primer, na svoj delovni list postavite ukazni gumb in dodajte naslednjo kodno vrstico:
Obseg ("A3"). Vrednost = Application.WorksheetFunction.Average (Range ("A1: A2"))
Ko kliknete gumb za ukaz na delovnem listu, Excel VBA izračuna povprečje vrednosti v celici A1 in celici A2 in rezultat shrani v celico A3.
Opomba: namesto Application.WorksheetFunction.Average preprosto uporabite WorksheetFunction.Average. Če pogledate vrstico s formulami, lahko vidite, da formula sama ni vstavljena v celico A3. Če želite v celico A3 vstaviti samo formulo, uporabite naslednjo kodno vrstico:
Razpon ("A3"). Vrednost = "= POVPREČNO (A1: A2)"
Posodobitev zaslona
Včasih se vam zdi koristno onemogočiti posodabljanje zaslona (da se izognete utripanju) med izvajanjem kode. Posledično bo vaša koda delovala hitreje.
1. Na primer, na svoj delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
Dim i kot celo število
Za i = 1 do 10000
Razpon ("A1"). Vrednost = i
Naprej i
Ko kliknete gumb za ukaz na delovnem listu, Excel VBA prikaže vsako vrednost v majhnem delčku sekunde, kar lahko traja nekaj časa.
2. Če želite pospešiti postopek, posodobite kodo na naslednji način.
Dim i kot celo število
Application.ScreenUpdating = Napačno
Za i = 1 do 10000
Razpon ("A1"). Vrednost = i
Naprej i
Application.ScreenUpdating = Res
Posledično bo vaša koda delovala veliko hitreje in videli boste le končni rezultat (10000).
DisplayAlerts
Excel VBA lahko naročite, naj med izvajanjem kode ne prikazuje opozoril.
1. Na primer, na svoj delovni list postavite ukazni gumb in dodajte naslednjo kodno vrstico:
ActiveWorkbook.Zapri
Ko kliknete ukazni gumb na delovnem listu, Excel VBA zapre datoteko Excel in vas prosi, da shranite spremembe, ki ste jih naredili.
2. Če želite naročiti Excelu VBA, naj med izvajanjem kode ne prikaže tega opozorila, posodobite kodo na naslednji način.
Application.DisplayAlerts = Napačno
ActiveWorkbook.Zapri
Application.DisplayAlerts = Res
Posledično Excel VBA zapre datoteko Excel, ne da bi vas prosil, da shranite spremembe, ki ste jih naredili. Vse spremembe so izgubljene.
Izračun
Privzeto je izračun nastavljen na samodejno. Posledično Excel samodejno preračuna delovni zvezek vsakič, ko se spremeni vrednost, ki vpliva na formulo. Če vaš delovni zvezek vsebuje veliko zapletenih formul, lahko pospešite makro tako, da nastavite izračun na ročno.
1. Na primer, na svoj delovni list postavite ukazni gumb in dodajte naslednjo kodno vrstico:
Application.Calculation = xlCalculationManual
Ko kliknete gumb za ukaz na delovnem listu, Excel VBA nastavi izračun na ročno.
2. To lahko preverite s klikom na Datoteka, Možnosti, Formule.
3. Ko spremenite vrednost celice A1, se vrednost celice B1 ne preračuna.
Delovni zvezek lahko ročno preračunate s pritiskom na F9.
4. V večini primerov boste na koncu kode znova nastavili samodejni izračun. Če želite to narediti, preprosto dodajte naslednjo vrstico kode.
Application.Calculation = xlCalculationAutomatic
