Cómo Obtener el valor de una celda en Visual Basic

El poder de Visual Basic es la capacidad de crear procedimientos automáticos simplemente mediante el registro de ellas en la hoja de cálculo. Por ejemplo, si desea obtener el valor de una celda en Visual Basic, puede crear un procedimiento simple y registrarlo como una macro. Más tarde, puede ejecutar la macro para automáticamente el trabajo que de otra manera hacer de forma manual a través del teclado. Aún más poderoso es el siguiente paso: Creación de otros procedimientos que pueden utilizar el procedimiento que acaba de crear. Aunque es probable que sea necesario, finalmente, escribir algo de código en el Editor de Visual Basic, puede ahorrar mucho tiempo al permitir que la computadora genere el código.

Instrucciones

Al obtener el valor de una copia simple

1 Ir a la celda A4 en una nueva hoja de cálculo y escriba "10" Haga clic en "Herramientas", seleccionar "Macro" y seleccionar "Grabar nueva macro." Enter "Macro1" para el nombre de la macro. Haga clic en Aceptar."

2 Haga clic en la celda "A4". Mantenga pulsada la tecla "Ctrl" y pulse "C" Pulse el cuadrado azul bajo la palabra STOP en el panel emergente para detener la grabación de la macro.

3 Mirar el código que ha creado haciendo clic en "Herramientas", "Macro" y "macros". Haga clic en "Editar". Confirmar que el código es como la siguiente:

Sub Macro1 ()
'
'Macro Macro1
'
'

Range("A4").Select
Selection.Copy

End Sub

Conseguir el valor utilizando una referencia de celda

4 Iniciar un nuevo libro de Excel mediante la opción "Nuevo" en el menú Archivo. Ir a la celda A3 y escribe "15." Haga clic en "Herramientas", seleccionar "Macro" y seleccionar "Grabar nueva macro." Enter "Macro2" para el nombre de la macro. Haga clic en Aceptar."

5 Haga clic en la celda "A4". Tipo "= A3" y presionar "Enter". Pulse el cuadrado azul debajo de la palabra "Stop" en el panel emergente para detener la grabación de la macro.

6 Mirar el código que ha creado haciendo clic en "Herramientas", "Macro" y "macros". Seleccione "Macro2" y haga clic en "Editar". Confirmar que el código es como la siguiente:

Sub Macro2 ()
'
'Macro Macro2
'
'

Range("A4").Select
ActiveCell.FormulaR1C1 = "=R[-1]C"
Range("A5").Select

End Sub