#004 Worksheets("Sheet1").Activate '激活Sheet1工作表 #005 Set myCell = Application.InputBox( _ #006 prompt:="请选择一个单元格或者区域", Type:=8) 'Type:=8代表是Range对象 #007 myCell.Select #008 End Sub Ø 运行结果如所示：Ø 代码说明：#003代码运行激活Sheet1工...
除了自带的inputbox函数,VBA里面还有另外一种inputbox的表示方法。甚至比它更好用的,Application.inputbox。 本节只讲两点,Type的数字可以相加,Type的数字等于8时可以选择区域 其语法: 语法参数 其中好用的原因在于(只需要注意的),就是最后的参数Type。这个参数可以帮助用户筛选输入输入框内的内容。 更重要的是,可以...
如果参数Type设置为8,那么InputBox方法返回一个Range对象。此时,必须使用Set语句来将对话框的结果赋值给一个Range对象变量,否则,变量会被设置为单元格区域中的值而不是Range对象。 如果使用InputBox方法要求用户输入公式,那么必须使用FormulaLocal属性将公式赋...
1. 关闭对象浏览器,如果你已经打开了的话 2. 在模块Sample8里面,输入下列过程WhatRange: Sub WhatRange() Dim newRange As Range Dim tellMe As String tellMe = "Use the mouse to select a range:" Set newRange = Application.InputBox(prompt:=tellMe, _ Title:="Range to format", _ Type:=8)...
Set myRange = Application.InputBox(prompt := "Sample", type := 8)如果不使用 Set 语句，此变量将被设置为这个区域的值，而不是 Range 这个对象本身。如果使用 InputBox 方法要求用户输入公式，则必须使用 FormulaLocal 属性来将此公式指定给一个 Range 对象。输入的公式使用用户语言。InputBox ...
On Error Resume NextSet Rrng = Application.InputBox("选择区域", "选择", "A1", Type:=8)If Rrng Is Nothing Then Err.Clear: Set Rec = Nothing: Exit FunctionSet Rec = RrngEnd Function利用子程序 on error resume next来检查 是否按了取消主程序 不受 on error resume next 不受影响...
InputBox方法很适合用户选择工作表单元格区域，并对所选择的单元格区域进行操作。在讲到TYPE的值时我们谈到了下面的各个值的：在上面的表格中：0 表示 一个公式；1表示一个数字；2表示文本（字符串）；4表示一个逻辑值，例如true或false；8 表示一个单元格引用；16表示一个错误值；64表示一个值的数组，在...
值 说明 0 公式 1 数字 2 文本(字符串) 4 逻辑值(True 或 False) 8 Range 对象形式的单元格引用 16 错误值,如 #N/A 64 数值数组 发布于 2022-03-05 13:47 VBA Visual Basic input 赞同添加评论 分享喜欢收藏申请转载 ...
'===取得Application.inputbox选择区域的起止行列号和终止行列号==代码2 Sub test2() Dim myRange As Range, c As Range Set myRange = Application.InputBox(prompt:="请选择区域:", Type:=8) For Each c In myRange.Areas MsgBox Format(c(1).Row, "起始行号:0") & Format(c(1).Column, " 起...