Statusna traka u Excelu može se koristiti kao monitor koda. Kad je vaš VBA kôd dugačak i obavite nekoliko zadataka pomoću VBA -a, često onemogućujete ažuriranje zaslona kako ne biste vidjeli kako zaslon treperi. Ali zbog toga ne možete znati što se događa u vašem kodu.
Ako ne znate gdje je statusna traka u excelu, evo je:
Možete koristiti statusnu traku programa Excel za dobivanje informacija iz programa Excel bez ometanja izvršavanja koda. Možete prikazati stupnjeve svog Marca na statusnoj traci ili ga koristiti kao traku napretka.
VBA kôd za prikaz poruka na statusnoj traci programa Excel
Application.StatusBar = "Poruka"
Statusna traka je svojstvo aplikacijskog objekta koje uzima tekst kao ulaz.
U ovom primjeru samo pokazujem koja funkcija radi …
Sub DisplayMessageOnStatusBar () Application.ScreenUpdating = Netačno Application.StatusBar = "Pozivanje prve funkcije" 'call function_1 Application.Wait (Sada + TimeValue ("00: 00: 2")) Application.StatusBar = "Pozivanje druge funkcije" 'Call function_2 Application.Wait (Sada + TimeValue ("00: 00: 2")) Application.StatusBar = "Funkcija pozivanja tri" 'Call function_3 Application.Wait (Now + TimeValue ("00: 00: 2")) Application.StatusBar = "" Application.ScreenUpdating = True End Sub
U ovom primjeru ažuriranje zaslona postavljeno je na početku Netačno.
Sada, prije pozivanja funkcije_1, prikazujem poruku koja poziva funkciju jedan.
Application.Wait (Now + TimeValue ("00: 00: 2")) ovaj red koda služi samo za lažiranje dugotrajnog poziva funkcije, tako da imam 2 sekunde da to vidim na statusnoj traci.
Učinio sam to prije svih poziva funkcija, a na kraju sam statusnu traku postavio praznom ("").
Poruke statusne trake vrlo su korisne za prikaz poruka tijekom rada s dugačkim kodom. Kada vaš kôd prolazi kroz više faza ili izvodi dugu petlju, to možete prikazati na statusnoj traci kako bi korisnik znao da je kôd pokrenut. U protivnom, korisnik može pomisliti da je sustav obješen ili nešto slično.
Sada možete pametno dobiti informacije o statusnoj traci pomoću VBA programa Excel 2016, 2013, 2010 i 2007 pomoću ove jednoslojne linije.
STARA POŠTA
Određenim vba makroima / kodovima potrebno je puno vremena za pokretanje ili izvršavanje potrebnih radnji. Ako ste isključili ažuriranje zaslona pomoću linije Application.ScreenUpdating = Netačno na početku vašeg koda, ako neki korisnik pokrene kôd, neće znati što se događa i pomislit će da računalni sustav ne reagira. Možete zatražiti od koda da prikaže statusnu poruku na statusnoj traci kako bi korisnik bio obaviješten o trenutnom statusu koda.
Ovdje je jednostavan kod koji daje okvir s porukom koji prikazuje vrijednosti u stupcu A počevši od reda 2 do posljednjeg retka. Statusna traka prikazat će poruku "Makro radi" dok je kôd pokrenut, a nakon što je kôd dovršen, prikazat će se "Spremno", što je jedna od zadanih Excel poruka.
Opcija Eksplicitna podmakro1 () Dim i As Long, lrow As Long Application.ScreenUpdating = False Application.DisplayAlerts = False Application.DisplayStatusBar = Istina s radnim listovima ("Sheet1") lrow = .Range ("A" & .Rows.Count) .End (xlUp) .Row Za i = 2 da prikaže Application.StatusBar = “Makro pokrenut” Msgbox .Range (“A” & i) .Vrijednost Sljedeća i završi s Application.StatusBar = “” Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
Da biste gornji kôd kopirali u svoju datoteku,
- Pritisnite Alt + F11 na tipkovnici.
- S lijeve strane vidjet ćete Microsoft Excel objekte.
- Desnom tipkom miša kliknite i odaberite Umetni.
- Zatim kliknite na Modul.
- Kopirajte kôd u prozor koda s desne strane.
Kôd objavljen u modulu ispod možete vidjeti -
Sada shvatimo što svaki redak koda radi -
Dakle, prvo smo postavili DISPLAYSTATUSBAR na true, a zatim smo postavili poruku za statusnu traku. Nakon što koristimo Application.StatusBar = "" na kraju koda vratit će se na zadanu Excel poruku koja je SPREMNA.
Evo slike statusne trake dok je makro pokrenut.
Nakon što makro završi, statusna traka prikazat će se na sljedeći način -
Slično tome, možete ažurirati statusnu traku na različitim dijelovima koda, tako da korisnik zna što se događa dok se makro izvodi. Ponekad bi moglo postojati jedna ili više makronaredbi koje pokrivaju više procesa, a ova statusna traka bit će korisna za saznanje u kojem je procesu makro dosegnut.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte
Popularni članci:
50 Excel prečaca za povećanje vaše produktivnosti
Kako koristiti funkciju VLOOKUP u Excelu
Kako koristiti funkciju COUNTIF u Excelu
Kako koristiti funkciju SUMIF u Excelu