Excel VBA从通过application.inputbox定义的范围返回单元格值

Question

用户可以通过Application.InputBox方法选择一个范围。 然后，我想检查该范围内第一个单元格中的值。

以下代码产生错误。 有什么帮助吗？

Sub User_Range_Selection()
Dim xRg As Range

Set xRg = Application.InputBox("Please select a range:", "Range Selection", , , , , , 8)

MsgBox xRn.Cells(1, 1).Value
End Sub 

Answer 1

使用Option Explicit 。

退出子过程之前，你最后的代码行更改xRg到xRn 。 Option Explicit将捕获该错误。

Option Explicit

Sub User_Range_Selection()

    Dim xRg As Range

    Set xRg = Application.InputBox("Please select a range:", "Range Selection", type:=8)

    MsgBox xRg.Cells(1, 1).Value

End Sub

Answer 2

您可能需要添加错误处理，以防止用户输入但关闭窗体会暂停您的代码：

On Error Resume Next
Do
    Set xRg = Application.InputBox("Please select a range:", "Range Selection", , , , , , 8)
Loop While xRg Is Nothing
On Error GoTo 0

MsgBox xRg.Cells(1, 1).Value