Excel VBA erhalten Bereich des benutzerdefinierten Bereichs mit der Maus

Question

Dies ist nicht das usedrange Problem.
Zum Beispiel in Excel Benutzer wählt einen Bereich (möglicherweise leere) Maus, sagen wir mal B4: C12

Und seien wir danach sagen, ohne dass der Bereich Benutzer Abwahl des Makro drückt, und Makro sollte B4 sagen: C12.

Kann jemand Beispiel zeigen?

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:

Das Makro sollte etwas entlang der Linien der folgenden sein!

Answer 2

Sub macro1() 
    MsgBox Selection.Address 
End Sub 

oder

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

Als Auswahlen mehrere unabhängige Bereiche umfassen kann, zeigt der folgende Code eine vollständigere Lösung für das Problem:

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