我希望代码返回一个字符串，但它返回一个值

Question

我正在尝试使用InputBox让用户通过鼠标单击选择一个起始单元格。然后我想将该地址作为字符串存储在变量中。

Sub NumberFormatFromCell()

Dim rng As Range
Dim FormatRuleInput As String
'Get A Cell Address From The User to Get Number Format From
On Error Resume Next
Set rng = Application.InputBox( _
Title:="Number Format Rule From Cell", _
Prompt:="Select a starting cell", _
Type:=8)
On Error GoTo 0
'Test to ensure User Did not cancel
If rng Is Nothing Then Exit Sub
'Set Variable to first cell in user's input (ensuring only 1 cell)
Set rng = rng.Cells(1, 1)
MsgBox (rng)
End Sub

当代码到达MsgBox(rng)时，它显示单元格中的值，而不是地址。

Answer 1

您的代码当前获取 rng 单元格的值。 若要获取 rng 单元的地址，请调用单元的 Address 属性，如下所示：

MsgBox rng.address