Hvordan lager jeg en Data Entry Form Med på søk i Excel?

Du kan enkelt lage en dataregistrering skjema med et søk i Microsoft Excel-programmet ved hjelp av en "Userform" og Visual Basic for Applications (VBA). En "Userform" er et brukergrensesnitt der du kan plassere kontroller som tekstbokser og knapper. VBA er programmeringsspråket som 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.

Bruksanvisning

1 Start Microsoft Excel, skriv "en" i A1, "to" i A2, "tre" i A3, "fire" i A4, og "fem" i A5. Klikk på "Utvikler" og klikk "Visual Basic." Klikk på "Insert" -menyen og klikke "Userform" for å legge til en ny form. Klikk "TextBox" på verktøykassen panelet og klikke på skjemaet for å legge til en ny tekstboks. Legg til en ny "Label" ved hjelp av den samme teknikken. Legg en "Command" i skjemaet også bruker samme teknikk.

2 Dobbeltklikk på knappen for å opprette et klikk begivenhet for knappen. Legg til følgende kode for å definere en "GoTo" statement å fange feil:

Private Sub CommandButton1_Click ()
På Error GoTo Err_CommandButton1_Click:

3 Definer strengvariabelen du vil bruke for å lagre teksten du vil finne i regnearket:

Dim findstr As String
findstr = 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:

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 Legg til følgende kode for å avslutte klikkhendelsen og vise en melding hvis strengen ikke ble funnet:

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 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 ikke ble funnet.