|
Créer un formulaire dans Excel , en utilisant les commandes groupées dans un cadre, qui va produire des champs de texte simples où l'utilisateur peut entrer ses informations . Créez trois boutons de commande sur le formulaire qui aura un effet sur les informations contenues dans le formulaire lorsque l'utilisateur effectue un clic gauche avec la souris . Il est simple de créer une forme qui donnera la liste des employés ou des gestionnaires , et vérifier leur état . Instructions
1 ouvrez un classeur dans Excel. Si vous savez quel classeur que vous voulez que votre formulaire d'appartenir à , alors c'est maintenant le temps pour l'ouvrir. Utilisez le menu Fichier pour ouvrir le classeur.
2 Cliquez sur le menu " Outils" , sélectionnez "Macro" et cliquez sur " Visual Basic Editor. "
3 Cliquez sur " Insérer", puis sélectionnez « UserForm ».
4 Faites glisser un bouton de commande sur le formulaire. Vous devez avoir au moins trois d'entre eux pour cet exemple.
5 mettre des noms sur vos boutons de commande et des étiquettes. Cliquez sur "View " et " Fenêtre Propriétés. " Cliquez sur l'un des boutons de commande que vous avez placé sur le formulaire.
6 Nom du bouton de commande qui va lire "OK" en cliquant sur le réglage du nom dans la fenêtre Propriétés et en tapant " cmdOK " . Cliquez sur l'option " Légende" dans la fenêtre Propriétés et tapez sur "OK" .
7 Cliquez sur un autre bouton de commande. Nommez celui-ci " cmdCancel », et définir la légende de lire "Annuler" dans la fenêtre Propriétés .
8 Cliquez sur le troisième bouton de commande , nommez-le " cmdClearForm " et modifier la légende mettre à lire " Effacer le formulaire ».
9 appuyez sur la touche de fonction " F7 " sur votre clavier pour faire apparaître la fenêtre de code .
10 Cliquez sur les listes déroulantes à la partie supérieure de la fenêtre de code . Cliquez sur la liste en haut à gauche pour ouvrir le sous-procédure nommée « User Form " et cliquez sur l'autre liste déroulante pour sélectionner
11 Supprimer la sous-procédure indiquée ci-dessus qui lit " Initialisation ". : UserForm_Click () procédure
12 tapez le code suivant dans la fenêtre de code (ne tapez pas sur le texte en bleu , il suffit d'ajouter le texte en noir ) : . Private Sub UserForm_Initialize () txtName.Value = "" txtPhone . Value = " " Avec cboDepartment.AddItem «employés». AddItem "" End With
YourCourse.Value = " Managers " optIntroduction = TruechkWork = FalsechkVacation = FalsetxtName.SetFocusEnd Sous
13 Saisissez votre code dans le bouton Annuler. Double-cliquez sur le bouton Annuler pour ouvrir la fenêtre de code. Tapez votre code afin que la fenêtre de code lit : Private Sub cmdCancel_Click () Unload MeEnd Sous
14 Ouvrez la fenêtre de code pour le bouton Effacer le formulaire . N'oubliez pas de double-cliquer sur le bouton "Effacer le formulaire "
15 Saisissez votre code dans la fenêtre de code afin qu'il se lise : . Private Sub cmdClearForm_Click () Appelez UserForm_InitializeEnd Sous
16 < p> Double- cliquez sur le bouton "OK " pour ajouter le code suivant dans la fenêtre de code : . .
Private Sub cmdOK_Click () ActiveWorkbook.Sheets ( " YourWork " ) ActivateRange ( "A1") SelectDoIf EstVide ( ActiveCell ) = FalseThenActiveCell.Offset (1, 0) . SelectEnd IfLoop Jusqu'à EstVide ( ActiveCell ) = TrueActiveCell.Value = txtName.ValueActiveCell.Offset (0 , 1) = txtPhone.ValueActiveCell.Offset (0, 2) = cboDepartment.ValueActiveCell . Offset ( 0, 3) = cboCourse.ValueIf optIntroduction = True ThenActiveCell.Offset (0 , 4). Value = " Intro" ElseIf optIntermediate = True ThenActiveCell.Offset (0 , 4). Value = ElseActiveCell.Offset " Intermed " (0 , 4). Value = End " Adv " IFIF chkLunch = True ThenActiveCell.Offset (0 , 5). Value = " Oui " ElseActiveCell.Offset (0 , 5). Value = " Non" End IFIF chkWork = True ThenActiveCell.Offset (0 , 6). Value = " Oui " ElseIf chkVacation = False ThenActiveCell.Offset (0 , 6). Value = " " ElseActiveCell.Offset (0 , 6). Value = " Non" End IfEnd IfRange ( "A1") . SelectEnd Sous
|
