Apatiniame kairiajame „Excel“ kampe rasite būsenos juostą:
„Excel“ naudoja šią būsenos juostą pranešimams jums perduoti. Tačiau „StatusBar“ ypatybę taip pat galima koreguoti naudojant VBA, kad galėtumėte rodyti savo pranešimus.
Tinkintas būsenos juostos pranešimas
Galite atnaujinti būsenos juostą naudodami savo pasirinktinį pranešimą „Excel“, kai veikia makrokomanda, naudodami Būsenos juosta nuosavybė.
1. Įdėkite šį kodą į makrokomandą, kai norite atnaujinti naudotoją pasirinktiniu būsenos juostos pranešimu:
1 | Application.StatusBar = "Aš dabar dirbu !!!" |
2. Makrokomandos pabaigoje įdėkite šį kodą, kad išvalytumėte būsenos juostą ir grąžintumėte valdiklį atgal į „Excel“:
1 | Application.StatusBar = FALSE |
Išjungti būsenos juostos atnaujinimą
Užuot rodę pranešimą, kol vykdoma procedūra, galite išjungti būsenos juostą. Tai padidins jūsų VBA kodo greitį, nes „Excel“ gali praleisti būsenos juostos pranešimo rodymą.
Norėdami išjungti būsenos juostos atnaujinimą, kol kodas veikia, nustatykite „DisplayStatusBar“ turtas melagingas.
1 | Application.DisplayStatusBar = Netiesa |
Kodo pabaigoje atkurkite būsenos juostos atnaujinimą:
1 | Application.DisplayStatusBar = Tiesa |
Svarbu! Naudoti Būsenos juosta nuosavybę, kad nustatytumėte pranešimus, bet naudokite „DisplayStatusBar“ nuosavybę, kad išjungtumėte arba apskritai įjungtumėte būsenos juostą.
Paspartinkite VBA kodą
Norėdami gauti optimalų apdorojimo greitį, pabandykite naudoti šį kodą:
12345678910111213141516 | sub RunFast ()Application.ScreenUpdating = NetiesaApplication.DisplayStatusBar = NetiesaApplication.EnableEvents = NetiesaActiveSheet.DisplayPageBreaks = NetiesaApplication.Calculation = xlCalculationManual'Jūsų kodas čiaApplication.ScreenUpdating = TiesaApplication.DisplayStatusBar = TiesaApplication.EnableEvents = TiesaActiveSheet.DisplayPageBreaks = TiesaApplication.Calculation = xlCalculationAutomaticpabaigos sub |