vba：inputbox

 

'inputbox函数与方法

'1.区别一：外观区别
'InputBox 函数
'在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。

'Application.InputBox 方法
'显示一个接收用户输入的对话框。返回此对话框中输入的信息。
'------------------------------------------------------------------------------------------

Sub test1()
sr = InputBox("请输入内容！") '函数
sr = Application.InputBox("请输入内容！") '方法
End Sub

'----------------------------------------------------------

'2.参数区别
'inputbox函数与方法的主要区别:

'       InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) 函数
'表达式.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type) 方法
'主要区别：方法比函数多了一个参数(type-指定返回的数据类型。如果省略该参数，对话框将返回文本。).

'3.按扭返回值区别

Sub test2()
hs = InputBox("请输入内容！") '函数
ff = Application.InputBox("请输入内容！") '方法
End Sub
'小结：函数取消按钮返回值"",而方法是false

---

案例：

Sub test()
1:
n = n + 1
If n > 3 Then Exit Sub
user = InputBox("请输入用户名", "用户")
If user = "" Then MsgBox "用户名不能为空": GoTo 1
Set yh = Sheet1.Range("a:a").Find(user, , , xlWhole)
'MsgBox yh.Offset(0, 1).Value
If yh Is Nothing Then
GoTo 1
End If

2:
m = m + 1
If m > 3 Then Exit Sub
pass = InputBox("请输入密码", "密码")
If pass = "" Then MsgBox "密码不能为空": GoTo 2
If pass * 1 <> yh.Offset(0, 1).Value Then
GoTo 2
End If
MsgBox "登录成功"
End Sub

---

'   值      含义
'   0       公式
'   1       数字
'   2       文本 (字符串)
'   4       逻辑值（True 或 False）
'   8       单元格引用，作为一个 Range 对象
'   16      错误值，如 #N/A
'   64      数值数组

Sub test()
 ff = Application.InputBox("", "请输入公式", Type:=8)
End Sub

Sub test2() '可以比selection更方便选择数据
ff = Application.InputBox("", "选择区域", Type:=8)
End Sub

Sub 筛选不重复值()
On Error GoTo 100
Dim d As Object, cf
Set d = CreateObject("scripting.dictionary")
qy = Application.InputBox("", "选择要进行不重复筛选的区域", , , , , , 8)
For Each cf In qy
    d(cf) = ""
Next
    Set ff = Application.InputBox("", "要放置的区域", , , , , , 8)
    ff.Resize(d.Count) = Application.Transpose(d.keys)
100:
End Sub