Excel VBA单元格选取对话框

nnsea

Sub GetRange()

Dim rng As Range

On Error Resume Next

Set rng = Application.InputBox(prompt:="输入单元格区域", Type:=8)

If rng Is Nothing Then

    MsgBox "操作取消"

Else

    rng.Select

    MsgBox "已选择单元格区域第一列的列号为" & rng.Column & "。共有" & rng.Columns.Count & "列。"

    MsgBox "已选择单元格区域第一行的行号为" & rng.row & "。共有" & rng.Rows.Count & "行。"

End If

End Sub

nnsea

Excel VBA中引用单元格已经很简单了。但是如何像输入函数时一样，自由的选择单元格区域，以便更好地实现人机交互呢？

    这里用到的函数 InputBox，里面的参数很简单，Type:=8意思是返回的值是Range，当然也可以是公式、数值或其他，具体可参见Help。

    最后，通过Range的Column属性和Columns.Count属性，返回选择区域的列号及列数。有了行号、行数、列号、列数对该单元的的操作就很简单了。