Cómo utilizar ActiveCell en Excel mediante un VBA

Si trabaja con Microsoft Office Excel menudo es bueno saber cómo se utiliza la propiedad " ActiveCell " para añadir , obtener , e incluso cambiar el formato de los datos en una hoja de cálculo . Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación utilizado para automatizar tareas rutinarias. En VBA se puede utilizar la propiedad " ActiveCell " para realizar cambios en los datos. Con VBA puede ahorrar tiempo mediante la automatización de un proceso en lugar de realizar la misma tarea de forma manual. Instrucciones
1

lanzamiento de Microsoft Office Excel , haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic ".

2 Haga clic en el menú " Insertar" y haga clic en " Módulo " para insertar un nuevo módulo de código . Escriba el siguiente código para iniciar un nuevo procedimiento sub :

Private Sub usingActiveCell ()
3

Copia y pega el siguiente para activar "Sheet1 : "
< . p> Worksheets ( " Sheet1" ) Activar
4

Copia y pega el siguiente para agregar un valor a "A1 ", "A2 " y " A3: "

Range ("A1 ") . Seleccione

ActiveCell.Value = 3.5

Range (" A2" ) . Seleccione

ActiveCell.Value = 10

Range . ( "A3 " ) Seleccione

ActiveCell.Value = 20
5

Copia y pega el siguiente para resaltar las celdas con los datos :

ActiveCell
Gama

( Cells ( Fila, CurrentRegion.Column ) , células ( Row, CurrentRegion.Columns.Count + CurrentRegion.Column - . . . . . 1 ) ) . Interior.ColorIndex = 8

Range ( Las células ( CurrentRegion.Row , Columna ) , células ( CurrentRegion.Rows.Count + CurrentRegion.Row - . . . . . 1 , Columna ) ) . Interior.ColorIndex = 8

extremo con
< p> Application.ScreenUpdating = True
6

Copia y pega el siguiente para mostrar los valores de agregado a través de la " ventana Inmediato : " .

Range (" A1") Seleccione

Debug.Print ActiveCell.Value

Range (" A2" ) . Seleccione

Debug.Print ActiveCell.Value

Range (" A3 ") . Seleccione

Debug.Print ActiveCell.Value
7

Copia y pega el siguiente para finalizar el procedimiento sub :

End sub ​​
8

pulse la tecla "Ctrl " y "G " para mostrar la " ventana Inmediato " y presione "F5 " para ejecutar el procedimiento .