Ja jums ir liels vba makro / kods, kas jādarbina daudzas minūtes, varat mainīt kursoru uz smilšu pulksteņa vai gaidīšanas kursoru (pamatojoties uz jūsu sistēmas iestatījumiem) laika periodam, kad makro darbojas. Kad makro ir pabeigts, kursoru var atjaunot pēc noklusējuma kursora.
Šis ir koda paraugs, kas parāda, kā mainīt kursoru.
Skaidrs variants
Apakšmakro1 ()
Lietojumprogramma. Kursors = xl
'Kodējiet šeit
Application.Cursor = xl Noklusējums Beigt apakš
- Pēc blāviem paziņojumiem (šim parauga kodam vēl nav neviena), mēs iestatām Lietojumprogramma. Kursors = xl koda sākumā.
- Tad jūs varat iekļaut jebkuru kodu, kas jums nepieciešams, lai palaistu. Ja jums ir nepieciešams izsaukt vairākas apakšsadaļas / procedūras, varat to izdarīt šeit vai vienkārši ievadīt visu kodu šeit.
- Tad tieši pirms paziņojuma End Sub, kursors ir jāatiestata pēc noklusējuma. Mēs to darām, izmantojot līniju Application.Cursor = xl Noklusējums
- Jūs varat iekļaut visus pārējos nepieciešamos apgalvojumus, piemēram Application.ScreenUpdating = NepareizivaiApplication.DisplayAlerts = Nepareizikopā ar Lietojumprogramma. Kursors = xlpaziņojums, apgalvojums. Līdzīgi jūs varat iekļaut Application.ScreenUpdating = Patiess vai Application.DisplayAlerts = Patiesa kopā ar Application.Cursor = xl Noklusējumspaziņojums, apgalvojums.
- Lai kopētu šo kodu, nospiediet tastatūras taustiņus Alt + F11. Tas atvērs koda moduli. Kreisajā pusē redzēsit Microsoft Excel objektus. Ar peles labo pogu noklikšķiniet un atlasiet Ievietot un pēc tam atlasiet Modulis. Kopējiet kodu koda logā labajā pusē.