作者：乔山办公网日期：
返回目录：excel表格制作
用VBA内置函数inputbox来输入文本，使您的“班级”成为变量。用msgbox来回返M2单元格中的结果值。
DIM bj AS String
bj=inputbox("请输入您的文7a686964616fe58685e5aeb9332本","请输入")
Sheets("ETINFO(正式版)").Select
ActiveWindow.SmallScroll Down:=-6
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:=bj
Selection.AutoFilter Field:=7, Criteria1:="姓名"
Cells.Select
Selection.Copy
Sheets("复制").Select
Range("A1").Select
ActiveSheet.Paste
Range("M2").Select
msgbox range("m2").value
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=COUNTIF(C[-10],""HS4B4"")"
如果你的姓名也需要成为变量，再增加一个变量并用inputbox为变量赋值。
textbox只是文本框，不是对话框。
窗体上插入个textbox控件，就可以输入数据
弹出窗体，可以用代码实现，假设窗体名为userform1
则
Userform1.show
Sub test()
myPW = "123456" '设置密码
p = InputBox("请输入运行密码", "温馨提来示！", Default)
If myPW = p Then
MsgBox "OK" '删除此句自，插入原代码
Else
MsgBox "密码错误，请重新zhidao输入！", , "温馨提示！"
End If
End Sub
Excel中可以利用将inputbox的结果复制百给变量的方式，度在对话框里输入参数。
软件版本：office2007
举例说明如下知：道
1.在VBA中输入专如下代码：
2.在inputbox对话框中输入参数：
就会得到相应的结果：
3.输入的参数不属同，结果也就不同：