Application对象示例 InputBox方法弹出输入对话框
实例代码：
#001 Public Sub 实例2_()
#002 On Error Resume Next '出现错误继续执行下一个代码
#003 Dim myCell As Range
#004 Worksheets("Sheet1").Activate '激活Sheet1工作表
#005 Set myCell = Application.InputBox( _
#006 prompt:="请选择一个单元格或者区域", Type:=8) 'Type:=8代表是Range对象
#007 myCell.Select
#008 End Sub
运行结果如所示：
InputBox方法弹出输入对话框 代码说明：
#003代码运行激活Sheet1工作表，弹出对话框我们可以选择Sheet1表的单元格，Type:=8代表是Range对象。
知识扩展点：显示一个接收用户输入的对话框。返回此对话框中输入的信息。
语法
表达式.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextID, Type)
表达式一个代表 Application 对象的变量。
参数返回值
Variant
说明
下表列出了可以在 Type 参数中传递的值。可以为下列值之一或其中几个值的和。例如，对于一个可接受文本和数字的输入框，将 Type设置为 1 + 2。最近不断的免费发送Excel VBA的实例教程，有需要Excel源代码的请评论区留言、点击关注和转发，然后直接私信回复：源代码
部分实例图：
举报/反馈