VBA 在指定欄位後輸入資料

excel vba #excel #excel #vba

九號 2020-04-23 11:38:47 ‧ 2319 瀏覽

分享至

請問我寫了一個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
http://imagizer.imageshack.com/a/img922/2706/RsFJWu.png
http://imagizer.imageshack.com/a/img924/150/66ogIK.png

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

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

海綿寶寶

iT邦大神 1 級 ‧ 2020-04-23 12:26:42

最佳解答

試試看

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