Propiedad Rows

VBA tiene algunas propiedades que permiten trabajar con filas y columnas completas estas son las propiedades Rows y Columns. Existen otras que indican el numero de la fila o de columna de la celda activa, Row y Column.

La propiedad Count se utiliza para devolver el numero de celdas de un objeto Range. En conjunción con la propiedad Rows devuelve el numero de filas de un objeto Range y en conjunción con la propiedad Columns devuelve el numero de columnas.

En este articulo trataremos sobre la propiedad Rows. Esta es una propiedad que permite crear un objeto, que incluye la fila entera. Para referirse a una fila en especifico hay que colocar un índice entre paréntesis.

Referencia Significado
Rows(1) Se refiere a la fila 1
Rows Se refiere a todas las filas

El siguiente procedimiento da formato resaltado (Bold) en la fila 1 de la Hoja1.

Public Sub SeleccionFila()
Worksheets(“Hoja1”).Rows(1).Font.Bold = True

End Sub

El siguiente procedimiento da formato resaltado a todas las filas de la hoja1.

Public Sub SelecFilas()
Worksheets(“Hoja1”).Rows.Font.Bold = True

End Sub

Para crear un objeto que contenga mas de una fila existen dos formas:

Utilizar el método Union para crear un objeto con varias filas.

  1. Hay que crear una variable como objeto Range.
  2. Hacer el objeto Range igual a un grupo de de filas con el método Union.
  3. Utilizar el objeto creado como un grupo de filas

 

Public Sub VariasFilas()
Worksheets(“Hoja2”).Activate
Dim MisFilas As Range
Set MisFilas = Union(Rows(1), Rows(2), Rows(3), Rows(4))
MisFilas.Font.Bold = True

End Sub

Utilizar la propiedad Range

Utilizar la propiedad Range con el operador ( : ) con el índice de filas.

Range(1 : 4)  Filas continuas de la 1 a la 4.

En el siguiente procedimiento se copia la palabra Hola en todas las celdas de las filas 1 a 4.

Public Sub SelRow()
Worksheets(“Hoja2”).Range(“1:4”).Value = “Hola”

End Sub

Range(“1:1, 8:8, 10:10”) Para referirse a filas no contiguas.

En este caso se se refiere a las filas 1 , 8 y 10, notese que la fila 1 se denota por 1:1 y se realiza la separación de la otra fila con una coma, 8:8.

Public Sub SelRow()
Cells.Clear
Worksheets(“Hoja2”).Range(“1:1,8:8, 10:10”).Value = “Vida”

End Sub

También se puede utilizar el metodo Union.

Union(Range(“1:1”), Range(“3:3”), Range(“5:5”)) Para Filas no contiguas

Public Sub VariasFilas2()
Worksheets(“Hoja2”).Activate
Cells.Clear
Dim MisFilas As Range
Set MisFilas = Union(Range(“1:1”), Range(“3:3”), Range(“5:5”))
MisFilas.Value = “Mas nada”
End Sub

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s