? Du kan enkelt lage en dataregistrering skjema med en finne knappen i Microsoft Excel-programmet ved hjelp av en " UserForm " og Visual Basic for Applications ( VBA ) . A " UserForm " er et brukergrensesnitt der du kan plassere kontroller som tekstbokser og knapper . VBA er programmeringsspråket du kan bruke til å utføre "Finn"- metoden kommando og søke etter tekst i Excel-regnearket . "Finn "-metoden vil søke etter en sikt og returnerer verdien hvis den finner det, ellers returnerer ingenting . Instruksjoner
en
Launch Microsoft Excel , type " en " i A1 , "to" i A2 , " tre" i A3 , "fire" i A4 , og "fem" i A5 . Klikk på " Developer " og klikk " Visual Basic. " Klikk på " Insert"-menyen og klikke " UserForm " for å legge en ny form . Klikk på " TextBox " på Toolbox -panelet og klikker på skjemaet for å legge en ny tekstboks . Legg til en ny "Label " ved hjelp av samme teknikk . Legge til en " CommandButton " i skjemaet også bruke den samme teknikken .
2
Dobbeltklikk på knappen for å opprette et klikk hendelsen for den knappen . Legg til følgende kode for å definere en " GoTo " statement å fange feil : en
Private Sub CommandButton1_Click ( ) On Error GoTo Err_CommandButton1_Click :
3
Definer strengvariabelen du vil bruke til å lagre teksten du vil finne i regnearket : en
Dim findstr Som StringfindStr = TextBox1.Text
4
Kopier og lim inn følgende kode for å utføre "Finn "-metoden og søke i regnearket for verdien som er angitt i tekstboksen kontroll : en
Me.Label1.Caption = Cells.Find ( Hva: = findstr : Etter : = ActiveCell , lookin : = xlFormulas , lookat _ : = xlPart , SearchOrder : = xlByRows , SearchDirection : = xlNext , matchCase : . = _False ) Value & " ble funnet i regnearket ! "
5
Legg til følgende kode for å avslutte klikkhendelsen og vise en melding hvis strengen ikke ble funnet : en
Exit_CommandButton1_Click : Exit SubErr_CommandButton1_Click : MsgBox ( " ! strengen du skrev ikke ble funnet i regnearket ") Resume Exit_CommandButton1_Click : End Sub
6
Trykk " F5 " for å kjøre programmet og skriv " to" i tekstboksen kontroll. Trykk " CommandButton1 " for å vise en melding på etiketten eller en meldingsboks hvis teksten ble ikke funnet .
