martes, 11 de septiembre de 2018

VBA: Ancho y Alto de una Celda Combinada

Semanas atrás un lector preguntaba por la manera de conocer cuántas celdas 'reales' existían en una celda combinada, o dicho de otro modo cuál era el ancho y alto de una celda combinada...

Aplicaremos un poco de programación, muy sencilla, para responder la cuestión.
La propiedad .MergeArea del objeto Range.

Partiremos de una celda combinada en nuestra hoja de cálculo, resultado de combinar y centrar B2:C6, i.e., 5 filas por 2 columnas

VBA: Ancho y Alto de una Celda Combinada



Insertaremos el siguiente procedimiento 'Function' en un módulo estándar:

Function DimensionCeldaCombinada(rango As Range) As String
    'contamos filas del rango seleccionado
    filas = rango(1).MergeArea.Cells.Rows.Count
    'contamos columnas del rango seleccionado
    cols = rango(1).MergeArea.Cells.Columns.Count
    'contamos celda totales del rango seleccionado
    totalCeldas = rango(1).MergeArea.Cells.Count
    'y devolvemos dato a la función
    DimensionCeldaCombinada = filas & " filas -" & cols & " columnas =" & totalCeldas & " celdas"
End Function



Vemos el resultado y cómo funciona según lo esperado:

VBA: Ancho y Alto de una Celda Combinada

No hay comentarios:

Publicar un comentario