Excel VBA obtiene rango de rango seleccionado por el mouse

Question

Este no es el problema usedrange.
Por ejemplo, en usuario de Excel selecciona un rango (posiblemente vacía) a través del ratón, digamos B4: C12

Y digamos que después de esto sin anular el usuario gama presiona la macro y macro debe decirle B4: C12.

¿Alguien puede mostrar un ejemplo?

La macro debe haber algo en la línea de lo siguiente:

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 

o

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

como selecciones pueden incluir varias gamas, independientes, el código siguiente muestra una solución más completa para el problema:

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