UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE INGENIERA CIENCIAS FSICAS Y MATEMTICA

PROGRAMACIN II

AUTORES:
Armas Ral
lvarez Ronald
Bustillos Steven
Morales Carlos
Reimundo Cristina
Sambachi Cristina

Catedrtica:
ING.: Silvia Garca

Paralelo: 1
Semestre: Segundo

PERODO: Octubre 2015- 2015

QUITO ECUADOR

ANTECEDENTE
Visual Basic para aplicaciones es una combinacin de un entorno de
programacin integrado denominado Editor de Visual Basic y del lenguaje de
programacin Visual Basic, permitiendo disear y desarrollar con facilidad
programas en Visual Basic. El trmino para aplicaciones hace referencia al
hecho de que el lenguaje de programacin y las herramientas de desarrollo
estn integrados con las aplicaciones del Microsoft Office (en este caso, el
Microsoft Excel), de forma que se puedan desarrollar nuevas funcionalidades y
soluciones a medida, con el uso de estas aplicaciones.
MACRO
Si utilizas Excel frecuentemente es posible que en alguna ocasin te hayas
encontrado ejecutando una misma serie de acciones una y otra vez. Esas
acciones que haces repetidas veces se podran automatizar con una macro.
Una macro es un conjunto de comandos que se almacena en un lugar especial
de Excel de manera que estn siempre disponibles cuando los necesites
ejecutar.
Por ejemplo, si todas las maanas creas un reporte de ventas y en ese reporte
siempre das el mismo formato a los textos, se podra crear una macro para que
lo haga automticamente por ti. Las macros se utilizan principalmente para
eliminar la necesidad de repetir los pasos de aquellas tareas que realizas una y
otra vez.
MACRO PARA QUE ME SIRVE
En informtica, se utiliza la palabra macro para referirse al macroinstruccin,
que es la secuencia de instrucciones almacenadas para posibilitar la
ejecucin organizada de una orden. Esto quiere decir que un macroinstruccin
permite que una nica orden desencadene una secuencia de varias
instrucciones.
Puede entenderse a una macro como una instruccin de complejidad que est
compuesta por diversas instrucciones ms simples. Es posible almacenar una
macro en el propio software en el que se ejecuta, ya sea mediante un botn o
una cierta combinacin de teclas.
Cabe destacar que el software tambin est formado por un conjunto de
instrucciones. Sin embargo, se diferencia de los macroinstrucciones en que la
ejecucin de las macros se desarrolla de manera secuencial y que no existe la
posibilidad de establecer una bifurcacin.

El seguimiento secuencial de las macro permite simplificar tareas y ahorrar

pasos. Por ejemplo: una macro con la instruccin de borrar un registro de una
base de datos puede ser llamada desde otra instruccin, lo que le permitir
ahorrar tiempo al programador y al usuario.
Uno de los programas donde con ms frecuencia se habla de las macros es en
Microsoft Excel que es un software que se utiliza a nivel empresarial
fundamentalmente para poder desarrollar y trabajar con lo que son hojas de
clculo. En esta aplicacin se utiliza el trmino macros Excel para hacer
referencia al cdigo de programacin que se realiza haciendo uso del lenguaje
de programacin VBA (Visual Basic for Applications).
Gracias a estas macros se puede desde crear nuevas funciones hasta
automatizar diversas tareas del programa para que se puedan acometer
simplemente mediante un sencillo clic. Y todo ello sin olvidar tampoco que, de
igual manera, permiten crear nuevas aplicaciones y expandir las soluciones
que presenta Excel a travs de nuevas soluciones o herramientas.
Los programadores utilizan macro procesadores para abreviar ciertos
fragmentos de sus programas y poder usar dichas abreviaturas todas las veces
que su tarea lo requiera.

Conjunto de acciones realizadas en una hoja de clculo que quedan grabadas

en Excel de forma que simplemente haciendo clic en el men de herramientas,
macro, ejecutar macro automticamente se repita el proceso.
Para crear una Macro se utiliza el lenguaje de programacin VBA, Visual Basic
para Aplicaciones, si bien se puede simplemente grabar sin tener
conocimientos de programacin, para ello basta con que realizes una
secuencia de acciones y Excel se encargara de crear la Macro.
Sirve para automatizar tareas repetitivas, de esta manera las dejas grabadas
porque las realizas con asiduidad. En el momento que las necesites solo
tienes que decirle al programa que Ejecute la Macro.
Objetos, propiedades y mtodos.
A la hora de trabajar con macros en Excel, deben tenerse claros ciertos
conceptos de lo que se llama programacin orientada a objetos (OOP). No nos
extenderemos demasiado sobre la OOP, pero si definiremos a continuacin los
conceptos de Objeto, Propiedades y Mtodos.
Objeto.

Cuando en el mundo real nos referimos a objeto significa que hablamos de algo
abstracto que puede ser cualquier cosa. Por ejemplo podemos referirnos a
objetos como coche, silla, casa, etc.
Cuando decimos que la clase coche representa a todos los coches del mundo
significa que define como es un coche, cualquier coche. Dicho de otra forma y
para aproximarnos a la definicin informtica, la clase coche define algo que
tiene cuatro ruedas, un motor, un chasis,... entonces, cualquier objeto real de
cuatro ruedas, un motor, un chasis,... es un objeto de la clase coche.
Propiedades.
Cualquier objeto tiene caractersticas o propiedades como por ejemplo el color,
la forma, peso, medidas, etc. Estas propiedades se definen en la clase y luego
se particularizan en cada objeto. As, en la clase coche se podran definir las
propiedades Color, Ancho y Largo, luego al definir un objeto concreto como
coche ya se particularizaran estas propiedades a, por ejemplo, Color = Rojo,
Ancho = 2 metros y Largo = 3,5 metros.
Mtodos.
La mayora de objetos tienen comportamientos o realizan acciones,
por ejemplo, una accin evidente de un objeto coche es el de
moverse o lo que es lo mismo, trasladarse de un punto inicial a un
punto final.
Conceptos tiles para trabajar con macros en Excel
- WorkSheet (Objeto hoja de clculo)
- Range (Objeto celda o rango de celdas).
Un objeto Range est definido por una clase donde se definen sus
propiedades, recordemos que una propiedad es una caracterstica, modificable
o no, de un objeto. Entre las propiedades de un objeto Range estn Value, que
contiene el valor de la celda, Column y Row que contienen respectivamente la
fila y la columna de la celda, Font que contiene la fuente de los caracteres que
muestra la celda, etc.
Range, como objeto, tambin tiene mtodos, recordemos que los mtodos
sirven llevar a cabo una accin sobre un objeto. Por ejemplo el mtodo
Activate, hace activa una celda determinada, Clear, borra el contenido de una
celda o rango de celdas, Copy, copia el contenido de la celda o rango de
celdas en el portapapeles.
Grabar una macro
En Excel existen dos maneras de crear una macro, la primera es usando la
herramienta para grabar macros que trae Excel y la segunda es empleando el
lenguaje VBA.
En esta seccin explicaremos como usar el primer mtodo.
Cuando se graba una macro, Excel almacena informacin sobre cada paso
dado cuando se ejecuta una serie de comandos. A continuacin, se ejecuta la
macro para que repita los comandos.
Si se comete algn error mientras se graba la macro, tambin se graban las
correcciones que se realicen, esto ocurre porque se graba todo lo que se hace.

Luego Visual Basic almacena cada macro en un nuevo mdulo adjunto a un

libro.
Recuerde que si comete algn error durante la grabacin, no debe
preocuparse, porque puede borrar la macro e intentarlo de nuevo.
Mi primera Macro.
En este apartado crears una macro y te explicaremos como acceder a ella y
como parametrizarla.
Activacin de la barra de herramientas
Antes de empezar es necesario colocar la barra de herramienta de
Programador, que contendr todas las herramientas necesarias para realzar
todos los ejercicios y prcticas de este curso.

Posteriormente en la ventana emergente que se despliega se busca

Personalizar cinta de opciones y se selecciona en el men del lado derecho la
opcin de Programador.

Posteriormente en la barra de herramientas aparecer la pestaa de

Programador.

Creando una macro

Este ejemplo ilustra como grabar una macro que permite escribir texto en una
celda.
1. Abra Excel y cree un nuevo documento con el nombre ejercicio01.
2. Elija la celda en la que quiera insertar algn fragmento de texto, por ejemplo
su nombre.
3. Seleccione en la barra Programador y el icono
4. En el cuadro de dilogo en la caja de texto de Nombre de la macro2 escriba:
miPrimerMacro, seguido en el cuadro de texto para Mtodo Abreviado escriba
m.

5. Presione el botn aceptar del cuadro de dilogo Grabar macro. Observe

que aparece una barra de herramienta flotante con pocos componentes. A
partir de este momento todo lo que haga se grabar en la Macro. Escriba su
nombre en la celda seleccionada seguido presione la tecla Enter.
6. Presione el botn detener (el cuadro azul de la Figura). Se ha acabado de
grabar su primer macro.

Ejecutar una macro

Para ejecutar una macro existen varias formas, la primera es ir a la barra de
men <Programador/ Macros> dar clic en Macros y aparecer un cuadro
de dilogo como la Figura en seguida seleccione la macro que desea ejecutar y
haga clic en el botn <Ejecutar>.

La otra forma es, usar el mtodo abreviado asignado slo es necesario

presionar la tecla ctrl y sin dejar de presionarla la letra m, esta accin se
denotar en lo siguiente con ctrl+m.

Una vez hecho esto, aparecer la pestaa Programador desde la que se

pueden aadir los botones dentro de la pestaa.

En l se tomar el icono que representa a un botn, desplegndose en la

Hoja1, por ejemplo, del documento Excel. De los dos botones que hay (tanto en
formularios como en ActiveX), se seleccionar el de Controles de ActiveX, ya
que de este modo se podr cambiar el color y otras opciones del propio botn.
Ejemplo 1:
Una vez hecho esto, se pulsar dos veces sobre dicho botn para acceder as
al Editor de Visual Basic, con el que se realizar el pequeo programa
requerido, tal y como sigue:

Ahora vamos a cambiar el programa anterior, cambiando una de las lneas de

programa, para hacer que cada vez que se haga un clic en el botn, se
acumule un nuevo HOLA (igual que podra ser cualquier otro valor numrico o
cadena de caracteres) al anterior. De esta forma, se identificar el contenido de
la primera celda como un contador, acumulndose, en cada clic sobre el botn,
una nueva cadena de texto en dicha celda contador.

Cdigos ms comunes
Trasladarse a una Celda
Range ("A1").Select
Escribir en una Celda
Activecell.FormulaR1C1="Paty"
Letra Negrita
Selection.Font.Bold = True
Letra Cursiva
Selection.Font.Italic = True
Letra Subrayada
Selection.Font.Underline = xlUnderlineStyleSingle
Centrar Texto
With Selection
.HorizontalAlignment = xlCenter
End With
Alinear a la izquierda
With Selection
.HorizontalAlignment = xlLeft
End With
Alinear a la Derecha
With Selection
.HorizontalAlignment = xlRight
End With
Tipo de Letra (Fuente)
With Selection.Font
.Name = "AGaramond"
End With
Tamao de Letra (Tamao de Fuente)
With Selection.Font
.Size = 15
End With
Copiar
Selection.Copy
Pegar
ActiveSheet.Paste
Cortar
Selection.Cut
Ordenar Ascendente

Selection.Sort Key1:=Range ("A1"), Order1:=xlAscending, Header: =xlGuess, _

OrderCustom: =1, MatchCase: =False, Orientation: =xlTopToBottom
Orden Descendente
Selection.Sort Key1:=Range ("A1"), Order1:=xlDescending, Header: =xlGuess,
_
OrderCustom: =1, MatchCase: =False, Orientation: =xlTopToBottom
Buscar
Cells. Find (What: ="Paty", after: =ActiveCell, LookIn: =xlFormulas, LookAt _
: =xlPart, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: = _
False).Activate
Insertar Fila
Selection.EntireRow.Insert
Eliminar Fila
Selection.EntireRow.Delete
Insertar Columna
Selection.EntireColumn.Insert
Eliminar Columna
Selection.EntireColumn.Delete
Abrir un Libro
Workbooks.Open Filename:="C:\Mis documentos\video safe 3.xls"
Grabar un Libro
ActiveWorkbook.SaveAs Filename:="C:\Mis documentos\piscis.xls", FileFormat
_
: =xlNormal, Password: ="", WriteResPassword: ="", ReadOnlyRecommended:
=_
False, Create Backup: =False
Cuadro de control
Una de las opciones ms interesantes que tiene el Excel es la de utilizar los
cuadros de control.
Los cuadros de control se usan para crear verdaderos programas en Excel y
pueden ser de mucha utilidad.
Para poder visualizar esta barra es necesario dirigirse a Programador > Insertar
mostrando el contenido de la Figura.

Como podr ver est dividida en Tres secciones

La primera consta de:

 Modo diseo
Propiedades
Ver cdigo
La segunda tiene todos los botones y herramientas que se pueden usar.
La tercera se utiliza para agregar o quitar botones con lo que expande ms las
posibilidades de esta barra.
Control numrico.
Elija Control de Nmero
Dibuje en la planilla el cuadro donde estar situado el control. Por Ej.:

Seleccione propiedades
Aqu podemos cambiar entre otras cosas.
Max: El nmero mximo que recorrer este cuadro
Min: El nmero mnimo
LinkedCell: Celda donde se va a mostrar el nmero relacionado con el cuadro
de control: Por ejemplo en la celda A4
Cierre las propiedades ltimo paso y el ms importante es salir del modo
diseo dando clic en Modo Diseo.
Si es presionada la flecha hacia la derecha el nmero en la celda A4 ir
aumentando y si es presionada la de la izquierda ir decreciendo.
Una de las partes ms fundamentales es Modo Diseo
es la posibilidad
de cambiar cualquier cosa del Control, por ejemplo tamao, ubicacin, etc. Y
para poder probar su funcionamiento se debe salir de Modo Diseo.
Otra parte fundamental es Propiedades
, donde es posible manipular
atributos fundamentales para que el control se adapte a sus necesidades. Por
ejemplo, Max, Min, LinkedCell, Delay (velocidad con que cambian los
nmeros), Shadow (le agrega sombra al control), entre otras ms.
Ejemplo 2:

Jugando con las series de Fibonacci.

En este caso, vamos a desarrollar cdigo que cumplir las siguientes
caractersticas:
Utilizacin de una serie de Fibonacci de nmeros aleatorios.
Se tomarn exclusivamente la cifra de unidades de los nmeros de la
serie anterior.

Se ordenarn estos valores de mayor a menor (para poder trabajar con

ellos).

Se mostrar cmo realizar el diagrama de barras correspondiente a la

serie anterior (cada barra con el tamao y el color correspondiente al
nmero de la serie).

Y en l, se utilizarn adems las funciones y opciones del Editor de Visual

Basic / Microsoft Office siguiente:
- Cambio de nombre de un botn.
- Utilizacin y grabacin de macros.
- Utilizacin de la funcin Call para llamar a una funcin definida en otro lugar.
- Cambio de color.
La serie de Fibonacci cumple que cada elemento de la serie es el resultado de
la suma de los dos precedentes, es decir: an+2 = an+1 + an
As, se introducir la frmula anterior mediante la utilizacin de un bucle Do
WhileLoop (una de las opciones posibles), previa definicin de los dos
valores iniciales. De esta forma, se van a definir estos valores iniciales como
aleatorios; para ello, se va a utilizar la funcin de generacin de nmeros
aleatorios rnd (tal y como se ve en el programa). Se evitan nmeros
excesivamente grandes o en coma flotante, tomando la variable como int, para
evitar la aparicin de decimales. Adems, se ve cmo se utiliza la funcin With,
para definir la seleccin de color. Este cdigo se ha tomado del de la macro
grabada a partir del cambio de color de una celda cualquiera (mediante la
utilizacin de la opcin del men Cambio de color).

Pero, cmo se graba una macro?

Para el caso particular de grabar una macro para poder cambiar de color una
serie de celdas de la Hoja de Clculo, se procede de la siguiente forma. En el
men, se toma la opcin Programador, y en sta, Grabar macro. Acto
seguido, se realiza la accin a grabar en la macro, en este caso, cambiar de
color el color de una columna de la hoja de clculo.

Al momento de abrir la opcin de Visual Basic, podemos suponer que tenemos

una macro grabada la cual quedara reflejada de la siguiente manera:

En el paso anterior se ve, en el cdigo definido por la macro, la opcin Range;

esto define el rango de aplicabilidad de la opcin escogida con el cdigo, en
ese caso el cambio de color de las celdas A1 hasta la A10.

Adems se le puede cambiar el nombre al botn para que deje de llamarse

CommandButton1 y as poder ponerle el nombre deseado y cambiar otras
propiedades como el color del botn. Pero, cmo se consigue cambiar el
nombre al botn?

Para ello, se selecciona el Modo Diseo del cuadro de controles de la pestaa

Programador, una vez ah, se hara clic con el botn derecho del ratn, sobre el
botn al que se le quiere cambiar el nombre. Acto seguido, se selecciona la
opcin Propiedades y dentro de estas se cambia la opcin Caption.

Una vez mostradas las acciones anteriores, se va a pasar a definir el ejemplo

concreto. As, y como ya habamos dicho, vamos a definir el cdigo de
programa necesario para por un lado generar la serie de Fibonacci de trminos
aleatorios, y por el otro, tomar de los valores de la serie anterior
exclusivamente las cifras correspondientes a las unidades.

Aqu pueden observarse el bloque del programa, En el primero se crea una

serie de Fibonacci, tal y como ya se ha explicado, y acto seguido, se reduce
cada uno de los nmeros de dicha serie a su cifra de unidades. Esta sera el
resto obtenido de dividir dicho nmero de la serie original, por 10. Esto se
consigue con la utilizacin de la funcin mod. Todo ello dentro de su
correspondiente bucle para ir tomando todos los valores de la serie.

Problemas con variables (por qu no se dejan definir las variables?)

Option Explicit:
Con esta aplicacin, se avisara en caso de no tener definida una variable, o en
caso de utilizar datos de pginas diferentes a la activa.
Dim. As [Integer, Double, String, Boolean ]:
Con esto queda la variable perfectamente definida, si no se pusiera no ocurrira
posiblemente nada, salvo que se utilizara una mayor cantidad de memoria de
la necesaria, al definirse instantneamente en el momento de utilizarla como de
tipo Value.

Condicin If, etc. (diversas posibilidades):

If Then / If Then Else / If Then ElseIf Then
Cundo poner el EndIf?, cundo no?, cundo se deberan usar los : (dos
puntos)?
Las instrucciones If...Then...Else se pueden presentar en varios formatos, con
unas caractersticas determinadas. Normalmente, se presentan anidadas en
tantos niveles como sea necesario. Esto, sin embargo, puede hacer menos
legible el cdigo, por lo que es aconsejable utilizar una instruccin Select Case
en vez de recurrir a mltiples niveles de instrucciones If...Then...Else anidadas
(nicamente en caso de que el excesivo nmero de anidamientos pudiera dar
problemas en la legibilidad del programa, o errores en la depuracin de ste).
As, si realizamos la condicin en varias lneas de cdigo, ser necesario cerrar
el anidamiento con un End If; instruccin que no se usara en caso de realizar
la condicin en un sola lnea (If Then, condicin cierta).
Select Case
En este caso, esta instruccin ser ms til que la Condicin If..., cuando se
ejecute uno de varios grupos de instrucciones, dependiendo del valor de una
expresin condicin a cumplir.
Errores comunes en excel
Conforme nos vamos familiarizando con el uso de las formulas, van surgiendo
algunos errores que usualmente son causados por un manejo inadecuado de la
sintaxis o la incompatibilidad con la configuracin de la computadora.
A continuacin se describen los errores ms frecuentes.
1. El valor de error # NOMBRE? aparece cuando Excel no reconoce texto en
una formula. Para solucionar este conflicto se debe revisar la sintaxis e la
formula o, si es una macro, verificar que est en el mdulo de la hoja en la que
se est trabajando.
2. El valor de error # VALOR! Surge cuando se utiliza un tipo de argumento u
operando incorrecto, por ejemplo, cuando evaluamos una funcin numrica en
una celda que contiene algo que no sea un nmero (por defecto, el valor de
una celda vaca es cero).
3. El valor de error # NUM! Aparece cuando existe un problema con algn
nmero en una frmula o funcin. Por ejemplo, si evaluamos una funcin
logartmica en cero o en un nmero negativo.
4. El valor de error # DIV/0! se produce cuando se divide una frmula entre
cero.
5. El valor de error # REF! se genera cuando una referencia a una celda no es
vlida.
6. Dependiendo de la forma en la que se encuentre configurado el sistema
Windows, debe usarse punto o coma para separar la parte decimal de los
nmeros a evaluar. Para personalizarlo, se debe entrar al panel de control y en

la Configuracin regional se selecciona `Nmeros'. En la primera cejilla,

Smbolo Decimal' se selecciona el punto o la coma, segn sea el caso.
Finalmente, se presiona el botn Aplicar y luego Aceptar.
7. Existe una circunstancia, que es comnmente confundida con un error esta
es cuando el sistema trabaja con poca precisin y se presentan valores
numricos no esperados. Por ejemplo, si el formato de una celda se ha definido
para dos posiciones, entonces la operacin +1.999+1 dar como resultado el
valor de 2, que no es otra cosa que el resultado de la suma redondeado a dos
decimales. El valor correcto se obtiene aumentando la precisin con el icono:
Ejercicio de calculadora
Para la realizacin de este ejercicio primeramente comenzamos creando un
botn en Microsoft Excel teniendo en cuenta previamente tenemos que tener
activado el icono de programador el cual encontramos en la parte superior de
la ventana de Excel.

Creamos un botn en la ventana de Excel en la opcin de insertar para luego

se inserta un botn tal como se indica en la parte inferior al cual le podemos
cambiar el nombre de acuerdo a la funcin del macro.

Seguidamente ahora vamos a la funcin de visual basic como se observa en la

imagen inferior en donde se proceder a realizar el ejemplo del macro de una
calculadora.

Luego de hacer clic se abrir una ventana en la cual si nos fijamos bien es casi
igual al VISUAL BASIC es bsicamente lo mismo.
Tal como se muestra en la imagen inferior procedemos a insertar un formulario.
Para esto damos clic en la pestaa insertar y donde seguido donde dice
userform al momento se abrir un formulario.

Ahora procedemos a realizar el ejemplo propuesto para esto debemos insertar

los respectivos objetos que necesitaremos los cuales nombraremos a
continuacin.
21 botones.
1 texto.
Tal como se observa en la imagen inferior vemos una pequea ventana en la
cual podemos seleccionar dichos objetos para la realizacin de nuestro ejemplo
(CUADRO DE HERRAMIENTAS).

Al igual que en el visual basic le cambiamos las propiedades a cada objeto

(herramienta) como Name, Caption, color, etc
Nota: a por lo general se le da un Name de acuerdo a lo que se est
realizando para tener una mayor facilidad para programar.
Ahora procedemos a programar para lo cual nos dirigimos a la barra de
herramientas en la parte superior en la cual el la pestaa que dice ver damos
un clic seguidamente damos un nuevo clic en donde dice cdigo seguido se
abrir una ventana en donde tendremos que programar que es bsicamente lo
mismo que sea venido realizando en visual basic.

Ahora para comenzar definimos nuestras variables tal como se muestra en la

imagen inferior una variable que se llama (operaciones) y otra que ser (x, y)

Ahora procedemos a lo que es la parte de programar para lo cual se programa

en cada botn para lo cual damos clic en cada uno de los botones que tengan
el nombre de (CmdUno, CmdDos, CmdTres, CmdCuatro.. as hasta el
CmDCero) solo los que tenga numeracin. En cada uno de esto ingresaremos
el siguiente cdigo
Private Sub CmdUno_Click ()
TxtResultado.Text = TxtResultado.Text + "1"
End Sub

Ingreso del cdigo de cada nmero de la calculadora.

Ahora procederemos a programar los botones de suma, resta, multiplicacin,

divisin para lo cual ingresaremos el siguiente cdigo claro en cada botn se le
cambiara la funcin por la correspondiente a cada funcin que vaya a realizar.
Private Sub CmdMas_Click ()
x = TxtResultado.Text
operacion = "SUMA"
TxtResultado.Text = ""
End Sub

Tal como se observa en la parte superior en el cdigo del botn suma al

momento de realizar los otros botones con la dems operaciones en la parte de
operacin= SUMA En la parte subrayada es donde se le cambiara por la
siguiente operacin que se vaya a realizar.

Como se observa en la imagen inferior lo antes mencionado utilizamos el

mismo cdigo solo que definimos que operacin a realizar queremos.
Ahora se procede a realizar la parte del resultado en el CmdIgual en el cual nos
permitir calcular los valores que ingresemos en nuestra calculadora en la cual
ingresaremos en siguiente cdigo.
Private Sub CmdIgual_Click ()
y = TxtResultado.Text
If operacion = "SUMA" Then TxtResultado.Text = CInt(x) + CInt (y)
If operacion = "RESTA" Then TxtResultado.Text = CInt(x) - CInt (y)
If operacion = "MULTIPLICACION" Then TxtResultado.Text = CInt(x) * CInt (y)
If operacion = "DIVISION" Then TxtResultado.Text = CInt(x) / CInt (y)
End Sub

A continuacin se presenta el cdigo que se utiliz para la realizacin de esta

calculadora en macros.
Dim operation As String
Dim x, y As Single
Private Sub CmdC_Click ()
TxtResultado.Text = ""
End Sub
Private Sub CmdCE_Click ()

TxtResultado.Text = ""
End Sub
Private Sub CmdCero_Click ()
TxtResultado.Text = TxtResultado.Text + "0"
End Sub
Private Sub CmdCinco_Click ()
TxtResultado.Text = TxtResultado.Text + "5"
End Sub
Private Sub CmdComa_Click ()
TxtResultado.Text = ","
End Sub
Private Sub CmdCuatro_Click ()
TxtResultado.Text = TxtResultado.Text + "4"
End Sub
Private Sub CmdDividido_Click ()
x = TxtResultado.Text
operacion = "DIVISION"
TxtResultado.Text = ""
End Sub
Private Sub CmdDos_Click ()
TxtResultado.Text = TxtResultado.Text + "2"
End Sub
Private Sub CmdIgual_Click ()
y = TxtResultado.Text
If operacion = "SUMA" Then TxtResultado.Text = CInt(x) + CInt (y)
If operacion = "RESTA" Then TxtResultado.Text = CInt(x) - CInt (y)
If operacion = "MULTIPLICACION" Then TxtResultado.Text = CInt(x) * CInt (y)
If operacion = "DIVISION" Then TxtResultado.Text = CInt(x) / CInt (y)
End Sub
Private Sub CmdMas_Click ()
x = TxtResultado.Text
operacion = "SUMA"
TxtResultado.Text = ""
End Sub
Private Sub CmdMenos_Click()
x = TxtResultado.Text
operacion = "RESTA"
TxtResultado.Text = ""
End Sub
Private Sub CmdNueve_Click ()
TxtResultado.Text = TxtResultado.Text + "9"
End Sub
Private Sub CmdOcho_Click ()
TxtResultado.Text = TxtResultado.Text + "8"

End Sub
Private Sub CmdPor_Click ()
x = TxtResultado.Text
operacion = "MULTIPLICACION"
TxtResultado.Text = ""
End Sub
Private Sub CmdSalir_Click ()
End
End Sub
Private Sub CmdSeis_Click ()
TxtResultado.Text = TxtResultado.Text + "6"
End Sub
Private Sub CmdSiete_Click ()
TxtResultado.Text = TxtResultado.Text + "7"
End Sub
Private Sub CmdTres_Click ()
TxtResultado.Text = TxtResultado.Text + "3"
End Sub
Private Sub CmdUno_Click ()
TxtResultado.Text = TxtResultado.Text + "1"
End Sub
Para finalizar procedemos a ejecutar nuestro trabajo como se ve en la imagen
inferior el programa de calculadora se ejecuta sin ningn problema.

Qu es un mdulo?
Un mdulo es un contenedor para los cdigos de macros en VBA. Un proyecto
de VBA es un conjunto de mdulos (o uno slo) dnde se escriben las
diferentes macros y funciones de VBA. Los mdulos nos permiten organizar el
cdigo de VBA en diferentes archivos dentro de VBA de manera rpida, fcil e
intuitiva.
Siempre que tengas porciones de cdigo que no tengan nada que ver con los
eventos de las hojas o del libro de trabajo, es mejor que lo coloques dentro de
un mdulo estndar.
Insertar un mdulo en Excel.

Para insertar un mdulo en Excel, primero debes acceder a la ventana

del editor de VBA.

Una vez aqu, solo haz un clic derecho en el Panel de Proyecto, sobre
cualquiera de los objetos existentes (el libro y las hojas) y elige la opcin
Insertar

Ya en el sub-men que se muestra, elige la opcin Mdulo

Con eso ya se tiene un nuevo mdulo creado y listo para colocar tu cdigo en
l.
Por defecto, el nuevo mdulo tendr un nombre del tipo [Mdulo x], donde X
es un nmero secuencial que ir aumentando por cada nuevo mdulo, al igual
que sucede cuando insertas hojas en Excel. En la imagen anterior puedes ver,
resaltado en amarillo, la propiedad que controla el nombre del mdulo. Aqu t
puedes cambiar el nombre de tu nuevo mdulo para poder identificarlo
rpidamente despus
Cmo acceder a un mdulo de VBA?
Para acceder a un mdulo de VBA primero habr que acceder al proyecto y
despus elegir el mdulo que se quiere editar.
Para acceder al editor de VBA puedes hacer click en Alt + F11 y acceders a
una pantalla como la siguiente.
En esta pantalla, si hubiera ms de un proyecto veramos un listado a la
izquierda de los posibles VBA Projects a elegir. Seleccionando uno de ellos
podramos ver despus la carpeta mdulo y haciendo click sobre uno de ellos
entraramos a ver el cdigo del mdulo seleccionado
Ejemplo de mdulo de VBA
Pongamos un ejemplo. Tenemos pensado hacer unas cuantas macros para un
programita que estamos creando. Podran ser las siguientes:
1. Abrir un documento
2. Limpiar cierta informacin
3. Pegar informacin de una parte del documento a otra.
4. Crear una nueva hoja con cierta informacin.
5. Aplicar formato a la nueva hoja creada.
6. Eliminar la informacin copiada.

7. Eliminar la hoja que hemos creado

Como vemos en el listado anterior, tenemos informacin de 2 o 3 tipos
diferentes relacionadas con la actividad de nuestra hoja de Excel. Las macros
de la 1 a la 3 pueden ser la de cargar datos. Las macros 4 y 5 seran de operar
con la nueva informacin. Las macros 6 y 7 son las de dejar la hoja en su
estado inicial.
Para m en este caso sera til tener 3 mdulos (especie de carpetas donde se
guarda la informacin.
Los mdulos yo los organizara de la siguiente manera:
1. CARGAR
2. OPERATIVA
3. RESETEO
Este es un ejemplo pero depende de la cantidad de macros y la operativa que
usemos pueden ser ms o menos mdulos
BIBLIOGRAFIA
http://office.microsoft.com/es-hn/infopath/CH011097053082.aspx
Sitio oficial de Microsoft que presenta varios enlaces a artculos relacionados
con la Validacin de datos en Excel.
http://office.microsoft.com/es-hn/excel/HA010346573082.aspx
Sitio con ejemplos sencillos acerca de la validacin de datos en Excel.
http://office.microsoft.com/es-hn/infopath/CH011097053082.aspx
Sitio oficial de Microsoft que presenta varios enlaces a artculos relacionados
con funciones en Excel.

http://office.microsoft.com/eses/excel/HP052047113082.aspx?
pid=CH062528393082
Sitio que contiene informacin relaciona con las Macros en Excel

http://ciberconta.unizar.es/leccion/cursointermedioexcel/01_macro/macro
03.htm
Sitio que contiene informacin relaciona con las Macros en Excel