Ya hemos repasado qué son las variables y constantes, en nuestro tutorial Tipos de datos de VBA: variables y constantes. Ahora veremos el objeto de rango en VBA y cómo declarar una variable como un objeto de rango. El objeto de rango se usa para denotar celdas o celdas múltiples en VBA. Por lo tanto, es muy útil usarlo en su código.
Haga clic aquí para obtener más información sobre rangos y celdas VBA.
El objeto de rango de VBA
Puede utilizar el objeto de rango para hacer referencia a una sola celda. Por ejemplo, si desea hacer referencia a la celda A1 en su código VBA, puede usar el objeto de rango VBA como se muestra en el siguiente código:
1234 | Sub ReferringToASingleCellUsingTheRangeObject ()Rango ("A1"). Valor = 89Rango ("A1"). Font.Bold = TrueEnd Sub |
Cuando presiona ejecutar o F5 en su teclado, para ejecutar su código, obtiene el siguiente resultado, en su hoja de trabajo real:
Puede usar el objeto de rango para hacer referencia a múltiples celdas o rangos. Por ejemplo, si desea hacer referencia al rango de celdas (A1: C1) en su código VBA, puede usar el objeto de rango VBA como se muestra en el siguiente código:
123456 | Sub ReferringToMultipleCellsUsingTheRangeObject ()Rango ("A1: C1"). Valor = "ABC"Rango ("A1: C1"). Bordes (xlEdgeBottom) .LineStyle = xlDoubleEnd Sub |
Cuando presiona ejecutar o F5 en su teclado, para ejecutar su código, obtiene el siguiente resultado, en su hoja de trabajo real:
Declarar una variable como rango
Deberá utilizar las palabras clave Dim y Set al declarar una variable como rango. El siguiente código le muestra cómo declarar una variable como rango.
123456789101112 | Sub DeclaringAndSettingARange ()Atenuar como rangoEstablecer rng = Rango ("A10: B10")rng.Value = "AutomateExcel"rng.Font.Bold = Verdaderorng.Selectrng.Columns.AutoFitEnd Sub |
El resultado es:
Seleccionar filas específicas en su objeto de rango
Puede seleccionar filas específicas dentro de su objeto de rango. El siguiente código le muestra cómo hacer esto:
12345678 | Sub SelectingSpecificRowsInTheRangeObject ()Atenuar como rangoEstablecer rng = Rango ("A1: C3")rng.Rows (3) .SeleccionarEnd Sub |
El resultado es:
Seleccionar columnas específicas en su objeto de rango
Puede seleccionar columnas específicas dentro de su objeto de rango. El siguiente código le muestra cómo hacer esto:
12345678 | Sub SelectingSpecificColumnsInTheRangeObject ()Atenuar como rangoEstablecer rng = Rango ("A1: C3")rng.Columns (3) .SeleccionarEnd Sub |