U donjem lijevom kutu Excela pronaći ćete statusnu traku:
Excel koristi ovu statusnu traku za slanje poruka vama. Međutim, StatusBar svojstvo također se može prilagoditi pomoću VBA -e, omogućujući vam da prikažete vlastite poruke.
Poruka prilagođene trake statusa
Statusnu traku možete ažurirati vlastitom prilagođenom porukom u Excelu dok je pokrenuta makronaredba, koristeći Statusna traka imovine.
1. Postavite ovaj kôd u makronaredbu kad god želite ažurirati korisnika prilagođenom porukom statusne trake:
| 1 | Application.StatusBar = "Sada radim !!!" |
2. I na kraju makronaredbe postavite ovaj kôd da biste obrisali statusnu traku i vratili kontrolu natrag u Excel:
| 1 | Application.StatusBar = FALSE |
Onemogućite ažuriranje trake statusa
Umjesto prikazivanja poruke tijekom izvođenja postupka, možete onemogućiti traku statusa. To će povećati brzinu vašeg VBA koda jer Excel može preskočiti obradu poruke na statusnoj traci za prikaz.
Da biste onemogućili ažuriranje trake statusa dok je kôd pokrenut, postavite DisplayStatusBar svojstvo na lažno.
| 1 | Application.DisplayStatusBar = Netačno |
Na kraju koda vratite ažuriranje trake statusa:
| 1 | Application.DisplayStatusBar = Istina |
Važno! Koristiti Statusna traka svojstvo za postavljanje poruka, ali koristite DisplayStatusBar svojstvo za potpuno onemogućavanje ili omogućavanje statusne trake.
Ubrzajte VBA kod
Za optimalnu brzinu obrade pokušajte upotrijebiti ovaj kod:
| 12345678910111213141516 | pod RunFast ()Application.ScreenUpdating = NetačnoApplication.DisplayStatusBar = NetačnoApplication.EnableEvents = NetačnoActiveSheet.DisplayPageBreaks = NetačnoPrimjena.Izračun = xlProračunPriručnik»Ovdje je vaša šifraApplication.ScreenUpdating = IstinaApplication.DisplayStatusBar = IstinaApplication.EnableEvents = IstinaActiveSheet.DisplayPageBreaks = IstinaPrimjena.Izračun = xlIzračunAutomatskikraj pod |
