Come creare un form di inserimento dati con il pulsante Trova in Excel

? È possibile creare facilmente un form di inserimento dati con un pulsante Trova nella vostra applicazione Microsoft Excel utilizzando un " form " e Visual Basic, Applications Edition (VBA ) . A " form " è una interfaccia utente in cui è possibile inserire controlli quali le caselle di testo e pulsanti . VBA è il linguaggio di programmazione è possibile utilizzare per eseguire il "Trova " di comando 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 . Istruzioni
1

lancio di 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 cliccare su " Visual Basic ". Fai clic sul menu "Inserisci" e cliccando su " form " per aggiungere un nuovo modulo . Fare clic su " TextBox " nel riquadro Casella degli strumenti e fare clic sul form per aggiungere una nuova casella di testo . Aggiungere una nuova " etichetta " con la stessa tecnica . Aggiungere un " CommandButton " al form anche usando la stessa tecnica .

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

Private Sub CommandButton1_Click ( ) On Error GoTo Err_CommandButton1_Click :
3

Definire la variabile di stringa si utilizzare per salvare il testo che si desidera trovare nel foglio di lavoro :

Dim findstr Come StringfindStr = TextBox1.Text
4

Copia e incolla 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 & "è stato trovato nel foglio di lavoro ! "
5

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

Exit_CommandButton1_Click : Exit SubErr_CommandButton1_Click : MsgBox (" ! la stringa che hai inserito non è stato trovato nel foglio di lavoro " ) Riprendi Exit_CommandButton1_Click : End Sub
6

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