Programación en VBA ... ejemplo no. 1

Este es un ejemplo de como programar con Visual Basic para Aplicaciones  (VBA).


1. Calcular el valor futuro de una inversión dado un valor presente, una tasa de interés y un periodo de pago.

Controles a usar:

- 3 Label
- 3 TextBox
- 3 CommandButton

Para abrir el editor de macros (en Microsoft Excel) presionas alt + F11.

La fórmula es:
valorFuturo= valorPresente*pow(1+tasa_interés/100,periodo)

Al dar clic sobre el formulario se abre el editor de código de VB. Para declarar una variable debes usar Dim algo As TipoVariable. Puedes usar ventanas tipo "alert" (MsgBox) para mostrar el resultado o algún aviso al usuario.

Para ejecutar debes presionar F5.


Código completo:

Option Explicit
'esto es un comentario
Dim res As String ' aqui almaceno el resultado
'botón calcular
Private Sub CommandButton1_Click()
'valorFuturo=valorPresente*pow(1+tasa/100,periodo)
If TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" Then
res = "No hay nada que evaluar"
MsgBox res, vbCritical, "Alerta"
Else
res = Val(TextBox1.Value) * Val(1 + TextBox2.Value / 100) ^ Val(TextBox3.Value)
MsgBox "Valor presente: " & TextBox1.Value & vbCrLf & "Tasa de interés: " & TextBox2.Value & vbCrLf & "Periodo: " & TextBox3.Value & vbCrLf & "Valor futuro:" & res, vbDefaultButton1, "Resultado"
End If
End Sub

'botón limpiar
Private Sub CommandButton2_Click()
TextBox1.Text = "": TextBox2.Text = "": TextBox3.Text = ""
End Sub

'botón finalizar
Private Sub CommandButton3_Click()
End
End Sub


Se puede activar/aparecer el formulario desde una hoja, para eso puedes ocupar un botón.

Sub Botón1_Haga_clic_en()
UserForm1.Show ' esto activa el formulario
End Sub