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

vba：inputbox相关推荐

PPT VBA：批量转PDF
目录一.思路 1.获取文件列表 2.遍历文件列表中的文件 3.调用相应过程进生成PDF 4.完成二.示例代码三.补充一.思路 1.获取文件列表通过fso对象逐层获取主文件夹下的各层子文件夹, ...
征服Excel VBA：让你工作效率倍增的239个实用技巧
下载地址:https://webboy.pipipan.com/fs/19405313-362892031 内容简介: <征服Excel VBA:让你工作效率倍增的239个实用技巧>分16 ...
VBA：完美解决数独问题----全网最强
[说在前面]: 之前,我在微信朋友圈看到一个同事发了一个状态,说的是她在家辅导孩子做作业,一个数独的题目,好像没有做出来.我看了下,我也做不出来,后来仔细想了下,花了两个多小时时间,用Python编了 ...
免费教程《Excel VBA：办公自动化》
为了帮助你在职场中高效工作,我写了一本免费教程<Excel VBA:办公自动化>. 对,你没看错,是完全免费的,点击下面章节的名称就可以学习了. 1.认识VBA:什么是VBA? 知识点:介 ...
VBA：SumProduct函数不支持条件解决办法或者 Sumproduct报参数不匹配的解决办法
VBA:SumProduct函数在使用过程中,发现通过*的形式是无法添加条件的,有一个非常简单的处理方式:就是把数据单独相乘作为一列,然后用Sumifs函数直接取就好了.
VBA：Excel选中单元格后，相同值高亮显示
VBA:Excel选中单元格后,相同值高亮显示场景代码释义 Excel中实际执行效果场景在Excel数据核对中,要检查同样的数据在表格里是否重复出现,可以利用重复值筛选的方式,但是重复值筛选这 ...
Excel VBA：数据管理与维护
最近做了一个使用Excel VBA管理库存数据的小练习.附代码: Public Function WorksheetActivate(ByVal Cancel As Boolean)'This fun ...
Word VBA：批量导出Visio对象为图片
目录一.思路 1.遍历文档中的域fd 2.判断每一个域fd 3.二进制存储二.示例代码 1.代码 2.运行效果 (1)示例文件 (2)复制代码-运行 (3)选择存储位置 (4)存储完成 (5)查看 ...
多条记录取最近日期的一条_Excel VBA：基于员工打卡记录的考勤数据统计
微信公众号:金融数学使用VBA做一个基于员工打卡记录的考勤数据分析工具; 1应用场景某公司通过门禁系统记录了每位员工上下班打卡时间,现在需要对一段特定时间内员工出勤情况进行统计分析,包含加班时间( ...

vba：inputbox

案例：

vba：inputbox相关推荐

最新文章

热门文章