|
langage de programmation de Microsoft Excel , Visual Basic pour Applications ( VBA) , fait appel à des objets virtuels pour étendre les fonctionnalités d'Excel . L'un de ces objets est l'objet de la demande , ce qui permet aux programmeurs d'écrire des programmes VBA impact de l'application Excel lui-même. Événements de cette cause objets sous-routines appelées « fonctions d'événements» à exécuter. Tout code de programme que vous placez dans ces fonctions se déroulera lors de l' événement (par exemple nouvelle création , la sélection de feuille de classeur ) que la fonction a été écrit pour se produit. Un avantage de la rédaction de ce code est la capacité à filtrer les données que l'utilisateur y entre . L' environnement de programmation VBA pour instructions
1 Ouvrez Excel par un clic droit sur l'onglet d' une feuille de calcul dans un classeur ouvert , puis en sélectionnant l'option " Afficher le code " .
2 Double -cliquez sur la ligne du volet "Projet " "Ce classeur " pour ouvrir une nouvelle fenêtre de code.
3 Collez le code suivant dans la première ligne vide de la nouvelle fenêtre . Ce sous-programme , qui sera exécuté lorsque vous rouvrez le classeur en cours , crée une nouvelle instance de l' objet Application d'Excel . Ce faisant, le sous-programme rend les fonctions d'événements de l'objet Application disponible pour écrire des programmes pour .
Privé WithEvents objApp que l'application
Private Sub Workbook_Open ()
Set objApp = Demande
End Sub
4 Cliquez sur la liste déroulante de gauche vers le haut de la fenêtre de code . VBA permet d'afficher une liste d'objets que vous pouvez écrire du code de fonction d'événements. L'un des objets de la liste est la variable " objApp " vous déclarées et définies à l'étape précédente . Sélectionnez cet objet.
5 Cliquez sur la liste déroulante à droite de la fenêtre de code , puis sélectionnez la fonction d'événement " de NewWorkbook " . VBA va créer une fonction d'événements vide que vous allez écrire du code.
6 collez ou tapez le code de programme suivant au-dessus instruction " End Sub " du sous-programme " de objApp_NewWorkbook " .
MsgBox " Vous avez créé un nouveau classeur. "
7 Appuyez sur " Alt -F4 " pour fermer l'environnement VBA, puis appuyez sur la même séquence de touches pour fermer Excel. Enregistrez le classeur avec un nom de fichier valide , et avec une extension de fichier " * . Xlsm . " Enregistrement et la réouverture du classeur exécute la fonction d'événement Workbook_Open vous avez écrit à l'étape 3 . Cette fonction doit être exécuté pour activer les fonctions d'événements objApp à courir.
8 rouvrir le classeur que vous venez de fermer , puis appuyez sur " Control- N " pour créer un nouveau classeur. Le code que vous avez écrit pour le sous-programme objApp_NewWorkbook à l'étape 6 va exécuter et afficher le message "Vous avez créé un nouveau classeur. "
9 Appuyez sur " Alt- F11 " pour réintégrer le VBA environnement , puis collez la nouvelle fonction d'événement suivant dans n'importe quel espace vide de la fenêtre de code. Cette fonction de l'événement, qui se déroulera lorsque vous changez de n'importe quelle cellule du classeur actuellement ouvert , remplace le texte " JS " avec le texte " John Smith ".
objApp_SheetChange Private Sub ( ByVal Sh As Object , ByVal Target Comme Range)
Dim x
x = Target.Value
Si ( x = " JS ") Then
x = " John Smith "
Target.Value = x
End If End
sous
10 Retour vers Excel en appuyant sur " Alt- F11 ", puis tapez le texte " JS " dans n'importe quelle cellule . Lorsque vous appuyez sur " Entrée", la fonction d'événement objApp_SheetChange vous avez écrit à l'étape précédente va exécuter , et changer " JS " dans " John Smith ".
|
