|
? Vous pouvez facilement créer un formulaire de saisie de données avec un bouton trouverez dans votre application Microsoft Excel à l'aide d' un « UserForm » et Visual Basic pour Applications ( VBA) . Un « UserForm » est une interface utilisateur où vous pouvez placer des contrôles tels que les zones de texte et des boutons. VBA est le langage de programmation que vous pouvez utiliser pour exécuter la fonction "Rechercher " commandement méthode et la recherche de texte dans votre feuille de calcul Excel. La méthode "Find" va rechercher un terme et renvoie la valeur si elle le juge , faute de quoi il retourne rien . Instructions
1 lancement de Microsoft Excel , tapez " un" en A1, «deux» dans A2 , "trois" en A3, "quatre" en A4, et «cinq» en A5 . Cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic ". Cliquez sur le menu "Insertion" et en cliquant sur « UserForm » pour ajouter une nouvelle forme . Cliquez sur " TextBox " sur le volet Boîte à outils et cliquez sur le formulaire pour ajouter une nouvelle zone de texte. Ajouter un nouveau «label » en utilisant la même technique. Ajouter un " bouton de commande " à votre forme également avec la même technique .
2 Double- cliquez sur le bouton pour créer un événement de clic du bouton . Ajoutez le code suivant pour définir une déclaration " GoTo " pour capturer les erreurs :
Private Sub CommandButton1_Click () On Error GoTo Err_CommandButton1_Click :
3 Définir la variable de chaîne vous utiliser pour enregistrer le texte que vous voulez trouver dans votre feuille de calcul:
fINDSTR As StringfindStr = TextBox1.Text
4 Copiez et collez le code suivant pour exécuter la méthode "Find" et consulter la feuille de calcul de la valeur entrée dans le contrôle de zone de texte :
Me.Label1.Caption = Cells.Find (What : = fINDSTR , After : = ActiveCell , LookIn : = xlFormulas , LookAt _: = xlPart , SearchOrder : = xlByRows , SearchDirection : = xlNext , MatchCase : . = _false ) Valeur & "a été trouvé dans votre feuille de calcul ! "
5 Ajoutez le code suivant pour mettre fin à l'événement click et afficher un message si la chaîne n'a pas été trouvée :
Exit_CommandButton1_Click : Sortie SubErr_CommandButton1_Click : MsgBox (" ! la chaîne que vous avez entré n'a pas été trouvé dans votre feuille de calcul " ) Reprendre Exit_CommandButton1_Click : End Sub
6 Appuyez sur " F5" pour exécuter le programme et le type «deux» dans le contrôle de zone de texte. Appuyez sur " CommandButton1 " pour afficher un message sur l'étiquette ou une boîte de message si le texte n'a pas été trouvé .
|
