U kunt een formulier voor gegevensinvoer met een vind -knop in uw Microsoft Excel-toepassing met behulp van een " UserForm " en Visual Basic for Applications ( VBA ) gemakkelijk tot stand . Een " UserForm " is een user interface waar u besturingselementen zoals tekstvakken en knoppen kunt plaatsen . VBA is de programmeertaal die u kunt gebruiken om de "Find " -methode bevel en zoeken naar tekst in uw Excel-werkblad te voeren. De "Find " -methode zal zoeken naar een term en retourneert de waarde , indien deze wordt gevonden , anders keert het terug niets . Instructies Lancering Microsoft Excel 1 , type " men " in A1 , " twee " in A2 , " drie " in A3 , " vier " in de A4 , en " vijf " in A5 . Klik op het tabblad " Developer " en klik op " Visual Basic . " Klik op het menu "Invoegen " en klik op " UserForm " om een nieuwe vorm toe te voegen . Klik op " TextBox " op de Toolbox deelvenster en klikt u op het formulier om een nieuw tekstvak toe te voegen . Een nieuwe "Label" gebruikmaking van dezelfde techniek . Voeg een " CommandButton " om uw formulier ook met behulp van dezelfde techniek . Kopen van 2 Dubbelklik op de knop om een gebeurtenis click voor de knop te maken . Voeg de volgende code om een " GoTo " statement om fouten te vangen definiëren : Private Sub CommandButton1_Click ( ) op On Error GoTo Err_CommandButton1_Click : 3 Definieer de string variabele u gebruiken om de tekst die u wilt zoeken in uw werkblad opslaat : Dim findstr Zoals StringfindStr = TextBox1.Text Kopieer 4 en plak de volgende code op de "Find " -methode uit te voeren en zoek het werkblad voor de waarde in het tekstvak ingevuld : Me.Label1.Caption = Cells.Find ( Wat : = findstr , Na : = ActiveCell , LookIn : = xlFormulas , LookAt _ : = xlPart , SearchOrder : = xlByRows , SearchDirection : = xlNext , MatchCase : . = _False ) Value & " werd gevonden in het werkblad ! " 5 Voeg de volgende code aan de gebeurtenis click beëindigen en wordt een bericht weergegeven als de string niet werd gevonden : Exit_CommandButton1_Click : Exit SubErr_CommandButton1_Click : MsgBox ( " ! de ingevoerde tekenreeks is niet gevonden in het werkblad " ) Resume Exit_CommandButton1_Click : End Sub Druk op " F5 " 6 om het programma en type " twee " in het tekstvak draaien . Druk op " CommandButton1 " om een bericht weer te geven op het etiket of een bericht als de tekst niet werd gevonden .
|