În colțul din stânga jos al Excel, veți găsi o bară de stare:
Excel folosește această bară de stare pentru a vă comunica mesaje. Cu toate acestea, Proprietatea StatusBar poate fi ajustată și utilizând VBA, permițându-vă să afișați propriile mesaje.
Mesaj bara de stare personalizată
Puteți actualiza bara de stare cu propriul mesaj personalizat în Excel în timp ce rulează o macro, utilizând Bara de stare proprietate.
1. Plasați acest cod într-o macrocomandă ori de câte ori doriți să actualizați utilizatorul cu un mesaj personalizat în bara de stare:
1 | Application.StatusBar = "Lucrez acum !!!" |
2. Și la sfârșitul macro-ului dvs. plasați acest cod pentru a șterge bara de stare și a reveni la controlul în Excel:
1 | Application.StatusBar = FALS |
Dezactivați actualizarea barei de stare
În loc să afișați un mesaj în timp ce procedura dvs. rulează, puteți dezactiva bara de stare. Acest lucru va crește viteza codului VBA, deoarece Excel poate sări peste procesarea mesajului din bara de stare pentru a afișa.
Pentru a dezactiva actualizarea barei de stare în timp ce codul dvs. rulează, setați DisplayStatusBar proprietate la fals.
1 | Application.DisplayStatusBar = Fals |
La sfârșitul codului, restaurați actualizarea barei de stare:
1 | Application.DisplayStatusBar = Adevărat |
Important! Folosește Bara de stare pentru a seta mesaje, dar utilizați DisplayStatusBar proprietate pentru a dezactiva sau activa bara de stare cu totul.
Accelerați codul VBA
Pentru o viteză optimă de procesare, încercați să utilizați acest cod:
12345678910111213141516 | sub RunFast ()Application.ScreenUpdating = FalsApplication.DisplayStatusBar = FalsApplication.EnableEvents = FalsActiveSheet.DisplayPageBreaks = FalsApplication.Calculation = xlCalculationManual„Codul tău aiciApplication.ScreenUpdating = AdevăratApplication.DisplayStatusBar = AdevăratApplication.EnableEvents = AdevăratActiveSheet.DisplayPageBreaks = AdevăratApplication.Calculation = xlCalculationAutomaticend sub |