MEDIAactive

Aprender a programar con Excel VBA con 100 ejercicios práctico


Скачать книгу

Despliegue el menú Inicio de Windows y escoja la opción Microsoft Office. En este submenú, seleccione la opción Herramientas de Microsoft Office y luego la opción Certificado digital para proyectos VBA. Introduzca su nombre y la firma estará lista al momento.

021 Crear un procedimiento

      UN PROCEDIMIENTO ES UNA UNIDAD de código que contiene instrucciones y que siempre debe estar contenido en un módulo. Hasta ahora hemos trabajado con procedimientos Sub y en este ejercicio conoceremos más sobre cómo crear un procedimiento Sub directamente desde Visual Basic.

      1 En este ejercicio crearemos un sencillísimo procedimiento dentro de un módulo que sea capaz de realizar un cálculo y mostrar su resultado en una caja de texto. Desde la aplicación Visual Basic, inserte un nuevo módulo en blanco en el proyecto Prácticas1. Después de la instrucción Sub debe indicar el nombre de la macro seguido, sin espacio, de un paréntesis de apertura y uno de cierre. Al pulsar Retorno se inserta la instrucción de cierre.

      2 En esta ocasión introduciremos el código entero desde esta aplicación. Escriba en su ventana de código el siguiente texto: Sub Suma() y pulse la tecla Retorno.

      3 Automáticamente se añade al código la instrucción End Sub que indica el final el procedimiento Sub, pero el cursor de edición permanece en medio de las dos líneas de texto, que es el punto en el que tendrá que introducir las instrucciones de la macro. Pulse la tecla Tabulador para dejar una sangría que facilite la lectura.

      4 Escriba ahora una fórmula que haga que la aplicación calcule una sencilla suma: Sum=25+25 y pulse la tecla Retorno.

      5 La aplicación corrige el código automáticamente insertando espacios en blanco entre cada elemento. En la siguiente instrucción le indicaremos a la aplicación que muestre el resultado de la suma anterior en un cuadro de mensaje. Escriba el texto: MsgBox y observe cómo, al introducir esta palabra, que es una función, aparece una pestaña flotante donde se indica la sintaxis correcta de la misma. Sin embargo ahora omitiremos todos los argumentos para que se use su versión por defecto más simple.Al introducir una función, se muestra una etiqueta de ayuda con su sintaxis.

      6 Escriba a continuación y en la misma línea el texto que contendrá la caja de texto: “El resultado es:” & Sum.

      7 El texto entre comillas será mostrado de forma literal, por eso es importante que conserve el espacio en blanco después de los dos puntos, y el texto & Sum indica que el resultado de la suma sea mostrado inmediatamente después. Pulse sobre la herramienta Ejecutar.

      8 Confirme que desea ejecutar la macro Suma y pulse el botón Ejecutar del cuadro Macros. La función MsgBox muestra una caja de texto que por defecto tiene sólo un botón Aceptar, pero en el ejercicio siguiente verá cómo personalizarla.

      9 Se muestra en medio de la pantalla el cuadro Microsoft Excel que le muestra exactamente el texto indicado. Pulse el botón Aceptar para cerrarlo y pase a la siguiente lección donde creará algunas variaciones de esta sencilla macro.

      IMPORTANTE

      En este ejercicio hemos creado un procedimiento en el que se utiliza una función. Más adelante trabajaremos con procedimientos de funciones y comprobará que no se trata de lo mismo.

      Конец ознакомительного фрагмента.

      Текст предоставлен ООО «ЛитРес».

      Прочитайте эту книгу целиком, купив полную легальную версию на ЛитРес.

      Безопасно оплатить книгу можно банковской картой Visa, MasterCard, Maestro, со счета мобильного телефона, с платежного терминала, в салоне МТС или Связной, через PayPal, WebMoney, Яндекс.Деньги, QIWI Кошелек, бонусными картами или другим удобным Вам способом.

/9j/4QAYRXhpZgAASUkqAAgAAAAAAAAAAAAAAP/sABFEdWNreQABAAQAAABkAAD/4QN6aHR0cDov L25zLmFkb2JlLmNvbS94YXAvMS4wLwA8P3hwYWNrZXQgYmVnaW49Iu+7vyIgaWQ9Ilc1TTBNcENl aGlIenJlU3pOVGN6a2M5ZCI/PiA8eDp4bXBtZXRhIHhtbG5zOng9ImFkb2JlOm5zOm1ldGEvIiB4 OnhtcHRrPSJBZG9iZSBYTVAgQ29yZSA1LjMtYzAxMSA2Ni4xNDU2NjEsIDIwMTIvMDIvMDYtMTQ6 NTY6MjcgICAgICAgICI+IDxyZGY6UkRGIHhtbG5zOnJkZj0iaHR0cDovL3d3dy53My5vcmcvMTk5 OS8wMi8yMi1yZGYtc3ludGF4LW5zIyI+IDxyZGY6RGVzY3JpcHRpb24gcmRmOmFib3V0PSIiIHht bG5zOnhtcE1NPSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvbW0vIiB4bWxuczpzdFJlZj0i aHR0cDovL25zLmFkb2JlLmNvbS94YXAvMS4wL3NUeXBlL1Jlc291cmNlUmVmIyIgeG1sbnM6eG1w PSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvIiB4bXBNTTpPcmlnaW5hbERvY3VtZW50SUQ9 ImFkb2JlOmRvY2lkOmluZGQ6M2M2Y2Q3MDktZjNiMS0xMWRkLWFiYTYtYjA3MDNmYzFlOTgxIiB4 bXBNTTpEb2N1bWVudElEPSJ4bXAuZGlkOjlGQzBFMjg0NTE3MTExRTlBMzA3Q0JFODI4NTkzREQz IiB4bXBNTTpJbnN0YW5jZUlEPSJ4bXAuaWlkOjlGQzBFMjgzNTE3MTExRTlBMzA3Q0JFODI4NTkz REQzIiB4bXA6Q3JlYXRvclRvb2w9IkFkb2JlIEluRGVzaWduIENTNCAoNi4wLjYpIj4gPHhtcE1N OkRlcml2ZWRGcm9tIHN0UmVmOmluc3RhbmNlSUQ9InV1aWQ6Mjg4M2U0MGItODI2MS02NDQ1LTg1 ODQtODY0ZDM4NmEzYTY2IiBzdFJlZjpkb2N1bWVudElEPSJ4bXAuZGlkOjUyMEFERDJEMTgyMDY4 MTE4OEM2ODY1MjM0RTNDNTk1Ii8+IDwvcmRmOkRlc2NyaXB0aW9uPiA8L3JkZjpSREY+IDwveDp4 bXBtZXRhPiA8P3hwYWNrZXQgZW5kPSJyIj8+/+4ADkFkb2JlAGTAAAAAAf/bAIQAAQEBAQEBAQEB AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgICAgICAgICAwMDAwMDAwMDAwEB AQEBAQECAQECAgIBAgIDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD AwMDAwMD/8AAEQgLuAl4AwERAAIRAQMRAf/EATQAAQABBAMBAQEAAAAAAAAAAAABAgMEBQYHCAkK CwEBAAMBAQADAQEAAAAAAAAAAAECAwQFBgcICQoQAAEDAgMFBAUHBAYOEA0CJwEAAgMRBCEFBjFB URIHYXETCIGRoSIy8LHB0VIUCeFCIxXxYnIzFgqCkrJD0ySUthdXdxg4GqLSU2NzkzQlNVWVtdV2 ljnCg7NEVHS01HUmNlbWN5dYGaNkRUe3eMOEhaVmhicoSCnixMVGxmeHpORl