PDF de programación - Visual Basic para Aplicaciones en Excel - Manejo de Software para Microcomputadoras

Visual Basic para

Aplicaciones en Excel

Manejo de Software para Microcomputadoras



• Los Arrays son conjuntos de elementos y

Array

son muy útiles a la hora de manipular
varios objetos de forma simultánea.
• Cada elemento de un array tiene un

número de índice que lo identifica como
único.

• Los cambios realizados a un elemento de

un array no afectan los otros elementos.

• Antes de que asignar valores en un Array,

primero se debe crear. El Array es
declarado utilizando la instrucción Dim.



Array

• Por ejemplo:

Dim Vector(0 to 3)
El array anterior contiene 4 elementos: el
elemento 0,1,2 y 3
Dicho array puede ser simplificado como:
Dim Vector(3)



Array

Sub EjArrays()
Dim DiaSemana(0 To 6) As String
' Tambien podríamos poner:
' Dim DiaSemana(6) As String, es decir un array de 7 elementos
DiaSemana(0) = "Lunes"
DiaSemana(1) = "Martes"
DiaSemana(2) = "Miércoles"
DiaSemana(3) = "Jueves"
DiaSemana(4) = "Viernes"
DiaSemana(5) = "Sábado"
DiaSemana(6) = "Domingo"
Debug.Print DiaSemana(0) ' Esto nos permite visualizar "Lunes" en la
Ventana Inmediato
End Sub



Array

• Los array unidimensionales son muy

frecuentes, aunque también se pueden
usar arrays bidimensionales, por ej:
Dim MiArray(1 to 10, 1 to 10) as Integer



Ejemplo Workbook_Open

• Esta macro se ejecuta en ThisWorkbook

Sub Workbook_Open()
MsgBox "Buenos DIAS"
End Sub



Funciones

• Son procedimientos que devuelven un

valor que resulta de un calculo. El valor se
devuelve a traves del nombre de la funcion.



Ejemplo del Factorial

Function factorial(n As Integer)
Dim i As Integer
factorial = 1
For i = 1 To n Step 1
factorial = factorial * i
Next i
End Function



Ejemplo de Funcion

Function terminar()
If MsgBox("desea terminar?", vbYesNo, "mensaje") = vbYes Then
terminar = True
Else
terminar = False
End If
End Function

Sub cerrar()
If terminar = True Then
Application.Quit
Else
MsgBox "Ok, ud no quiere salir", vbOKOnly
End If
End Sub



Ejemplo Calculo de Edad

Function calcedad(fecnac As Date)
calcedad = Abs(DateDiff("YYYY", fecnac,
Date))
End Function