excel vba语言里如何筛选文本框里的文本

Sub SS()

Dim iStr As String

iStr = InputBox("请输入要查找的字符:", "查找内容窗口")

If iStr <> "" Then

With Range("A1:A10")

Set rng = Find(iStr, after:=Range("A10"), lookat:=xlPart)

If Not rng Is Nothing Then

addrs = rngAddress(0, 0)

Do

msg = IIf(msg = "", rngAddress(0, 0), msg & "," & rngAddress(0, 0))

Set rng = FindNext(rng)

Loop While Not rng Is Nothing And rngAddress(0, 0) <> addrs

End If

End With

End If

MsgBox "包含" & iStr & "字符的单元格有:" & msg

End Sub

需要使用vba中的控件引用。

例如可以使用UserForm1TextBox1来获取窗体中名为"TextBox1"的文本框的输入值，然后将其赋值给vba变量进行处理。

此外，还可以使用事件处理程序，例如UserForm1TextBox1_Change来在文本框的值发生变化时触发特定的代码逻辑。

你的代码这样写是有问题的！

首先，这段代码是显示 UserForm3。此时你的代码要做的工作是给 UserForm3 初始化窗口。通俗地讲，你应该是把 arr(i) 数组里面的值赋值给相应的 TextBox 文本框，而不是反过来写；

只有当每任意一个 TextBox 发生 Change 或 Enter 事件后，才需要把输入的值写回到对应的 arr(i) 数组单元中。

可以使用

MeControls("控件名"

)Value

的方式来读取，

比如：读取label1-60的名称保存到数组里面

ReDim

arr(1

To

60)

For

i

=

1

To

60

arr(i)

=

MeControls("Label"

&

i)Caption

Next

i

以上就是关于excel vba语言里如何筛选文本框里的文本全部的内容，包括:excel vba语言里如何筛选文本框里的文本、vba窗体中的文本框输入了怎么关联到代码上、vba 用户窗体中文本框的值变动等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！