Excel statusa joslu var izmantot kā koda monitoru. Ja jūsu VBA kods ir garš un veicat vairākus uzdevumus, izmantojot VBA, jūs bieži atspējojat ekrāna atjaunināšanu, lai neredzētu ekrāna mirgošanu. Bet šī iemesla dēļ jūs nezināt, kas notiek jūsu kodā.
Ja jūs nezināt, kur atrodas statusa josla programmā Excel, šeit tas ir:
Varat izmantot Excel statusa joslu, lai iegūtu informāciju no Excel, netraucējot koda izpildi. Jūs varat parādīt savus Marco posmus statusa joslā vai izmantot to kā progresa joslu.
VBA kods, lai parādītu ziņojumus Excel statusa joslā
Application.StatusBar = "Ziņojums"
StatusBar ir lietojumprogrammas objekta rekvizīts, kas ievada tekstu.
Šajā piemērā es tikai parādīju, kura funkcija darbojas …
Sub DisplayMessageOnStatusBar () Application.ScreenUpdating = False Application.StatusBar = "Pirmā izsaukšanas funkcija" 'zvana funkcija_1 Application.Wait (Tagad + TimeValue ("00: 00: 2")) Application.StatusBar = "Otrā izsaukšanas funkcija" 'Zvana funkcija_2 Application.Wait (Tagad + TimeValue ("00: 00: 2")) Application.StatusBar = "Zvanīšanas funkcija Trīs" 'Zvanīt function_3 Application.Wait (Tagad + TimeValue ("00: 00: 2")) Application.StatusBar = "" Application.ScreenUpdating = True End Sub
Šajā piemērā ekrāna atjaunināšana sākumā ir iestatīta kā False.
Tagad pirms funkcijas_1 izsaukšanas es parādīju ziņojumu, kas izsauc pirmo funkciju.
Application.Wait (Tagad + TimeValue ("00: 00: 2")) šī koda rinda ir paredzēta, lai viltotu garu funkciju izsaukumu, lai man būtu 2 sekundes, lai to redzētu savā statusa joslā.
Es to izdarīju pirms visiem funkciju izsaukumiem un beigās es iestatīju statusa joslu uz tukšu (“”).
Statusa joslas ziņojumi ir diezgan noderīgi, lai parādītu ziņojumus, strādājot ar garu kodu. Kad jūsu kods iziet vairākus posmus vai veic garu cilpu, varat to parādīt statusa joslā, lai lietotājs zinātu, ka kods darbojas. Pretējā gadījumā lietotājam var šķist, ka sistēma ir pakārusi vai tamlīdzīgi.
Tagad jūs varat gudri iegūt informāciju statusa joslā, izmantojot Excel 2016, 2013, 2010 un 2007 VBA, izmantojot šo vienu līnijpārvadātāju.
VECS PASTS
Atsevišķu vba makro / kodu palaišana vai vajadzīgo darbību izpilde prasa daudz laika. Ja esat izslēdzis ekrāna atjaunināšanu, izmantojot līniju Application.ScreenUpdating = Nepareizi jūsu koda sākumā, tad, ja kāds lietotājs palaiž kodu, viņš nezinās, kas notiek, un domās, ka datorsistēma nereaģē. Jūs varat lūgt kodu, lai statusa joslā tiktu parādīts statusa ziņojums, lai lietotājs tiktu informēts par koda pašreizējo statusu.
Šeit ir vienkāršs kods, kas sniedz ziņojumu lodziņu, kurā parādītas vērtības A slejā, sākot no 2. rindas līdz pēdējai rindai. Statusa joslā tiks parādīts ziņojums “Makro darbojas”, kad kods darbojas, un, kad kods ir pabeigts, tas parādīs “Gatavs”, kas ir viens no noklusējuma Excel ziņojumiem.
Opcija Explicit Sub macro1 () Dim i As Long, lrow As Long Application.ScreenUpdating = False Application.DisplayAlerts = False Application.DisplayStatusBar = True Ar darblapām (“Sheet1”) lrow = .Range (“A” & .Rows.Count) .End (xlUp) .Row Attiecībā uz i = 2, lai pārlūkotu Application.StatusBar = “Makro darbojas” Msgbox .Range (“A” & i). = True End Sub
Lai kopētu iepriekš minēto kodu savā failā,
- Nospiediet tastatūras taustiņu kombināciju Alt + F11.
- Kreisajā pusē redzēsit Microsoft Excel objektus.
- Ar peles labo pogu noklikšķiniet un atlasiet Ievietot.
- Pēc tam noklikšķiniet uz moduļa.
- Kopējiet kodu koda logā labajā pusē.
Jūs varat redzēt zemāk esošajā modulī ievietoto kodu -
Tagad sapratīsim, ko dara katra koda rinda -
Tāpēc vispirms mēs iestatījām DISPLAYSTATUSBAR uz true un pēc tam iestatījām ziņojumu statusa joslai. Kad mēs izmantojam Application.StatusBar = “” koda beigās tas atgriezīsies noklusējuma Excel ziņojumā, kas ir GATAVS.
Šeit ir statusa joslas attēls, kamēr makro darbojas.
Kad makro ir pabeigts, statusa josla tiks parādīta šādi -
Līdzīgi varat atjaunināt statusa joslu dažādās koda daļās, lai lietotājs zinātu, kas notiek makro darbības laikā. Dažreiz var būt viens vai vairāki makro, kas aptver vairākus procesus, un šī statusa josla būs noderīga, lai uzzinātu, kurā procesā makro ir sasniegts.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē
Populāri raksti:
50 Excel saīsnes, lai palielinātu produktivitāti
Kā lietot funkciju VLOOKUP programmā Excel
Kā programmā Excel izmantot funkciju COUNTIF
Kā lietot funkciju SUMIF programmā Excel