Por medio del uso Range podemos emplear diversos conjuntos de datos, en este artículo veremos como hacer referencia a los rangos.
Por medio de Range podemos identificar los siguientes rangos:
* Un conjunto de celdas
* Una celda especifica
* Una fila o columna entera
* Celdas en otras hojas de trabajo.
Formas de Seleccionar celdas con Range
Una celda especifica:
Range("A1").select
Un conjunto de celdas:
Range("B1:C4").select
Range(Cells(1, 1), Cells(5, 3)).select
Conjunto de celdas no contiguas:
Range("B1,B5,D6").Select
Celdas no contiguas mas un conjunto especifico:
Range("G1,H2,A1:B3").Select
Ejemplos de referencia a rangos en VBA
A continuación vamos a revisar algunos ejemplos sobre como hacer referencia a rangos usando Range
Sub ejemplo01()
' Escribir una misma palabra en todo el rango
Worksheets("Hoja2").Range("B15:E33") = "Hola"
' Ahora escriberemos otro texto solo en 2 celdas
Worksheets("Hoja2").Range("D5,G7") = "Excel"
Worksheets("Hoja2").Range("J1,H2,B8") = "Avanzado"
Range("A1").Offset(2, 2) = "Referencia"
End Sub
Como se puede ver el codigo Offset en VBA se basa en la celda, para a partir de esa referencia emplear otra celda, para conocer mas detalles del offset se puede revisar: Utilidad del Offset
En el siguiente ejemplo observaremos como por medio de una variable (en este caso la variable se llama "Mirango") se puede hacer referencia a un rango de celdas, y realizar diversas operaciones sobre el conjunto de celdas.
Sub ejemplo02()
Dim Mirango As Range
Set Mirango = Worksheets("Hoja1").Range("B55:E59")
Mirango.Formula = "Area"
Mirango.Font.Bold = True
End Sub
Descargar ejemplos mostrados: Referencia a rangos en VBA