Código para tareas usuales

Del feedback recibido (y que agradezco mucho) he notado que incluso personas que no conocen el Visual Basic pueden beneficiarse del VBA usando sus características básicas. Para ellos les incluyo un resumen de códigos que pueden cortar y pegar en sus programas para las tareas que se usan frecuentemente. Aquí van:

1. Para que el form desaparezca del documento después de clickear un botón. Al final del código del botón se agrega lo siguiente:

Unload UserForm1 (o, el nombre de la form que estan usando, si lo han cambiado)

2. Para que un documento se imprima automáticamente después de clickear un botón. Se agrega el siguiente código:

Application.PrintOut FileName:="Permiso.doc", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False
Selection.WholeStory
Selection.Delete Unit:=wdCharacter, Count:=1
Unload UserForm1

(en este caso el documento se llama permiso.doc, en lugar de ese nombre se coloca el nombre del documento que estén usando)

3. Para cambiar el tamaño y tipo de font

Selection.Font.Size = 10

Selection.Font.Name="Arial"

4. Para colocar espacio simple, doble, etc.

Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle

5. Para alinear a izquierda, derecha, centro o justificado completo

Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify (justificado completo)

Selection.ParagraphFormat.Alignment = wdAlignParagraphRight (justificado derecha)

etc..

6. Para escribir una linea de texto (con wordwrap automático)

Selection.TypeText Text:="este texto" (imprime la palabra "este texto", si la palabra es muy larga hace el wordwrap automáticamente)

Selection.TypeText Text:=TextBox1.Text (escribe el contenido de TextBox1.Text)

7. Para pasar a la línea siguiente (equivale a poner "enter")

Selection.TypeParagraph

En general, para saber cualquier código basta con grabar una macro, hacer lo que deseamos codificar y luego examinar la macro en "editor de Visual Basic" ¡El código aparecerá solito!

8. Para no escribir "selection" a cada rato

Si se fijan, todas las instrucciones especifiacs del VBA empiezan cos "Selection", para no repetirlo a cada rato se puede usar with... end with así:

(ojo con los puntitos antes de Font.Size, Font.Name, etc, en esta pantalla no se notan muy bien, pero deben escribirse)

With Selection

.Font.Size = 10

.Font.Name="Arial"

End With

9. Como cambiar las propiedades (solo para principiantes)

Para los que no manejan el Visual Basic, pero ya han hecho el primer ejemplo, les propongo que exploren la ventana de "propiedades" que aparece en la esquina inferior izquierda. Cada vez que seleccionamos un objeto de nuestra form (por ejemplo una textbox, un commandbutton, a la propia userform) cambia la lista de propiedades. Modificando valores de esta lista también podemnos modificar el aspecto y comportamiento de los objetos. Por ejemplo si hacemos doble click en la propiedad "backcolor" podemos cambiar el color de fondo del objeto. Con "forecolor" cambiamos el color del texto, con "font" cambiamos el font y sus características, etc.

Yo mismo aprendí a programar en Visual Basic jugando con las propiedades, es muy fácil e interesante explorar lo que significa cada propiedad.

En Visual Basic cada objeto tiene "propiedades" (colores, altura, posición, visible o invisible, y otras que dependen del objeto) y "eventos". Los eventos aparecen cuando hacemos doble click sobre un objeto. En la parte superior derecha de la ventana de programación aparece la lista de eventos. Al hacer doble click aparece el evento por defecto (p.ej si es un botón el evento por defecto es "click", si es un textbox, el evebnto por defecto es "change", etc.).

Para programar un objeto escogemos el evento de la lista y luego escribimos el código en la pantalla. Por eso en nuestro primer ejemplo programamos el Commandbutton1 con el evento "click" (es decir "cuando se haga click con el mouse sobre este objeto, ejecute el siguiente código")

Bueno, a la próxima colocaré algo sobre VBA con Excell, nos vemos (y si no nos vemos... vamos al oculista), chau

 

Autor: Tomás Bradanovic
http://members.spree.com/sip/tombrad

Entrega 1 - Entrega 2 - Entrega 3 - Entrega 4 - Entrega 5 - Entrega 6 - Entrega 7 - Entrega 8 - Entrega 9
Descargar