Anterior
Página:
1 2 [3]
4 Siguiente
Trabajando con Rangos o Celdas
En esta sección aparecerán algunas
de las instrucciones 'básicas' para utilizar con CELDAS o RANGOS. Una vez
copiada en el Editor, colocar el cursor sobre la palabra en negrita y presionar
F1 para acceder a la Ayuda Excel. Allí se encontrarán más explicaciones y
ejemplos para esa instrucción.
1- Formas de seleccionar una celda o un rango de celdas:
Range("B7").Select 'selecciona la
celda B7
Range("B:B").Select 'selecciona toda la
columna B
Range("A4:A10, D10, B5:B20").Select
'selecciona rangos discontinuos
Range("A" & variable).Select
'selecciona la celda cuya fila será el valor de la variable
Si definimos una variable que contiene la última fila a considerar:
rango=("B2:E" & variable) , entonces la siguiente
instrucción selecciona el rango B2:E hasta la fila indicada en la variable.
Range(rango).Select
De igual manera puede establecerse
el rango de inicio:
rango = "B" & ini
& ":E" & fini
Range(rango).Select
*- Nótese que
las variables NO llevan comillas
Range("A:A, D:F").Select 'selecciona las columnas A, D, E y F
Range("2:2, 4:7").Select 'selecciona las filas 2 y desde 4 hasta la 7
Nota: al
inicio de la sección Macros se encuentran otras instrucciones de selección
2- Seleccionar celdas a cierta distancia de la celda activa:
Sheets(1).Range("A1").Offset(2,3).Select
'selecciona 2 filas hacia abajo y 3 col a derecha de A1 = D3
ActiveCell.Offset(-10,1).Select
'selecciona la celda que se encuentra 10 filas por encima y 1 columna a la derecha de la celda activa.
3- Asignar Formato a celdas o
rangos:
Range("B2:D10").Select
'selecciona el rango y le aplica los siguientes formatos
With Selection
.Font.Bold=True 'formato negrita .Font.Italic=True
'formato cursiva .Font.Underline=xlUnderlineStyleSingle 'subrayado simple
.Font.Color = RGB(255,0,0)
'color de fuente (para estos valores será rojo) .HorizontalAlignment=xlCenter
'alineación central (Right=derecha, Left=izquierda)
End With
4- Guardar la dirección de una celda en una variable:
lugar= ActiveCell.Address
'guarda la referencia absoluta,
por ej: $E$2
lugar= ActiveCell.Address(False, False)
'guarda la referencia relativa,
por ej: E2
5- Copiar un comentario en otra celda:
ActiveCell.Offset(0,1).Value = ActiveCell.Comment.Text
'copia el comentario de la celda activa en la celda que se encuentra en la columna siguiente.
6-Seleccionar celdas y borrarlas:
Range(rango). Select
'previamente se asignó a la variable rango una ref
Selection.ClearContents
La expresión Cells.Clearcontents
borrará el contenido del total de celdas de la hoja activa
Utilizando
solamente Clear se borrarán formatos también.
7- Ampliar un rango seleccionado
Selection.Resize(10,4).Select
' (10 filas, 4 columnas)
' si el rango seleccionado fue A1:B5 ahora será: A1:D10
8- Combinar celdas selecccionadas:
Range("B1:E1").Select
Selection.Merge
Para quitar la combinación:
Unmerge
9- Seleccionar el rango donde se encuenra la celda activa:
Range("B2").CurrentRegion.Select
10- Seleccionar hasta la última celda no vacía:
Range("A2", Range("A2").End(xlDown)).Select
'seleciona desde A2 hacia abajo
Range("A2", Range("A2").End(xlToRight)).Select
'selecciona desde A2 hacia la derecha
Range("D2", Range("D2").End(xlToLeft)).Select
'selecciona desde D2 hacia la izquierda
Range("A20", Range("A20").End(xlUp)).Select
'selecciona desde A20 hacia arriba
En cambio, para seleccionar solo la última celda con datos será:
Range("A2").End(xlDown).Select
Nota: Esta instrucción
dará error si la celda A3 se encuentra vacía. Es preferible en ese caso realizar
la búsqueda de 'abajo hacia arriba', con:
Range("A65536").End(xlup).Select
11- Obtener la primer celda vacía,
en col A:
Range("A2").End(xlDown).Row
+ 1 'o
Range("A65536").End(xlup).Row +
1
Anterior
Página:
1 2 [3]
4 Siguiente
