Kun sinulla on suuri vba -makro / koodi, joka on suoritettava monta minuuttia, voit vaihtaa kohdistimen tiimalasi- tai odotuskursoriksi (järjestelmäasetuksesi perusteella) sen ajanjakson ajaksi, jolloin makro on käynnissä. Kun makro on valmis, kohdistin voidaan palauttaa oletuskursoriksi.
Tämä on esimerkkikoodi, joka osoittaa, kuinka voit muuttaa kohdistinta.
Vaihtoehto Selkeä
Alamakro1 ()
Application.Cursor = xl Odota
’Koodi täällä
Application.Cursor = xlOletus End Sub
- Hämärien lausuntojen (tällä mallikoodilla ei vielä ole) jälkeen asetamme Application.Cursor = xl Odota koodin alussa.
- Sitten voit lisätä mitä koodia tarvitset. Jos sinun on kutsuttava useita alihankintoja / menettelyjä, voit tehdä sen täällä tai syöttää vain koko koodin täällä.
- Sitten juuri ennen End Sub -lausetta sinun on palautettava kohdistin takaisin oletusarvoon. Teemme tämän linjan avulla Application.Cursor = xlOletus
- Voit sisällyttää kaikki muut tarvitsemasi lausunnot Application.ScreenUpdating = VäärätaiApplication.DisplayAlerts = Vääräkanssa Application.Cursor = xl Odotalausunto. Samoin voit sisällyttää Application.ScreenUpdating = Totta tai Application.DisplayAlerts = Totta kanssa Application.Cursor = xlOletuslausunto.
- Kopioi tämä koodi painamalla näppäimistön Alt + F11 -näppäimiä. Tämä avaa koodimoduulin. Vasemmalla puolella näet Microsoft Excel -objektit. Napsauta hiiren kakkospainikkeella ja valitse Lisää ja valitse sitten Moduuli. Kopioi koodi oikealla olevaan koodi -ikkunaan.