Excelin tilariviä voidaan käyttää koodinäytönä. Kun VBA -koodisi on pitkä ja teet useita tehtäviä VBA: n avulla, poistat usein näytön päivityksen käytöstä, jotta et näe sitä välkkyvää. Mutta tämän vuoksi et saa tietää, mitä koodissasi tapahtuu.
Jos et tiedä missä excel -tilapalkki on, tässä se on:
Voit käyttää Excelin tilariviä saadaksesi tietoja Excelistä häiritsemättä koodin suorittamista. Voit näyttää Marcon vaiheet tilarivillä tai käyttää sitä edistymispalkkiin.
VBA -koodi viestien näyttämiseen Excelin tilarivillä
Application.StatusBar = "Viesti"
StatusBar on sovellusobjektin ominaisuus, joka käyttää tekstiä syötteenä.
Tässä esimerkissä näytän vain, mikä toiminto on käynnissä …
Sub DisplayMessageOnStatusBar () Application.ScreenUpdating = Väärä Application.StatusBar = "Kutsumistoiminto yksi" 'call function_1 Application.Wait (Nyt + TimeValue ("00: 00: 2")) Application.StatusBar = "Kutsutoiminto kaksi" 'Soita toiminto_2 Application.Wait (Nyt + TimeValue ("00: 00: 2")) Application.StatusBar = "Kutsutoiminto Kolme" 'Soita function_3 Application.Wait (Nyt + TimeValue ("00: 00: 2")) Application.StatusBar = "" Application.ScreenUpdating = Todellinen loppuosa
Tässä esimerkissä näytön päivitys on alussa asetettu False.
Ennen kuin kutsun funktiota_1, näytän viestin, joka kutsuu toimintoa yksi.
Application.Wait (Nyt + TimeValue ("00: 00: 2")) tämä koodirivi on vain väärennetty pitkä funktiokutsu, jotta saan 2 sekuntia nähdäkseni tämän tilarivilläni.
Tein sen ennen kaikkia toimintoja ja lopulta asetin tilarivin tyhjäksi (“”).
Tilapalkin viestit ovat varsin hyödyllisiä viestien näyttämiseen, kun käytetään pitkää koodia. Kun koodisi käy läpi useita vaiheita tai suorittaa pitkän silmukan, voit näyttää sen tilarivillä, jotta käyttäjä tietää koodin olevan käynnissä. Muussa tapauksessa käyttäjä voi ajatella, että järjestelmä on jumissa tai jotain.
Nyt voit saada älykkäästi tietoa tilapalkista käyttämällä Excel 2016: n, 2013: n, 2010: n ja 2007: n VBA: ta tämän yhden rivin avulla.
VANHA POSTI
Joidenkin vba -makrojen / -koodien suorittaminen tai tarvittavien toimintojen suorittaminen kestää kauan. Jos olet poistanut näytön päivityksen käytöstä linjan avulla Application.ScreenUpdating = Väärä koodin alussa, ja jos joku suorittaa koodin, he eivät tiedä mitä tapahtuu ja ajattelevat, että tietokonejärjestelmä ei vastaa. Voit pyytää koodia näyttämään tilapalkissa tilasanoman, jotta käyttäjä saa tiedon koodin nykyisestä tilasta.
Tässä on yksinkertainen koodi, joka antaa viestiruudun, joka näyttää sarakkeen A arvot alkaen rivistä 2 viimeiseen riviin. Tilarivillä näkyy viesti "Makro käynnissä", kun koodi on käynnissä, ja kun koodi on valmis, se näyttää "Valmis", joka on yksi Excelin oletusviesteistä.
Option Explicit Sub macro1 () Dim i As Long, lrow As Long Application.ScreenUpdating = False Application.DisplayAlerts = False Application.DisplayStatusBar = True With Sheets ("Sheet1") lrow = .Range ("A" & .Rows.Count) .End (xlUp) .Row Jos i = 2 hidastaa Application.StatusBar = "Makro käynnissä" Msgbox .Range ("A" & i) .Arvo Seuraava i End With Application.StatusBar = "" Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
Jos haluat kopioida yllä olevan koodin tiedostoosi,
- Paina näppäimistön näppäinyhdistelmää Alt + F11.
- Vasemmalla puolella näet Microsoft Excel -objektit.
- Napsauta hiiren kakkospainikkeella ja valitse Lisää.
- Napsauta sitten Moduuli.
- Kopioi koodi oikealla olevaan koodi -ikkunaan.
Näet alla olevassa moduulissa julkaistun koodin -
Nyt ymmärrämme, mitä koodin jokainen rivi tekee -
Joten ensin asetamme DISPLAYSTATUSBAR -asetukseksi tosi ja sitten asetamme viestin tilariville. Kun käytämme Application.StatusBar = "" koodin lopussa se palaa oletusarvoiseen Excel -viestiin, joka on VALMIS.
Tässä kuva tilapalkista makron ollessa käynnissä.
Kun makro on valmis, tilarivi näkyy seuraavasti -
Joten vastaavasti voit päivittää tilarivin koodin eri osiin, jotta käyttäjä tietää, mitä tapahtuu makron ollessa käynnissä. Joskus voi olla yksi tai useampi makro, jotka kattavat useita prosesseja, ja tämä tilarivi on hyödyllinen tietää, missä prosessissa makro on saavuttanut.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse
Suosittuja artikkeleita:
50 Excel -pikanäppäintä tuottavuuden lisäämiseksi
VLOOKUP -toiminnon käyttäminen Excelissä
COUNTIF -toiminnon käyttäminen Excelissä
SUMIF -toiminnon käyttäminen Excelissä