? Sie können sehr einfach ein Erhebungsbogen mit a find Button in Ihrem Microsoft Excel-Anwendung unter Verwendung eines " UserForm " und Visual Basic für Applikationen ( VBA) . A " UserForm " ist eine Benutzeroberfläche , wo Sie Steuerelemente wie Textfelder und Schaltflächen platzieren können. VBA ist die Programmiersprache, die Sie verwenden, um die "Find "-Methode Befehl und die Suche nach Text in Ihrem Excel-Arbeitsblatt ausführen kann . Die "Find "-Methode wird für eine Amtszeit zu suchen und gibt den Wert , wenn er sie findet , sonst nichts zurückgibt . Anleitung
1

Starten Sie Microsoft Excel , geben Sie "Eins" in A1 , "zwei" in A2, "drei " in A3, "vier" in A4, und "fünf" in A5 . Klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic ". Klicken Sie auf das Menü "Einfügen" und klicken Sie auf " UserForm ", um eine neue Form hinzufügen. Klicken Sie auf " TextBox " in der Toolbox aus und klicken Sie das Formular, um ein neues Textfeld hinzuzufügen. Fügen Sie eine neue "Label"- mit der gleichen Technik . Fügen Sie ein " CommandButton " zu Ihrem Formular auch mit der gleichen Technik .
2

Doppelklicken Sie auf die Schaltfläche, um einen Click-Ereignis für die Schaltfläche erstellen. Fügen Sie den folgenden Code, um eine " GoTo "-Anweisung , um Fehler zu erfassen definieren :

Private Sub CommandButton1_Click () On Error GoTo Err_CommandButton1_Click :
3

Definieren Sie die String-Variable finden Sie verwenden, um den Text, den Sie in Ihrem Arbeitsblatt finden sparen:

Dim fINDSTR Wie StringfindStr = TextBox1.Text
4

Kopieren Sie den folgenden Code, um die "Find "-Methode ausführen und suchen Sie das Arbeitsblatt für den Wert in das Textfeld-Steuerelement eingegeben :

Me.Label1.Caption = Cells.Find ( What: = fINDSTR , After : = ActiveCell , LookIn : = xlFormulas , LookAt _: = xlPart , SearchOrder : = xlByRows , SearchDirection : = xlNext , MatchCase : . = _False ) Value & " wurde in Ihrem Arbeitsblatt gefunden! "
5

Fügen Sie den folgenden Code, um das Click-Ereignis zu beenden und eine Meldung angezeigt , wenn der String nicht gefunden wurde :

Exit_CommandButton1_Click : Ausfahrt SubErr_CommandButton1_Click : MsgBox (" ! die Zeichenfolge eingegeben wurde, nicht in Ihrem Arbeitsblatt gefunden") Lebenslauf Exit_CommandButton1_Click : End Sub
6

Presse "F5" , um das Programm und geben Sie " zwei " in das Textfeld-Steuerelement ausgeführt werden. Drücken Sie auf " CommandButton1 " , um eine Nachricht auf dem Etikett oder einem Meldungsfeld anzuzeigen , wenn der Text nicht gefunden wurde.