Cómo escribir macros en Visual Basic

¿Cuánto tiempo puedes dedicar a aprender este tipo de código informático : " Selection.Sort Key1 : = Range (" A5 ") , Order1 : = xlAscending ? " Usted puede sentir la vida es demasiado corta como para gastar tanto tiempo para hacer una tarea simple. Afortunadamente , Visual Basic ofrece una manera más fácil . Para muchas tareas , sólo tiene que crear una macro , que es un procedimiento automatizado creado a partir de un procedimiento manual. Las macros son útiles porque sólo tiene que pulsar un botón y graba los pasos necesarios para completar la tarea en la hoja de cálculo . El intérprete de Visual Basic genera automáticamente el código . El ordenador se encarga de la sintaxis arcana para que usted no tiene que preocuparse por ello . Cada vez que desee ejecutar el procedimiento , que acaba de ejecutar la macro. Instrucciones
1

Crear algunos datos de un macro " tipo " . Introduzca los siguientes datos en celdas A1 a A5 : " Mancini ", " Talbot ", " Simons ", " Chen" y " Ito "
2

Iniciar grabación de la macro seleccionando " Herramientas" y . "Macro ". A continuación, seleccione " Grabar nueva macro " y presione "OK . "
3

Mueva el cursor a la celda A1 con la tecla " Ctrl " + "Home ". Seleccione la columna de nombres manteniendo pulsada la tecla "Shift " y la tecla " Ctrl " con la flecha hacia abajo. Pulse el botón " Ascending Clasificar " clave ( el botón en el menú superior llamado " AZ ", con una flecha hacia abajo ) . Detener la grabación de la macro presionando el cuadrado azul en la ventana "Stop Rec" .
4

Revise su código generado por ordenador pulsando "Alt " y la tecla " F8 ". A continuación, seleccione el nombre de la macro , lo que debería ser " Macro1 " si el equipo seleccionado el nombre de forma automática. Pulse el botón " Editar ". Confirme que la computadora genera el siguiente código: Sub Macro1

() '' Macro1 Macro ' Macro grabada el 4/29/2010 por w ' Range

" (" A1 : A6 ") . SelectSelection.Sort Key1 : = Range (" A1") , Order1 : = xlAscending , Header : = xlGuess , _OrderCustom : = 1 , MatchCase : = False , Orientación: = xlTopToBottomActiveWindow.SmallScroll abajo : = 69End Sub