ExcelVBA学习之取得Application.inputbox选择区域的起始行列号和终止行列号

【知识点】

显示用于用户输入的对话框。 返回在对话框中输入的信息。

语法

expression. InputBox (_Prompt_, _Title_, _Default_, _Left_, _Top_, _HelpFile_, _HelpContextID_, _Type_)

expression：一个表示 Application 对象的变量。

注解

下表列出了可以在 Type 参数中传递的值。 可以是一个值，也可以将多个值相加。 例如，对于可接受文本和数字的输入框，将 Type设置为 1 + 2。

--------------------

InputBox 可用于显示简单对话框，方便用户输入要在宏中使用的信息。 对话框中有“确认”**** 按钮和“取消”**** 按钮。 如果选择“确认”**** 按钮，InputBox 返回在对话框中输入的值。 如果选择“取消”**** 按钮，InputBox 返回 False。

如果 Type 为 0，InputBox 返回文本格式的公式（例如，=2*PI()/360）。 只要公式中有引用，就会以 A1 样式引用的形式返回。 （ConvertFormula 可用于转换引用样式。）

如果 Type 为 8，InputBox 返回 Range 对象。 必须使用 Set 语句，将结果分配给 Range 对象，如下面的示例所示。

Set myRange = Application.InputBox(prompt := "Sample", type := 8)

如果不使用 Set 语句，此变量就会被设置为区域中的值，而不是 Range 对象本身。

如果使用 InputBox 方法提示用户输入公式，必须使用 FormulaLocal 属性，将公式分配给 Range 对象。 输入公式使用用户语言。

InputBox 方法与 InputBox 函数的区别在于，前者可以对用户输入进行选择性验证，并能与 Excel 对象、错误值和公式结合使用。 请注意，Application.InputBox 调用的是 InputBox 方法；不带对象限定符的 InputBox 调用的是 InputBox 函数。

------------------------

=====官方文档中的例子======：

此示例使用 InputBox，允许用户选择要传递给用户定义的函数“MyFunction”的区域，这将乘以区域中的三个值并返回结果。

Sub Cbm_Value_Select()

'Set up the variables.

Dim rng As Range

'Use the InputBox dialog to set the range for MyFunction, with some simple error handling.

Set rng = Application.InputBox("Range:", Type:=8)

If rng.Cells.Count <> 3 Then

MsgBox "Length, width and height are needed -" & _

vbLf & "please select three cells!"

Exit Sub

End If

'Call MyFunction by value using the active cell.

ActiveCell.Value = MyFunction(rng)

End Sub

Function MyFunction(rng As Range) As Double

MyFunction = rng(1) * rng(2) * rng(3)

End Function

===========学习例子=========

解决问题：

1.inputbox的“取消”按钮的处理

2.取得Application.inputbox选择区域的起止行列号和终止行列号

简单说：求“左上”“右上”“左下”“右下”的4的数据

===================

'====取得列号

Sub test()

Dim myRange As Range

Set myRange = Application.InputBox(prompt:="请选择区域：", Type:=8)

r = myRange.Column

MsgBox r

End Sub

=====================

'==取得Application.inputbox选择区域的起止行列号和终止行列号====代码2

Sub getinput_col_row()

Dim myRange As Range, c As Range

On Error Resume Next

Set myRange = Application.InputBox(prompt:="请在工作表中选择区域：", Title:="请选择", Type:=8)

On Error GoTo 0

If myRange Is Nothing Then

MsgBox "你按了“取消”"

Exit Sub

End If

arr = Array("起始行", "起始列", "终止行", "终止列")

'取得选择区域的总的单元格数，其中.Address是取得 xx的引用

t = Range(myRange.Address).Count

t2 = myRange.Cells.Count

MsgBox "你总共选中的单元格数有：" & t2

brr = Array(Range(myRange.Address).Cells(1).Row, Range(myRange.Address).Cells(1).Column, Range(myRange.Address).Cells(t).Row, Range(myRange.Address).Cells(t).Column)

'MsgBox arr(0) & vbLf & brr(0) & vbLf & arr(1) & vbLf & brr(1) & vbLf & arr(2) & vbLf & brr(2) & vbLf & arr(3) & vbLf & brr(3)

For i = 0 To UBound(arr)

Text = Text & arr(i) & vbLf & brr(i) & vbLf

Next

MsgBox Text

End Sub

=====================

'===取得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, " 起始列号：0")

MsgBox Format(c(c.Count).Row, "终止行号：0") & Format(c(c.Count).Column, " 终止列号：0")

Next

End Sub