Cómo Utilizar Rango con Fila y Columna Variable con Excel VBA

Hugh West

16-10-2023 Macros & Excel VBA
  • Compartir Este
Hugh West

Se consume mucho tiempo cuando se desea dar formato a las celdas por selección y trabajar con grandes datos al mismo tiempo. Pero con la ayuda del VBA En este tutorial, le mostraremos cómo utilizar línea variable y columna variable en un rango con Excel VBA .

Descargar el cuaderno de prácticas

Descárgate este cuaderno de prácticas para ejercitarte mientras lees este artículo.

Variable Fila y Columna con VBA.xlsm

5 Formas Adecuadas de Usar Rango con Fila y Columna Variable con Excel VBA

En la siguiente sección, demostraremos 5 formas de crear líneas variables y columnas Además, le mostraremos cómo utilizarlos para dar formato o aplicar cualquier personalización a los archivos. gama variable En la siguiente imagen se representa un conjunto de datos de muestra para utilizar la tarea.

1. Formatear un Rango Específico Aplicando una Fila Variable con Excel VBA

Digamos, que queremos seleccionar un gama variable solicitando un número de línea variable Seleccionaremos la gama B5:C10 y aplicar el color de fuente ( Granate Para ello, siga estos sencillos pasos.

♠ Paso 1: Crear un módulo VBA

  • En primer lugar, pulse Alt + F11 para iniciar el Macro VBA .
  • Haga clic en en el Insertar.
  • A continuación, seleccione Módulo .

♠ Paso 2: Escribir un código VBA.

  • Escriba lo siguiente Códigos VBA. 
 Sub Variable_row_Select() 'Declara una variable para el número de fila Dim Row_Number As Integer 'Introduce un cuadro de entrada, escribe 10 para el número de fila Row_Number = InputBox("Escribe el número de fila") 'Inserta la variable 'row_num' para seleccionar las 5 primeras filas que contienen datos Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub

Paso 3: Ejecutar el programa

  • En primer lugar, guardar el programa y pulse F5 para correr.
  • Por lo tanto, el Cuadro de entrada y escriba 10 como el número de fila .

  • Por último, pulse Entre en para ver que el gama con ( Fila 5 , Columna 2 ) a ( Variable Fila 10 , Columna 3 ) será seleccionado .

♠ Paso 4: Aplicar color de fuente a la gama.

  • Para añadir color de fuente en el gama pegue lo siguiente Códigos VBA . 
 Sub Variable_row_Font() 'Declarar una variable para el número de fila Dim Row_Number As Integer 'Introducir un cuadro de entrada, escriba 10 para el número de fila Row_Number = InputBox("Escriba el número de fila") 'Insertar la variable 'row_num' para seleccionar las 6 primeras filas de datos que contiene Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Introducir un color a la fuente en Granate With Selection .Font.Color = RGB(128, 0, 0)End With End Sub

Paso 5: Escriba un número de fila

  • Tipo a número de fila ( 10 ) en el Cuadro de entrada .
  • Haga clic en OK .

  • Por lo tanto, el gama seleccionada será de color como se muestra en la siguiente imagen.

Más información: Cómo utilizar VBA para establecer una variable de rango a la selección en Excel (5 métodos)

2. Personalizar un Rango Dinámico Aplicando una Fila Variable con Excel VBA

Cuando el rango utilizado es tan grande que no se puede diferenciar el número de fila, es posible que tenga que utilizar la función última fila utilizada como su línea variable Para hacerlo, siga los pasos que se indican a continuación.

♠ Paso 1: Introducir un código VBA

  • Seleccione un nuevo Módulo del Inserte
  • En el nuevo Módulo , escriba a lo siguiente Programa VBA . 
 Sub Variable_Dynamic_Row() 'declara una variable para el número de fila Dim Last_Used_Row As Integer 'Define la variable para el rango usado Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Aplica la variable para seleccionar la última fila actual en el rango Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub

♠ Paso 2: Obtener la selección

  • Después de ejecutar el programa, su gama será seleccionado hasta su último utilizado fila.

♠ Paso 3: Aplicar un color de fuente

  • A marca el gama seleccionada o a editar , pegar lo siguiente Códigos VBA . 
 Sub Variable_Dynamic_Row() 'declara una variable para el número de fila Dim Last_Used_Row As Integer 'Define una variable para el rango usado Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Aplica la variable para seleccionar la última fila actual en el rango Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

♠ Paso 4: Resultado final

  • Por fin, guardar el programa y ejecute pulsando F5 .
  • Como resultado, el alcance con su última fila utilizada se formatea con color.

Más información: Excel VBA: Copiar Rango Dinámico a Otro Libro

Lecturas similares

  • Cómo utilizar VBA para cada fila de un rango en Excel
  • VBA para Recorrer Filas y Columnas de un Rango en Excel (5 Ejemplos)
  • Excel VBA para Recorrer un Rango hasta una Celda Vacía (4 Ejemplos)
  • Cómo convertir rango a matriz en Excel VBA (3 maneras)
  • Cómo utilizar VBA para seleccionar el rango de la celda activa en Excel (3 métodos)

3. Formatear un Rango Específico Aplicando una Columna Variable con Excel VBA

Similar a líneas variables puede solicitar columnas variables con Excel VBA . B5 ( Fila 5 , Columna 2 ) es la célula primera célula en el gama, y Fila 8 es el última fila en el rango; la última columna es el columna variable Siga los procedimientos que se indican a continuación para aplicar el columna variable .

♠ Paso 1: Escribir un código VBA.

  • En un nuevo Módulo , escriba a lo siguiente Código VBA . 
 Sub Variable_Column_Font() 'Declara una variable para el número de fila Dim Column_num As Integer 'Introduce un cuadro de entrada, escribe 5 para el número de columna Column_num = InputBox("Escribe el número de columna") 'Inserta la variable 'Column_num' para seleccionar las 5 primeras columnas de datos Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Introduce un color para la fuente en Maroon With Selection .Font.Color =RGB(128, 0, 0) End With End Sub

Paso 2: Ejecutar el programa

  • A ejecute el programa, pulse F5 después de ahorrando .
  • Por lo tanto, verá los siguientes resultados como su celdas seleccionadas son la gama B5:E8 .

4. Personalizar un Rango Dinámico Aplicando una Columna Variable con Excel VBA

Además del anterior, puede personalizar el columna variable dinámicamente. A medida que aumentar datos en un columna que añada a la selección Para ello, siga estas sencillas instrucciones.

♠ Paso 1: Pegar un código VBA

  • Pegar lo siguiente VBA códigos en un nuevo Módulo . 
 Sub Variable_Dynamic_Column() 'declara una variable para el número de columna Dim lastColumn As Integer 'Define la variable para el rango usado lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'Aplica la variable para seleccionar la última columna en el rango Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'colorea la fuente de las celdas seleccionadas en Maroon With Selection .Font.Color = RGB(128, 0.)0) End With End Sub

Paso 2: Ejecutar el programa

  • En primer lugar, guardar el programa y pulse F5 para correr.
  • Como resultado, se selecciona el rango y se formatea hasta el última columna utilizada en la hoja de cálculo.

Más información: Macro Excel: Ordenar Varias Columnas con Rango Dinámico (4 Métodos)

5. Crear un Rango con Fila Variable y Columna Variable con Excel VBA

Es importante destacar que puede utilizar tanto líneas variables y columnas variables La primera celda de nuestro rango de selección es B5 ( Fila 5, Columna 2 ) y el último rango variará en función de nuestra selección. Siga los pasos descritos a continuación para realizar la tarea.

♠ Paso 1: Escriba un código VBA.

  • En primer lugar, crear un nuevo Módulo .
  • Entonces, escriba a lo siguiente Códigos VBA . 
 Sub Variable_Column_Row() 'declara una variable para el número de fila Dim Row_Number As Integer 'declara una variable para el número de columna Dim Column_num As Integer 'Define las variables - escribe 8 para el número de fila y 4 para la columna Row_Number = InputBox("Escribe el número de fila") Column_num = InputBox("Escribe el número de columna") 'Aplica la variable para seleccionar filas y columnas en el rango Sheets("Sheet5").Range(Cells(5, 2),Cells(Row_Number, Column_num)).Select With Selection .Font.Color = RGB(128, 0, 0) End With End Sub

♠ Paso 2: Insertar el número de fila

  • Tipo cualquier número de fila .

♠ Paso 3: Insertar el número de columna

  • Tipo cualquier número de columna .

♠ Paso 4: Obtener los resultados finales

  • En consecuencia, al seleccionar ( Fila , Columna ) = ( 8,5 ), obtendrá el resultado final que se muestra en la siguiente imagen.

Conclusión

Por último, espero que ahora entiendas cómo utilizar el rango con filas y columnas variables con Excel VBA Examine el libro de prácticas y aplique lo aprendido. Gracias a su generoso apoyo, podemos seguir ofreciendo programas como éste.

Si tiene alguna pregunta, no dude en ponerse en contacto con nosotros. Comparta su opinión en la sección de comentarios.

En Exceldemy El personal se pondrá en contacto con usted lo antes posible.

Quédate con nosotros y sigue aprendiendo.

Publicación anterior Cómo convertir Excel a archivo de texto con delimitador de tubo (2 maneras)
Siguiente publicación Cómo Aplicar Múltiples Filtros en Excel (6 Métodos Adecuados)

Hugh West es un capacitador y analista de Excel altamente experimentado con más de 10 años de experiencia en la industria. Tiene una Licenciatura en Contabilidad y Finanzas y una Maestría en Administración de Empresas. Hugh tiene una pasión por la enseñanza y ha desarrollado un enfoque de enseñanza único que es fácil de seguir y comprender. Su conocimiento experto de Excel ha ayudado a miles de estudiantes y profesionales en todo el mundo a mejorar sus habilidades y sobresalir en sus carreras. A través de su blog, Hugh comparte su conocimiento con el mundo, ofreciendo tutoriales gratuitos de Excel y capacitación en línea para ayudar a las personas y empresas a alcanzar su máximo potencial.