Come faccio a creare una voce Data Form Con il pulsante Trova in Excel?

March 6

Come faccio a creare una voce Data Form Con il pulsante Trova in Excel?


È possibile creare facilmente un form di inserimento dati con un pulsante Trova nell'applicazione Microsoft Excel utilizzando un "form" e Visual Basic for Applications (VBA). A "form" è un'interfaccia utente in cui è possibile inserire i controlli come caselle di testo e pulsanti. VBA è il linguaggio di programmazione è possibile utilizzare per eseguire il comando "Trova" il metodo e la ricerca di testo nel foglio di lavoro di Excel. Il metodo "Trova" cercherà un termine e restituisce il valore se lo trova; altrimenti restituisce nulla.

istruzione

1 Avviare Microsoft Excel, digitare "uno" in A1, "due" in A2, "tre" in A3, "quattro" in formato A4, e "cinque" in A5. Fare clic sulla scheda "Sviluppatore" e fare clic su "Visual Basic." Fare clic sul menu "Inserisci" e cliccando su "form" per aggiungere un nuovo modulo. Fai clic su "TextBox" nel riquadro Casella degli strumenti e selezionare il modulo per aggiungere una nuova casella di testo. Aggiungere una nuova "etichetta" utilizzando la stessa tecnica. Aggiungere un "CommandButton" per il modulo anche con la stessa tecnica.

2 Fare doppio clic sul pulsante per creare un evento click per il pulsante. Aggiungere il seguente codice per definire una dichiarazione "Vai a" per catturare gli errori:

Private Sub CommandButton1_Click ()
On Error GoTo Err_CommandButton1_Click:

3 Definire la variabile stringa che verrà utilizzato per salvare il testo che si desidera trovare nel foglio di lavoro:

Dim Findstr As String
Findstr = TextBox1.Text

4 Copiare e incollare il seguente codice per eseguire il metodo "Trova" e cercare il foglio di lavoro per il valore immesso nel controllo casella di testo:

Me.Label1.Caption = Cells.Find(What:=findStr, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Value & " was found in your worksheet!"

5 Aggiungere il seguente codice per terminare l'evento click e visualizzare un messaggio se non è stata trovata la stringa:

Exit_CommandButton1_Click:

Exit Sub

Err_CommandButton1_Click:

MsgBox ("The string you entered was not found in your worksheet!")
Resume Exit_CommandButton1_Click:

End Sub

6 Premere il tasto "F5" per eseguire il programma e digitare "due" nel controllo casella di testo. Premere "CommandButton1" per visualizzare un messaggio sull'etichetta o una finestra di messaggio se il testo non è stato trovato.