Tabla de contenido
En este artículo aprenderá a Ajustar intervalo para celdas, filas y columnas en VBA Excel.
Descargar el cuaderno de ejercicios
Puede descargar gratuitamente el libro de ejercicios de Excel desde aquí.
Establecer rango en VBA.xlsm
Objeto de rango VBA
En Gama objeto en VBA puede contener una sola celda, varias celdas, filas, columnas dentro de la hoja de cálculo de Excel.
La jerarquía de la Gama es el siguiente.
Aplicación> Cuaderno de trabajo> Hoja de cálculo> Gama
Así es como debe declarar el Gama objeto en VBA .
7 Ejemplos sobre cómo establecer rango en VBA Excel
En esta sección se explicará cómo establecer un rango en una celda única, varias celdas, una fila, varias filas, una columna, varias columnas y establecer un rango mediante el botón de comando en VBA Excel.
1. Establecer rango en una sola celda en VBA
Aquí veremos cómo Ajustar intervalo en un una sola célula con VBA .
Pasos:
- Pulse Alt + F11 en su teclado o vaya a la pestaña Desarrollador -> Visual Basic para abrir Editor de Visual Basic .
- En la ventana de código emergente, en la barra de menús, haga clic en Insertar -> Módulo .
- Copie el siguiente código y péguelo en la ventana de código.
Sub RangoUnaCelda() Rango("B2").Valor = "Hola Mundo" End Sub
Toma,
B2 = la celda en la que queremos establecer el valor. Puede establecer cualquier número de referencia de celda que necesite.
Su código ya está listo para ejecutarse.
- Pulse F5 en el teclado o, en la barra de menús, seleccione Run -> Run Sub/UserForm También puede hacer clic en el botón pequeño icono Play en la barra de submenú para ejecutar la macro.
Celda B2 contiene ahora el valor " Hola Mundo ".
Más información: VBA para cada celda en el rango en Excel
2. Establecer Rango en Múltiples Celdas en VBA
Aquí veremos cómo Ajustar intervalo en múltiples células con VBA .
Pasos:
- De la misma manera que antes, abra Editor de Visual Basic del Desarrollador y Inserte a Módulo en la ventana de código.
- En la ventana de código, copia el siguiente código y pégalo.
Sub RangeCells() Range("A1:D5").Value = "¡Hola!" End Sub
Su código ya está listo para ejecutarse.
- Ejecutar la macro y todas las celdas de A1 a D5 ahora sostenga " ¡Hola! "
3. Establecer rango en una sola fila en VBA
Aquí veremos cómo Ajustar intervalo en un fila única con VBA .
Pasos:
- De la misma manera que antes, abra Editor de Visual Basic del Desarrollador y Inserte a Módulo en la ventana de código.
- En la ventana de código, copia el siguiente código y pégalo.
Sub RangeRows() Dim iRow As Range Set iRow = Range("A1:D5") iRow.Rows(3).Value = "¡Hola!" End Sub
Su código ya está listo para ejecutarse.
- Ejecutar la macro y sólo el Tercero de todas las filas de A1 a D5 ahora sostenga " ¡Hola! "
- Filas(3).Valor en el código daba acceso al Tercero fila de la gama específica A1:D5 .
4. Establecer Rango en Varias Filas en VBA
Aquí veremos cómo Rango establecido en varias filas con VBA .
Pasos:
- De la misma manera que antes, abra Editor de Visual Basic del Desarrollador y Inserte a Módulo en la ventana de código.
- En la ventana de código, copia el siguiente código y pégalo.
Sub RangeRows() Dim iRow As Range Set iRow = Range("A1:D5") iRow.Rows(1).Value = "¡Hola!" iRow.Rows(3).Value = "¡Hola!" iRow.Rows(5).Value = "¡Hola!" End Sub
Su código ya está listo para ejecutarse.
- Ejecutar la macro y la 1º , Tercero y Quinto filas de todas las filas de A1 a D5 ahora sostenga " ¡Hola! "
Lecturas similares:
- Cómo Seleccionar Rango Basado en el Valor de la Celda VBA (7 Maneras)
- Utilizar el Objeto Rango de VBA en Excel (5 Propiedades)
- Cómo utilizar el desplazamiento de rango de VBA (11 formas)
- VBA Rango con Número de Fila Variable en Excel (4 Ejemplos)
5. Establecer rango en una sola columna en VBA
Aquí veremos cómo Ajustar intervalo en un columna única con VBA .
Pasos:
- De la misma manera que antes, abra Editor de Visual Basic del Desarrollador y Inserte a Módulo en la ventana de código.
- En la ventana de código, copia el siguiente código y pégalo.
Sub RangeColumns() Dim iCol As Range Set iCol = Range("A1:D5") iCol.Columns(2).Value = "¡Hola!" End Sub
Su código ya está listo para ejecutarse.
- Ejecutar la macro y sólo el 2ª de todas las columnas de A1 a D5 ahora sostenga " ¡Hola! "
- iCol.Columnas(2).Valor en el código daba acceso al 2ª columna de la gama específica A1:D5 .
6. Establecer Rango en Múltiples Columnas en VBA
Aquí veremos cómo Ajustar intervalo en varias columnas con VBA .
Pasos:
- De la misma manera que antes, abra Editor de Visual Basic del Desarrollador y Inserte a Módulo en la ventana de código.
- En la ventana de código, copia el siguiente código y pégalo.
Sub RangeColumns() Dim iCol As Range Set iCol = Range("A1:D5") iCol.Columns(2).Value = "¡Hola!" iCol.Columns(4).Value = "¡Hola!" End Sub
Su código ya está listo para ejecutarse.
- Ejecutar la macro y la 2ª y 4ª columnas de A1 a D5 ahora sostenga " ¡Hola! "
7. Establecer Rango a través del Botón de Comando en VBA
Aquí aprenderemos a Ajustar intervalo utilizando Botón de mando en VBA .
Pasos:
- Ir a Desarrollador -> Insertar -> Botón de comando .
- Asegúrese de tener Modo de diseño encendida.
- Arrastre alrededor del Botón de mando en la hoja.
- Doble clic en el botón y le llevará a la ventana de código, autogenerada con un Código de subprocedimiento VBA .
- Dentro del Sub, escriba su código y Ahorra.
- Vuelva a la hoja de cálculo que le interese y haga clic en el botón Botón de mando El resultado basado en su código aparecerá en la hoja de cálculo.
Ventajas de VBA Set Range
- Es muy fácil de aplicar.
- Los argumentos dentro del campo Gama no son fijos, por lo que podemos modificar los valores del argumento según nuestras necesidades.
- Se puede pasar más de 1 valor como argumento.
Cosas para recordar
- CÉLULAS propiedades en VBA también se puede utilizar para establecer el Gama en VBA .
- Las variables de objeto deben establecerse como la referencia del objeto mediante la función SET
Conclusión
Este artículo le muestra cómo establecer el rango en Excel Macro VBA. Espero que este artículo le haya sido de gran utilidad. No dude en formular cualquier pregunta relacionada con el tema.