2679 |
VBA 在指定欄位後輸入資料 |
雷明:「請問我寫了一個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
以上就是今天主要學習的知識點,希望對大家有所幫助~~有什麼問題歡迎留言,我會儘量及時的給大家答覆~~
部落格相關範例
2021.11.03 |
|
2021.11.02 |
|
2021.11.01 |
|
2021.10.31 |
|
2021.10.30 |
|
2021.10.29 |
|
2021.10.28 |
|
2021.10.27 |
|
2021.10.26 |
|
2021.10.25 |
|
2021.10.24 |
|
2021.10.23 |
|
2021.10.22 |
|
2021.10.21 |
|
2021.10.20 |
|
2021.10.19 |
|
2021.10.18 |
|
2021.10.17 |
留言列表