seleccionar - Excel VBA obtiene el rango de rango seleccionado por el usuario con el mouse

mostrar texto al pasar el mouse excel

Question

Este no es el problema de usedrange .
Por ejemplo, en Excel el usuario selecciona un rango (posiblemente vacío) usando el mouse, digamos B4: C12

Y digamos después de esto sin anular la selección del usuario de rango, presiona la macro, y la macro debería indicar B4: C12 .

¿Alguien puede mostrar un ejemplo?

La macro debe ser algo similar a lo siguiente:

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

Answer 1

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 2

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

HTH!

Answer 3

Como las selecciones pueden incluir varios rangos independientes, el siguiente código muestra una solución más completa al 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