Funkcija radnog lista | Ažuriranje zaslona | DisplayAlerts | Proračun
Majka svih objekata je sam Excel. Mi to zovemo Objekt aplikacije. Objekt aplikacije daje pristup mnogim opcijama vezanim uz Excel.
Funkcija radnog lista
Svojstvo WorksheetFunction možete koristiti u Excel VBA za pristup funkcijama programa Excel.
1. Na primjer, postavite naredbeni gumb na svoj radni list i dodajte sljedeći kodni redak:
Raspon ("A3"). Vrijednost = Application.WorksheetFunction.Average (Raspon ("A1: A2"))
Kada kliknete gumb naredbe na radnom listu, Excel VBA izračunava prosjek vrijednosti u ćeliji A1 i ćeliji A2 i smješta rezultat u ćeliju A3.
Napomena: umjesto Application.WorksheetFunction.Average, jednostavno upotrijebite WorksheetFunction.Average. Ako pogledate traku s formulama, možete vidjeti da sama formula nije umetnuta u ćeliju A3. Za umetanje same formule u ćeliju A3 upotrijebite sljedeći kodni redak:
Raspon ("A3"). Vrijednost = "= PROSJEČNA (A1: A2)"
Ažuriranje zaslona
Ponekad vam može biti korisno onemogućiti ažuriranje zaslona (kako biste izbjegli treperenje) tijekom izvršavanja koda. Zbog toga će se vaš kôd brže izvoditi.
1. Na primjer, postavite naredbeni gumb na svoj radni list i dodajte sljedeće retke koda:
Dim i Kao cijeli broj
Za i = 1 do 10000
Raspon ("A1"). Vrijednost = i
Sljedeći i
Kada pritisnete gumb naredbe na radnom listu, Excel VBA prikazuje svaku vrijednost u sitnom djeliću sekunde, a to može potrajati.
2. Da biste ubrzali proces, ažurirajte kôd na sljedeći način.
Dim i Kao cijeli broj
Application.ScreenUpdating = Netačno
Za i = 1 do 10000
Raspon ("A1"). Vrijednost = i
Sljedeći i
Application.ScreenUpdating = Istina
Kao rezultat toga, vaš će kôd raditi mnogo brže i vidjet ćete samo krajnji rezultat (10000).
DisplayAlerts
Možete uputiti Excel VBA da ne prikazuje upozorenja tijekom izvršavanja koda.
1. Na primjer, postavite naredbeni gumb na svoj radni list i dodajte sljedeći kodni redak:
ActiveWorkbook.Zatvorite
Kada pritisnete gumb naredbe na radnom listu, Excel VBA zatvara Excel datoteku i traži od vas da spremite promjene koje ste unijeli.
2. Da biste naredili programu Excel VBA da ne prikazuje ovo upozorenje tijekom izvršavanja koda, ažurirajte kôd na sljedeći način.
Application.DisplayAlerts = Netačno
ActiveWorkbook.Zatvorite
Application.DisplayAlerts = Istina
Kao rezultat toga, Excel VBA zatvara Excel datoteku, a da od vas ne traži da spremite promjene koje ste unijeli. Sve promjene su izgubljene.
Izračun
Prema zadanim postavkama izračun je postavljen na automatski. Zbog toga Excel automatski preračunava radnu knjigu svaki put kad se promijeni vrijednost koja utječe na formulu. Ako vaša radna knjiga sadrži mnoge složene formule, možete ubrzati makronaredbu postavljanjem izračuna na ručno.
1. Na primjer, postavite naredbeni gumb na svoj radni list i dodajte sljedeći kodni redak:
Primjena.Izračun = xlProračunPriručnik
Kada kliknete gumb naredbe na radnom listu, Excel VBA postavlja izračun na ručno.
2. To možete provjeriti klikom na Datoteka, Opcije, Formule.
3. Sada kada promijenite vrijednost ćelije A1, vrijednost ćelije B1 se ne preračunava.
Radnu knjigu možete ponovno izračunati pritiskom na F9.
4. U većini ćete situacija ponovno postaviti automatsko izračunavanje na kraju koda. Jednostavno dodajte sljedeći kodni redak kako biste to postigli.
Primjena.Izračun = xlIzračunAutomatski
