Exceli olekuriba saab kasutada koodimonitorina. Kui teie VBA -kood on pikk ja teete VBA -ga mitmeid ülesandeid, keelate sageli ekraani värskendamise, nii et te ei näe seda ekraani vilkumist. Kuid tänu sellele ei saa te teada, mis teie koodis toimub.
Kui te ei tea, kus on Exceli olekuriba, siis siin on see:
Exceli olekuriba saate Excelist teabe hankimiseks ilma koodi täitmist segamata. Saate kuvada olekuribal oma Marco etappe või kasutada seda edenemisribana.
VBA -kood sõnumite kuvamiseks Exceli olekuribal
Application.StatusBar = "Sõnum"
StatusBar on rakendusobjekti omadus, mis kasutab sisendina teksti.
Selles näites näitan lihtsalt, milline funktsioon töötab …
Alam DisplayMessageOnStatusBar () Application.ScreenUpdating = Vale Application.StatusBar = "Üks helistamisfunktsioon" 'kõnefunktsioon_1 Application.Oota (nüüd + TimeValue ("00: 00: 2")) Application.StatusBar = "Kõnefunktsioon kaks" 'Kõnefunktsioon_2 Application.Oota (nüüd + TimeValue ("00: 00: 2")) Application.StatusBar = "Kõnefunktsioon Kolm" 'Kõnefunktsioon_3 Application.Wait (Now + TimeValue ("00: 00: 2")) Application.StatusBar = "" Application.ScreenUpdating = True End Sub
Selles näites on ekraani värskendamine alguses määratud väärtusele Väär.
Nüüd, enne funktsiooni_1 helistamist, kuvan sõnumi, mis kutsub üles funktsiooni esimest.
Application.Oota (nüüd + TimeValue ("00: 00: 2")) see koodirida on mõeldud vaid pika funktsioonikõne võltsimiseks, nii et mul oleks 2 sekundit aega seda olekuribal näha.
Tegin seda enne kõiki funktsioonikõnesid ja lõpuks seadsin olekuriba tühjaks (“”).
Olekuriba sõnumid on üsna kasulikud sõnumite kuvamiseks pika koodiga töötamise ajal. Kui teie kood läbib mitu etappi või käivitab pika tsükli, saate seda olekuribal näidata, et kasutaja teaks, et kood töötab. Vastasel korral võib kasutaja arvata, et süsteem on hangunud või midagi.
Nüüd saate selle nutitelefoni abil Excel 2016, 2013, 2010 ja 2007 VBA abil nutikalt olekuribalt teavet hankida.
VANA POSTITUS
Teatud vba makrod / koodid nõuavad vajalike toimingute käivitamist või täitmist kaua aega. Kui olete ekraani värskendamise liini abil välja lülitanud Application.ScreenUpdating = Vale teie koodi alguses, siis kui mõni kasutaja koodi käivitab, ei tea nad, mis toimub, ja arvavad, et arvutisüsteem ei reageeri. Võite paluda koodil kuvada olekuribal olekuteade, et kasutajat teavitataks koodi hetkeseisust.
Siin on lihtne kood, mis annab sõnumikasti, mis näitab veeru A väärtusi alates 2. reast kuni viimase reani. Olekuribal kuvatakse koodi töötamise ajal teade „Makro töötab” ja kui kood on valmis, kuvatakse see „Valmis”, mis on üks Exceli vaikesõnumeid.
Valik Selge alammakro1 () Dim i nii pikk, lrow kui pikk rakendus.ScreenUpdating = False Application.DisplayAlerts = False Application.DisplayStatusBar = Tõsi töölehtedega („Sheet1”) lrow = .Range („A” & .Rows.Count) .End (xlUp) .Rida Rakenduse irow jaoks i = 2 jaoks. StatusBar = "Makro töötab" Msgbox .Range ("A" & i) .Väärtus Järgmine i Lõpeta rakendusega.StatusBar = "" Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
Ülaltoodud koodi oma faili kopeerimiseks tehke järgmist.
- Vajutage klaviatuuril klahve Alt + F11.
- Vasakul näete Microsoft Exceli objekte.
- Paremklõpsake ja valige Lisa.
- Seejärel klõpsake moodulil.
- Kopeerige kood paremal asuvasse koodiaknasse.
Näete allolevasse moodulisse postitatud koodi -
Nüüd mõistame, mida iga koodi rida teeb -
Nii seadsime kõigepealt DISPLAYSTATUSBAR väärtuseks true ja seejärel seadsime olekuribale sõnumi. Kui kasutame Application.StatusBar = "" koodi lõpus naaseb see Exceli vaikesõnumiks, mis on VALMIS.
Siin on olekuriba pilt makro töötamise ajal.
Pärast makro lõpetamist kuvatakse olekuriba järgmiselt:
Nii saate sarnaselt värskendada olekuriba koodi erinevates osades, et kasutaja saaks makro toimimise ajal teada, mis toimub. Mõnikord võib olla üks või mitu makrot, mis hõlmavad mitut protsessi ja see olekuriba on kasulik teada, millises protsessis makro on jõudnud.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile meilisaidile
Populaarsed artiklid:
50 Exceli otseteed tootlikkuse suurendamiseks
Funktsiooni VLOOKUP kasutamine Excelis
Funktsiooni COUNTIF kasutamine Excelis
Funktsiooni SUMIF kasutamine Excelis