Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Formulario en VBA para calcular Funciones Trigonométricas

| 2 Comments

FORMULARIO EN VBA APLICADO PARA CALCULAR FUNCIONES TRIGONOMETRICAS

Este formulario permite hallar los valores del seno, coseno, tangente y sus respectivas inversas para cualquier angulo.

Para ello, dicho formulario solicita un ángulo y presenta una lista desplegable desde la cual se puede seleccionar la función trigonométrica que se desea aplicar al angulo.

Luego, se propone el siguiente código para la generación del formulario:

 

Private Sub UserForm_Initialize()

ComboBox1.AddItem («SEN»)

ComboBox1.AddItem («COS»)

ComboBox1.AddItem («TAN»)

ComboBox1.AddItem («COT»)

ComboBox1.AddItem («SEC»)

ComboBox1.AddItem («CSC»)

ComboBox1.ListIndex = 0

End Sub

 

Private Sub CommandButton1_Click()

If TextBox1.Value = «» Then

MsgBox «Especificar angulo»

Exit Sub

End If

 

angulo = (TextBox1.Value) * [PI()] / 180

 

If ComboBox1.ListIndex = 0 Then

valor = Sin(angulo)

MsgBox «Sen =» & valor

End If

 

If ComboBox1.ListIndex = 1 Then

valor = Cos(angulo)

MsgBox «Cos =» & valor

End If

 

If ComboBox1.ListIndex = 2 Then

valor = Tan(angulo)

MsgBox «Tan =» & valor

End If

 

If ComboBox1.ListIndex = 3 Then

valor = (Tan(angulo)) ^ (-1)

MsgBox «Cot =» & valor

End If

 

If ComboBox1.ListIndex = 4 Then

valor = (Cos(angulo)) ^ (-1)

MsgBox «Sec =» & valor

End If

 

If ComboBox1.ListIndex = 5 Then

valor = (Sin(angulo)) ^ (-1)

MsgBox «Csc =» & valor

End If

 

End Sub

 

EJEMPLO DE FORMULARIO PARA CALCULO DE FUNCIONES TRIGONOMETRICAS

Alumna: Milagros Chambe Escobar

2 Comments

  1. Buen uso del ComboBox, especialmente al utilizar ComboBox1.ListIndex = 0 para luego seguir con los siguientes valores.

  2. disculpa esos códigos se introducen tal y como están o se tiene que hacer un cambio? agradezco tu ayuda…

Deja un comentario

Required fields are marked *.