Cómo utilizar ActiveCell en Excel VBA El uso de un

Si trabaja con Microsoft Office Excel menudo es bueno saber cómo utilizar 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 puede utilizar la propiedad "ActiveCell" para realizar cambios en sus 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 "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 de substitución:

Private Sub usingActiveCell ()

3 Copia y pega el siguiente para activar "Hoja1:"

Hojas de trabajo ( "Sheet1"). Activar

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

Range ( "A1"). Seleccionar

ActiveCell.Value = 3.5

Range ( "A2"). Seleccionar

ActiveCell.Value = 10

Range ( "A3"). Seleccionar

ActiveCell.Value = 20

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

con ActiveCell

Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 8

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

Terminar con

Application.ScreenUpdating = True

6 Copiar y pegar el siguiente para mostrar los valores añadidos a través de la "ventana Inmediato:"

Range ( "A1"). Seleccionar

Debug.Print ActiveCell.Value

Range ( "A2"). Seleccionar

Debug.Print ActiveCell.Value

Range ( "A3"). Seleccionar

Debug.Print ActiveCell.Value

7 Copia y pega el siguiente para finalizar el procedimiento substitución:

End Sub

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