Excel Avanzado

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

Excel Avanzado
imagen6

Formulario para Convertir Grados Sexagesimales a Radianes o Centesimales

| 0 comments

En el sistema sexagesimal, una semicircunferencia tiene 180°. Este sistema de medición de ángulos es el más usado. Sin embargo; hay otros sistemas como el de Radianes (donde una semicircunferencia vale 3.1416 ó Pi) y el Centesimal (donde una semicircunferencia vale 200°). De esta forma, obtenemos la siguiente relación:

180° Sexagesimales = 3.1416 Radianes = 200° Centesimales

Y a partir de esto, podemos pasar de sexagesimales a radianes y centesimales con las siguientes fórmulas:

(Grados Sexagesimales / 180) = (Grados Centesimales / 200)

(Grados Sexagesimales / 180) = (Grados Radianes / 3.1416)

EJEMPLO: Formulario para Convertir Grados Sexagesimales a Radianes o Centesimales

A continuación se presenta un formulario en Excel para calcular automáticamente estas conversiones de sexagesimales a los otros 2 sistemas. Para usarlo, abrir el archivo adjunto (al final de este artículo). Hacer click en el botón “Convertir Sexagesimales a Radianes o Centesimales” para cargar el formulario:

(Para mayor visualización de la imagen, hacer click en la misma)

Aparecerá el formulario en blanco:

(Para mayor visualización de la imagen, hacer click en la misma)

Digite el valor del ángulo en sexagesimal que desea convertir:

(Para mayor visualización de la imagen, hacer click en la misma)

Seleccione el sistema al que desea convertir (en este caso, Centesimales) y presione “Convertir”. El resultado aparecerá al costado de “RESPUESTA:”

(Para mayor visualización de la imagen, hacer click en la misma)

Del mismo modo, puede elegir “Radianes” y el resultado aparecerá en este sistema:

(Para mayor visualización de la imagen, hacer click en la misma)

Se han creado adicionalmente dos ventanas las cuales aparecen en dos casos. Primero, cuando se presiona el botón “Convertir” sin haber ingresado algún valor:

(Para mayor visualización de la imagen, hacer click en la misma)

Y la segunda aparece cuando se presiona “Convertir” sin haber seleccionado un sistema al cual convertir:

(Para mayor visualización de la imagen, hacer click en la misma)

Nótese que la respuesta se muestra en un Label y no en un TextBox. De esta forma se evita que el usuario edite la respuesta ya que se ha considerado que no es necesario que lo haga o ingrese algún valor manualmente a ella.

El código en VBA del formulario es el siguiente:

Private Sub CommandButton1_Click()
    Dim angulo As Double
    If TextBox1.Text = "" Then
        MsgBox "Ingrese un valor a convertir."
    Else
        If OptionButton1.Value = False And OptionButton2.Value = False Then
            MsgBox "Elija el sistema al cual convertir."
        Else
            angulo = TextBox1.Text
            If OptionButton1.Value = True Then 'Radianes
                angulo = angulo * 3.1416 / 180
            Else
            If OptionButton2.Value = True Then 'Centesimales
                angulo = angulo * 200 / 180
            End If
            End If
            Label3.Caption = angulo
        End If
    End If
End Sub

Y el código para el botón de la hoja de cálculo:

Private Sub CommandButton1_Click()
    ConversionGrados.Show
End Sub

Donde “ConversionGrados” es el nombre del formulario.

A continuación se adjunta el archivo en Excel con el ejemplo mostrado:

Conversión Sexagesimales a Otro Sistema

Escrito por: Enrique Eduardo López León.

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5