? Du kan nemt oprette en dataindtastningsformular med en find -knappen i din Microsoft Excel ved hjælp af en " UserForm " og Visual Basic for Applications ( VBA ) . A " UserForm " er en brugergrænseflade , hvor du kan placere kontrolelementer såsom tekstbokse og knapper. VBA er det programmeringssprog , du kan bruge til at udføre "Find "-metoden kommando og søge efter tekst i dit Excel-regneark. "Find" metode vil søge efter en term og returnerer værdi, hvis den finder det , ellers returnerer ingenting. Instruktioner
1
Launch Microsoft Excel , skriv " one" i A1, "to" i A2 , "tre" i A3 , "fire" i A4 , og "fem" i A5 . Klik på " Udvikler " fanen og klik på " Visual Basic ". Klik på " Indsæt" menuen og klikke på " UserForm " for at tilføje en ny form . Klik på " TextBox " på Toolbox rude og klikke på formularen til at tilføje en ny tekstboks. Tilføj en ny " Label " ved hjælp af samme teknik . Tilføj en " CommandButton " til din formular også bruger den samme teknik .
2
Dobbeltklik på knappen for at oprette et klik begivenhed for knappen. Føj følgende kode til at definere en " GoTo " erklæring til at fange fejl : Hej
Private Sub CommandButton1_Click () On Error GoTo Err_CommandButton1_Click :
3
Definer streng variabel , du vil bruge til at gemme den tekst, du vil finde i dit regneark : Hej
Dim findstr Som StringfindStr = TextBox1.Text
4
Kopier og indsæt følgende kode til at udføre "Find "-metoden og søge i regnearket for den indtastede værdi i tekstboksen kontrol : Hej
Me.Label1.Caption = Cells.Find ( Hvad: = findstr , Efter : = ActiveCell , lookin : = xlFormulas , lookat _ : = xlPart , SearchOrder : = xlByRows , SearchDirection : = xlNext , MatchCase : . = _False ) Value & " blev fundet i regnearket ! "
5
Føj følgende kode for at afslutte klik begivenheden og vises en meddelelse , hvis strengen ikke blev fundet : Hej
Exit_CommandButton1_Click : Exit SubErr_CommandButton1_Click : MsgBox ( " ! snoren indtastede blev ikke fundet i regnearket " ) Resume Exit_CommandButton1_Click : End Sub
6
Tryk på " F5 " for at køre programmet, og skriv " to" i tekstfeltet kontrol. Tryk på " CommandButton1 " for at vise en besked på etiketten eller en besked boks , hvis teksten ikke blev fundet.
