如果参数Type设置为8,那么InputBox方法返回一个Range对象。此时,必须使用Set语句来将对话框的结果赋值给一个Range对象变量,否则,变量会被设置为单元格区域中的值而不是Range对象。 如果使用InputBox方法要求用户输入公式,那么必须使用FormulaLocal属性将公式赋...
如果 Type 为 8，InputBox 将返回一个 Range 对象。您必须用 Set 语句将结果指定给一个 Range 对象，如下例所示。Set myRange = Application.InputBox(prompt := "Sample", type := 8)如果不使用 Set 语句，此变量将被设置为这个区域的值，而不是 Range 这个对象本身。如果使用 InputBox 方法要...
使用InputBox方法，我们可以展示一个简单的对话框，接纳用户输入的信息，并在代码中应用这些信息。如上图8.1所示，这个对话框包含“确定”和“取消”两个按钮。当用户点击“确定”时，InputBox方法返回对话框中输入的值；当用户点击“取消”时，则返回False。值得一提的是，如果将参数Type设置为0，InputBox方法会以...
#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。这个参数可以帮助用户筛选输入输入框内的内容。 更重要的是,可以...
Set rng = Application.InputBox("请选择一个单元格区域:", "区域选择", Type:=8) If Not rng Is Nothing Then MsgBox "您选择了范围:" & rng.Address End If End Sub 提示求用户选择一个单元格范围,并在选择后显示该范围的地址。 四、InputBox函数与InputBox方法的异同 ...
Application.InputBox("选择要复制的单元格区域, 然后单击确定:", Title, rngA.Address, Type:=8) '如果选择的是单个单元格,需要粘贴到多个单元格(在筛选的区域) If rngA.Cells.CountLarge = 1 Then Set rngB = Application.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 不受影响...
'===取得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, " 起...