作者：乔山办公网日期：
返回目录：excel表格制作
改一下即来可
Sub 筛选自合单zhidao()
If ActiveSheet.OLEObjects("TextBox120").Object.Value <> "" Then
ActiveSheet.ListObjects("表4_236736").Range.AutoFilter Field:=11, Criteria1:="*" & ActiveSheet.OLEObjects("TextBox120").Object.Value & "*"
End If
End Sub
右击文本框，选“指定宏(N)..."，新建一个过程，注意文本框的名字，代码如下：
本代码在Excel2010中测试成功
flag = True '初始化中断变量百。当中断变量为真时开始循环
Do While flag
DoEvents '释放度程序控制问权，允许执行其它答事件。
TextBox1 = 10 + Int(Rnd * 90) '文本框动态显示版10到99
Loop
PS：如要中断循环，可通权过其他程序改变flag为False
没有想到允许文本溢出这个竟然在宏里面不记录。