Représenter Excel VBA comme un sablier

FONTE ZOOM:
Lorsque vous démarrez une macro, il est parfois difficile de reconnaître pour l'utilisateur si quelque chose arrive ou si le programme pourrait éventuellement être écrasé. Pour aider l'utilisateur dans ce cas, variant le pointeur de la souris. Comment vous représentez-vous la VBA comme un sablier, cliquez ici. Représenter Excel VBA comme un sablier

À cette fin, une ligne est insérée dans le programme, le curseur de sorte que les changements de pointeur de la souris. Que ce soit le sablier ou autre représentation dépend du réglage a été défini dans le Panneau de configuration pour le pointeur de la souris dans la position d'attente. Ici, il est possible d'utiliser en tant que symbole d'attente de sablier, mais d'autres réglages sont possibles. Afin de passer le pointeur de la souris au cours du processus, ajoutez la ligne de commande suivante:

Application.Cursor = xlWait

Réglez Excel VBA comme un sablier

Il est important que vous réinitialiser le curseur à la fin du programme de retour à sa position normale. Pour ce faire, ajouter à la fin du programme de la ligne de commande suivante:

Application.Cursor = xlDefault

Un programme complet pourrait ressembler à ceci:

Sous la souris
Application.Cursor = xlWait

Pour x = 1 à 100 000
Pour y = 1 Pour 10000
Suivant
Suivant

Application.Cursor = xlDefault
End Sub

Autres exemples sur ce sujet

Sous curseur
Dim Compteur As Long, Colonne As Integer

Application.Cursor = xlWait

Pour le numéro 1 = Pour 10000
Pour la colonne = 1 à 4
Cellules = "R:" et numéro et "C" et la colonne
DoEvents
Suivant
Suivant
Application.Cursor = xlDefault
End Sub

Sous la souris

  • Affichage curseur dans différents Ausrichungen
    MsgBox "Cliquez sur OK si vous voulez voir le curseur de la souris dans un sablier"
  • Afficher curseur dans un sablier
    Application.Cursor = xlWait
  • Arrêter Excel et Set Time
    Application.Wait maintenant + TimeValue
    MsgBox "Cliquez sur OK pour afficher comme pointeur de la souris flèche."
  • Affichage pointeur de la souris que je
    Application.Cursor = xlIBeam
  • Arrêter Excel et Set Time
    Application.Wait maintenant + TimeValue
    MsgBox "Cliquez sur OK pour afficher pointeur de la souris comme poutre en I».
  • Affichage pointeur de la souris comme Flèche
    Application.Cursor = xlNorthwestArrow
  • Arrêter Excel et Set Time
    Application.Wait maintenant + TimeValue
    MsgBox "Cliquez sur OK pour revenir à pointeur de la souris normale."
  • Réinitialiser pointeur à la normale
    Application.Cursor = xlNormal

End Sub

VOIR AUSSI:
  1.  
  2.  
  3.  
Sans commentaires

Laisser un commentaire

Code De Sécurité