錦子老師

雷明：「請問我寫了一個VBA，設計了一個表單有TEXTBOX1、TEXTBOX2、TEXTBOX3、TEXTBOX4，我想要在TEXTBOX1輸入現有TEXTBOX2、TEXTBOX3、TEXTBOX4後面會輸入進去在B、C、D欄位中。

例如:

TEXTBOX1、TEXTBOX2、TEXTBOX3、TEXTBOX4內分別輸入B01、123、456、789，找到資料表中A欄原有的B01，原本是B01、空、空、空變成B01、123、456、789，請問我可以怎麼做？」

我的Excel VBA程序。

Private Sub CB1_Click()

Dim Rng As Range

Set Rng = Range("A1:A500").Find(TB1, lookat:=xlPart)

If Rng Is Nothing Then

MsgBox "無此車位"

Else

r = Range("B2").End(xlDown).row + 1

Cells(r, "B") = TB2.Text

Cells(r, "C") = CBB1.Text

Cells(r, "D") = TB3.Text

Cells(r, "E") = CBB2.Text

Cells(r, "F") = TB4.Text

Cells(r, "G") = CBB3.Text

Cells(r, "A").Select

UF1.Hide

End If

End Sub

海綿寶寶：「使用VBA的作法是：

按ALT+F11鍵啟動VBA視窗。

點取「插入 > 模組」指令，插入一個新的空白模組。

Sub Main()  '改成寫到你的 CB1_Click() 裡

    Dim Rng As Range

    Dim sFind As String

    sFind = "B1"    '改成你的 TEXTBOX1.Text

    Set Rng = Range("A1:A500").Find(sFind, lookat:=xlPart)

    If Rng Is Nothing Then

        MsgBox "無此車位"

    Else

        r = Rng.Row

        Cells(r, 2) = "A"   '改成你的 TEXTBOX.Text

        Cells(r, 3) = "B"   '改成你的 TEXTBOX.Text

        Cells(r, 4) = "C"   '改成你的 TEXTBOX.Text

        Cells(r, 5) = "D"   '改成你的 TEXTBOX.Text

        Cells(r, 6) = "E"   '改成你的 TEXTBOX.Text

        Cells(r, 7) = "F"   '改成你的 TEXTBOX.Text

        Cells(r, 1).Select

    End If

End Sub

以上就是今天主要學習的知識點，希望對大家有所幫助~~有什麼問題歡迎留言，我會儘量及時的給大家答覆~~

部落格相關範例