Saltar al contenido

Excel – VBScript para obtener rango de celdas seleccionado

Valora la información: 1 estrella2 estrellas3 estrellas4 estrellas5 estrellas (Ninguna valoración todavía)
Excel - VBScript para obtener rango de celdas seleccionadoCargando…

En el siguiente script es bastante útil al momento de personalizar tus códigos para que se ajusten a tus necesidades, algo común en Excel es requerir obtener la selección de celdas.

Codigo VBScript para obtener rango seleccionado

El siguiente script te permite obtener la selección, rango seleccionado o los rangos seleccionados si has hecho varias selecciones.

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

  Select Case Selection.Areas.Count
  Case 0:
    MsgBox "Sin seleccion."
  Case 1:
    MsgBox "Rango seleccionado: " & 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 "Varios rangos seleccionados:" & s
  End Select

End Sub

 

Leer entrada anterior
Excel - Quitar alerta del inspector de documento "Ten cuidado: es posible que algunas partes de tu documento..."
Excel – Quitar alerta del inspector de documento “Ten cuidado: es posible que algunas partes de tu documento…”

Cuando manejamos VBScript / Macros en Excel es común que al guardar el archivo Excel muestre el mensaje de alerta...

Cerrar