Ako môžem vytvoriť položku dátového formulára s Tlačidlo Nájsť v Exceli ?

Môžete ľahko vytvoriť vstupný formulár s údajmi pomocou tlačidla find v aplikácii Microsoft Excel pomocou " UserForm " a Visual Basic for Applications ( VBA ) . " UserForm " je užívateľské rozhranie , kde si môžete umiestniť ovládacie prvky , ako sú textové polia a tlačidlá . VBA je programovací jazyk , ktorý možno použiť na vykonanie " Nájsť " príkaz metódy a hľadanie textu v hárku programu Excel . Metóda " Hľadať " bude hľadať výraz a vráti hodnotu , ak zistí , že to , inak vráti nič . Pokyny dovolená 1

Spustite program Microsoft Excel , zadajte " jeden " v A1 , " dva " v A2 , " tri " v A3 , " štyri " A4 , a " päť " v A5 . Kliknite na kartu " Vývojár " a kliknite na " Visual Basic " . Kliknite na menu " Vložiť " a kliknutím na " UserForm " pridať nový formulár . Kliknite na " textové pole " na paneli Toolbox a kliknite na formulár pre pridanie novej textové pole . Pridať nový " Label " , s použitím rovnakej techniky . Pridať " CommandButton " do formulára tiež rovnakou technikou .
2

Poklepaním na toto tlačidlo vytvoríte udalosť click na tlačidlo . Pridajte nasledujúci kód definovať vyhlásenie " GoTo " zachytiť chyby :

Private Sub CommandButton1_Click ( ) On Error GoTo Err_CommandButton1_Click :
3

Definujte premenné reťazec , budete použiť na uloženie textu, ktorý chcete vyhľadať v liste :

Dim findstr Ako StringfindStr = TextBox1.Text
4

skopírujte a vložte nasledujúci kód spustiť metódu " Vyhľadať " a prehľadávať list pre hodnoty zadané v textové pole :

Me.Label1.Caption = Cells.Find ( Čo : = findstr , Po : = ActiveCell , hľadal : = xlFormulas , look _ : = xlPart , SearchOrder : = xlByRows , SearchDirection : = xlNext , matchCase : . = _False ) Hodnota & " bol nájdený vo svojom liste ! "
5

Pridajte nasledujúci kód na koniec udalosť click a zobrazí správu, ak nebol nájdený reťazec :

Exit_CommandButton1_Click : Koniec SubErr_CommandButton1_Click : MsgBox ( " ! reťazec , ktoré ste zadali nebol nájdený v liste " ) Resume Exit_CommandButton1_Click : End Sub
klipart 6

Stlačte " F5 " spustiť program a zadajte " dva " v ovládacom prvku textové pole . Stlačením tlačidla " CommandButton1 " zobraziť správu na etikete alebo okne so správou , pokiaľ nebol nájdený text .

• Predchádzajúca strana: Ako si vyrobiť konštanty v programe Excel 
• Ďalšia strana: Ako pridať Horizontálne a vertikálne čiary v programe Excel