Comment créer des formulaires en utilisant excel

Ouvrez un classeur dans Excel. Si vous savez quel classeur que vous voulez que votre formulaire d`appartenir à, alors il est temps de l`ouvrir. Utilisez le menu Fichier pour accéder au classeur.

Clique sur le "Outils" menu, sélectionnez "Macro" et cliquez sur "Visual Editor Basic."

Cliquez "Insérer," puis sélectionnez "UserForm."

Faites glisser un bouton de commande sur le formulaire. Vous avez besoin d`au moins trois d`entre eux pour cet exemple.

Mettez les noms sur vos boutons et étiquettes commande. Cliquez "Vue" et "Fenêtre Propriétés." Cliquez sur l`un des boutons de commande que vous avez placé sur le formulaire.

Nommez le bouton de commande qui va lire "D`accord" en cliquant sur le paramètre de nom dans la fenêtre Propriétés et en tapant "cmdOK". Clique sur le "Légende" réglage dans la fenêtre Propriétés et tapez "D`accord".

Cliquez sur un autre bouton de commande. Nom celui "cmdCancel," et définir la légende pour lire "Annuler" dans la fenêtre Propriétés.

Cliquez sur le troisième bouton de commande, nommez-le "cmdClearForm" et modifier le réglage de la légende pour lire "Forme claire."

Hit the "F7" touche de fonction de votre clavier pour faire apparaître la fenêtre de code.

Cliquez sur les listes déroulantes en haut de la fenêtre de code. Cliquez sur la liste en haut à gauche pour ouvrir le sous-procédure nommée "Formulaire d`utilisateur" et cliquez sur l`autre liste déroulante pour sélectionner "Initialiser."

Supprimer le sous-procédure indiquée ci-dessus qui lit: UserForm_Click (procédure).

Tapez le code suivant dans la fenêtre de code (ne tapez pas sur le bleu texte- ajouter simplement le texte noir):
Private Sub UserForm_Initialize ()

txtName.Value = ""
txtPhone.Value = ""
Avec cboDepartment
.Ajouter un item "Des employés"
.Ajouter un item "gestionnaires"
Terminer par
YourCourse.Value = ""
optIntroduction = True
chkWork = Faux
chkVacation = False
txtName.SetFocus

End Sub

Entrez votre code dans le bouton Annuler. Double-cliquez sur le bouton Annuler pour ouvrir la fenêtre de code. Tapez votre code de sorte que la fenêtre de code lit: Private Sub cmdCancel_Click ()

Unload Me

End Sub

Ouvrez la fenêtre de code pour le bouton Effacer le formulaire. Rappelez-vous double-cliquez sur le "Forme claire" bouton.

Tapez votre code dans la fenêtre de code afin qu`il se lise:
Private Sub cmdClearForm_Click ()

Appelez UserForm_Initialize

End Sub

Double-cliquez sur le "D`accord" bouton pour ajouter le code suivant dans la fenêtre de code:

Private Sub cmdOK_Click ()

ActiveWorkbook.Sheets ("Ton travail").Activer
Gamme("A1").Sélectionner
Faire
Si IsEmpty (ActiveCell) = FalseThen
ActiveCell.Offset (1, 0) .Select
Fin si
Boucle jusqu`à IsEmpty (ActiveCell) = Vrai
ActiveCell.Value = txtName.Value
ActiveCell.Offset (0, 1) = txtPhone.Value
ActiveCell.Offset (0, 2) = cboDepartment.Value
ActiveCell.Offset (0, 3) = cboCourse.Value
Si optIntroduction = True Then
ActiveCell.Offset (0, 4) .Value = "Intro"
ElseIf optIntermediate = True Then
ActiveCell.Offset (0, 4) .Value = "Intermed"
Autre
ActiveCell.Offset (0, 4) .Value = "Adv"
Fin si
Si chkLunch = True Then
ActiveCell.Offset (0, 5) .Value = "Oui"
Autre
ActiveCell.Offset (0, 5) .Value = "Non"
Fin si
Si chkWork = True Then
ActiveCell.Offset (0, 6) .Value = "Oui"
Autre
Si chkVacation = False Then
ActiveCell.Offset (0, 6) .Value = ""
Autre
ActiveCell.Offset (0, 6) .Value = "Non"
Fin si
Fin si
Gamme("A1").Sélectionner

End Sub