excel2007中单击文本框，自动筛选文本框里面的内容的宏代码

Sub 文本框()
On Error Resume Next
Sheets("基本资料").Select
ActiveSheet.ShowAllData
Sheets("基本资料").Select
ActiveSheet.Range("$A$3:$CC$286").AutoFilter Field:=7, Criteria1:="办公室"
ActiveWindow.SmallScroll Down:=-60
ActiveWindow.ScrollRow = 4
ActiveWindow.SmallScroll Down:=-1
End Sub
上面是录制的宏，现在文本框内容是“办公室”，但是文本框内容在改变，请高手改哈，自动筛选文本框的内容，谢谢

Sub 文本框()
On Error Resume Next
mSs=inputbox("请输入要筛选的关键字，如办公室")
Sheets("基本资料").Select
ActiveSheet.ShowAllData
Sheets("基本资料").Select
ActiveSheet.Range("$A$3:$CC$286").AutoFilter Field:=7, Criteria1:=mss
ActiveWindow.SmallScroll Down:=-60
ActiveWindow.ScrollRow = 4
ActiveWindow.SmallScroll Down:=-1
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/7fq7m2v7v487fmsqmp.html