? Du kan enkelt skapa en datainmatningsformulär med en hitta knappen på din Microsoft Excel program med hjälp av en " UserForm " och Visual Basic for Applications ( VBA ) . En " UserForm " är ett användarvänligt gränssnitt där du kan placera kontroller som textrutor och knappar . VBA är det programmeringsspråk du kan använda för att utföra " Sök " metoden kommandot och söka efter text i ett Excel-kalkylblad . Den " Sök "-metoden kommer att söka efter en term och returnerar värdet om den finner det , annars returneras ingenting . Instruktioner
1
Launch Microsoft Excel , typ " en " i A1 , " två " i A2 , " tre " i A3 , " fyra " i A4 , och " fem " i A5 . Klicka på " Utvecklare " fliken och klicka på " Visual Basic . " Klicka på " Infoga " -menyn och klicka på " UserForm " för att lägga till en ny form . Klicka " TextBox " på Toolbox rutan och klicka på formuläret för att lägga till en ny textruta . Lägg till en ny "Label " med samma teknik . Lägg en " CommandButton " till formuläret också med samma teknik .
2
Dubbelklicka på knappen för att skapa en click-händelse för knappen . Lägg till följande kod för att definiera en " GoTo " uttalande att fånga fel :
Private Sub CommandButton1_Click ( ) On Error GoTo Err_CommandButton1_Click : Addera 3
Definiera strängvariabeln du kommer använder för att spara texten du vill söka efter i kalkylbladet :
Dim findstr som StringfindStr = TextBox1.Text
4
Kopiera och klistra in följande kod för att utföra " Sök " metoden och söka i kalkylbladet efter värdet i textrutan kontroll :
Me.Label1.Caption = Cells.Find ( Vad : = findstr , Sent : = ActiveCell , lookin : = xlFormulas , lookat _ : = xlPart , SearchOrder : = xlByRows , SearchDirection : = xlNext , MatchCase : . = _False ) Value & "hittades i kalkylbladet ! "
5
Lägg till följande kod för att avsluta händelsen click och visa ett meddelande om strängen inte hittades :
Exit_CommandButton1_Click : Exit SubErr_CommandButton1_Click : MsgBox ( " ! strängen du angav hittades inte i kalkylbladet " ) Återuppta Exit_CommandButton1_Click : End Sub
6
Tryck " F5 " för att köra programmet och typ " två " i textrutan kontroll . Tryck " CommandButton1 " för att visa ett meddelande på etiketten eller ett meddelande rutan om texten inte kunde hittas .
