Excel VBA通​​过鼠标获取用户所选范围的范围

Question

这不是usedrange问题。
例如，在Excel中，用户选择使用鼠标范围（可能为空），让我们说B4：C12

而让在此之后说，没有取消的范围内用户按下宏，宏应该告诉B4：C12。

任何人都可以显示的例子吗？

宏应遵循以下线的东西：

Sub showrng() 
    MsgBox SelectedRange.Address(ReferenceStyle:=xlA1) 
End Sub 

Answer 1

Sub macro1() 
    MsgBox Selection.Address(ReferenceStyle:=xlA1, _ 
          RowAbsolute:=False, ColumnAbsolute:=False) 
End Sub 

HTH！

Answer 2

Sub macro1() 
    MsgBox Selection.Address 
End Sub 

或

Sub macro1() 
    Dim addr as String 
    addr = Selection.Address 
    msgbox addr 

    ' Now, as we found the address, according to that... you can also do other operations 

End Sub 

Answer 3

作为选择可以包括几个独立的范围内，下面的代码显示的问题的更完整的解决方案：

Public Sub SelectionTest() 
Dim r As Range 
Dim s As String 

    Select Case Selection.Areas.Count 
    Case 0: 
    MsgBox "Nothing selected." 
    Case 1: 
    MsgBox "Selected range: " & Selection.Areas(1).Address(False, False) 
    Case Else 
    s = "" 
    For Each r In Selection.Areas 
     s = s + vbNewLine + r.Address(False, False) 
    Next r 
    MsgBox "Selected several areas:" & s 
    End Select 

End Sub