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 < br > 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 < br >
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 .
