Vba

Objekt aplikacije

Application Object

Funkcija 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, postavite a ukazni gumb na delovnem listu 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.



Delovanje delovnega lista v Excelu VBA

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, postavite a ukazni gumb na delovnem listu in dodajte naslednje kodne vrstice:

NobenajazAs Celo število

Zai = 1Za10.000
Razpon ('A1'). Vrednost = i
Naslednjijaz

Ko kliknete ukazni gumb na delovnem listu, Excel VBA prikaže vsako vrednost v majhnem delčku sekunde, kar lahko traja nekaj časa.

Posodobitev zaslona

kako prešteti število celic

2. Če želite pospešiti postopek, posodobite kodo na naslednji način.

NobenajazAs Celo število

Application.ScreenUpdating =Napačno

Zai = 1Za10.000
Razpon ('A1'). Vrednost = i
Naslednjijaz

Application.ScreenUpdating =Prav

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, postavite a ukazni gumb na delovnem listu 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.

DisplayAlerts

kako narediti grafikon v Excelu 2010

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 =Prav

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, postavite a ukazni gumb na delovnem listu 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.

Možnosti izračuna

3. Ko spremenite vrednost celice A1, se vrednost celice B1 ne preračuna.

Ročni izračun

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

1/4 Dokončano! Več o objektu aplikacije>
Pojdi na naslednje poglavje: Kontrolniki ActiveX



^