我正在VBA中创建一个用户表单,我要寻找的是搜索特定文本,当找到特定文本时,我希望在下一个单元格中填充文本框。
我的代码是:
i = TextBox1.Value
Set orange = Sheets(1).Range("A1:A10000").Find(i, LookIn:=xlValues, lookat:=xlWhole)
If orange Is Nothing Then
MsgBox "No Match Found"
Else: j = orange.Address
ka = 1
kb = 11
For k = 1 To 10
UserForm1(TextBox & kb).Value = Sheets(1).Range(j).Offset(0, ka).Value
ka = ka + 1
kb = kb + 1
Next k
当然UserForm1(TextBox & kb).Value = Sheets(1).Range(j).Offset(0, ka).Value
不起作用。
对此有任何帮助吗?
答案 0 :(得分:1)
Me
代替表单名称Controls
集合访问文本框(传递字符串)未经测试:
i = TextBox1.Value
Set orange = Sheets(1).Range("A1:A10000").Find(i, LookIn:=xlValues, lookat:=xlWhole)
If orange Is Nothing Then
MsgBox "No Match Found"
Else
For k = 1 To 10
Me.Controls("TextBox" & (k+10)).Value = orange.EntireRow.Cells(k).Value
Next k
end if