Excel apakšējā kreisajā stūrī atradīsit statusa joslu:
Programma Excel izmanto šo statusa joslu, lai nosūtītu jums ziņojumus. Tomēr StatusBar rekvizītu var arī pielāgot, izmantojot VBA, ļaujot jums parādīt savus ziņojumus.
Pielāgots statusa joslas ziņojums
Varat atjaunināt statusa joslu ar savu pielāgoto ziņojumu programmā Excel, kamēr darbojas makro, izmantojot Statusa josla īpašums.
1. Ievietojiet šo kodu makro ikreiz, kad vēlaties atjaunināt lietotāju ar pielāgotu statusa joslas ziņojumu:
1 | Application.StatusBar = "Es tagad strādāju !!!" |
2. Un makro beigās ievietojiet šo kodu, lai notīrītu statusa joslu un atgrieztu vadīklu atpakaļ programmā Excel:
1 | Application.StatusBar = FALSE |
Atspējot statusa joslas atjaunināšanu
Tā vietā, lai procedūras laikā parādītu ziņojumu, varat atspējot statusa joslu. Tas palielinās jūsu VBA koda ātrumu, jo Excel var izlaist statusa joslas ziņojuma apstrādi.
Lai atspējotu statusa joslas atjaunināšanu, kamēr darbojas kods, iestatiet DisplayStatusBar īpašums ir nepatiess.
1 | Application.DisplayStatusBar = Nepareizs |
Koda beigās atjaunojiet statusa joslas atjaunināšanu:
1 | Application.DisplayStatusBar = Patiesa |
Svarīgs! Izmantojiet Statusa josla īpašumu, lai iestatītu ziņojumus, bet izmantojiet DisplayStatusBar īpašumu, lai atspējotu vai vispār iespējotu statusa joslu.
Paātriniet VBA kodu
Lai iegūtu optimālu apstrādes ātrumu, mēģiniet izmantot šo kodu:
12345678910111213141516 | sub RunFast ()Application.ScreenUpdating = NepareiziApplication.DisplayStatusBar = NepareizsApplication.EnableEvents = NepareiziActiveSheet.DisplayPageBreaks = NepareiziApplication.Calculation = xlCalculationManual'Jūsu kods šeitApplication.ScreenUpdating = PatiessApplication.DisplayStatusBar = PatiesaApplication.EnableEvents = PatiessActiveSheet.DisplayPageBreaks = PatiesaApplication.Calculation = xlCalculationAutomaticbeigu apakš |