CALCULO DEL GET

DISEÑE LA SIGUIENTE INTERFAZ EN VISUAL BASIC, EN UN NUEVO LIBRO DE EXCEL.

I parte. Diseño

Asigne nombre a cada objeto de la macro

II parte. Programación 

No pase si aun no a terminado TODA la parte anterior.

1. Crear un boton en excel para llamar al formulario frmGet hecho en VB.

PASOS:

1. Guardar cambios
   
2. Regresar a Excel
   
3. Ir al menu Programador o Desarrollador o programador
4. Insertar un botón
   
5. Escribir el nombre de la macro: VBGET
6. Presione en el botón nuevo
7. Escribir el siguiente código (solo el código subrayado)

          Sub VBGET()

              frmGet.Show

          End Sub

8. Regrese a excel y modifique la etiqueta del boton por "G.E.T."

9. Clic fuera del botón

10. Pruebe el botón

III parte. Programación.

Copie todo el siguiente código en la sección de codigo del  formulario de excel

imagen de la sección del código(no copie esta imagen)

Dim sexo As Integer

Dim bmr, calculoGET, peso, talla, edad As Single

Private Sub actividadMujer()

Dim actividad As String

actividad = CmbActividad.Text

Select Case actividad

Case "Sedentaria(o)"

    calculoGET = bmr * 1.3 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.3 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.3 & ") + " & (bmr * 0.1)

Case "Ligeramente activa(o)"

    calculoGET = bmr * 1.5 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.5 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.5 & ") +" & (bmr * 0.1)

Case "Moderadamente activa(o)"

    calculoGET = bmr * 1.6 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.6 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.6 & ") + " & (bmr * 0.1)

Case "Si usted es muy activa(o)"

    calculoGET = bmr * 1.9 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.9 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.9 & ") + " & (bmr * 0.1)

End Select

lblGET.Caption = calculoGET

End Sub

Private Sub actividadHombre()

Dim actividad As String

actividad = CmbActividad.Text

Select Case actividad

Case "Sedentaria(o)"

    calculoGET = bmr * 1.3 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.3 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.3 & ") + " & (bmr * 0.1)

Case "Ligeramente activa(o)"

    calculoGET = bmr * 1.6 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.6 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.6 & ") + " & (bmr * 0.1)

Case "Moderadamente activa(o)"

    calculoGET = bmr * 1.7 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.7 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.7 & ") + " & (bmr * 0.1)

Case "Si usted es muy activa(o)"

    calculoGET = bmr * 2.1 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 2.1 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 2.1 & ") + " & (bmr * 0.1)

End Select

lblGET.Caption = calculoGET

End Sub

Private Sub FactorActividad()

Dim actividad As String

actividad = CmbActividad.Text

If OptMinimo.Value = True Then

'And OptMaximo.Value = False Then

Select Case actividad

Case "Sedentaria(o)"

    calculoGET = bmr + (bmr * 0.1)

    lblGETDescripcion.Caption = ""

    lblGETDescripcion2.Caption = "(" & bmr & ") + " & (bmr * 0.1)

Case "Ligeramente activa(o)"

    calculoGET = bmr * 1 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1 & ") + " & (bmr * 0.1)

Case "Moderadamente activa(o)"

    calculoGET = bmr * 1.2 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.2 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.2 & ") + " & (bmr * 0.1)

Case "Si usted es muy activa(o)"

    calculoGET = bmr * 1.4 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.4 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.4 & ") + " & (bmr * 0.1)

End Select

End If

If OptMaximo.Value = True Then

Select Case actividad

Case "Sedentaria(o)"

    calculoGET = bmr + (bmr * 0.1)

    lblGETDescripcion.Caption = ""

    lblGETDescripcion2.Caption = "(" & bmr & ") + " & (bmr * 0.1)

Case "Ligeramente activa(o)"

    calculoGET = bmr * 1.1 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.1 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.1 & ") + " & (bmr * 0.1)

Case "Moderadamente activa(o)"

    calculoGET = bmr * 1.3 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.3 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.3 & ") + " & (bmr * 0.1)

Case "Si usted es muy activa(o)"

    calculoGET = bmr * 1.5 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.5 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.5 & ") + " & (bmr * 0.1)

End Select

End If

lblGET.Caption = calculoGET

End Sub

Private Sub CmbActividad_Change() 'actualizar OptMaximo.Value

Dim actividad As String

actividad = CmbActividad.Text

Select Case actividad

Case "Sedentaria(o)"

     lblDescripcionNiveldeActividad.Caption = "Sedentaria(o), poco o nada de ejercicio"

     If OptMinimo.Value = True Or OptMaximo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 0"

     End If

   

Case "Ligeramente activa(o)"

     lblDescripcionNiveldeActividad.Caption = "Ligeramente activa(o) (ejercicio ligero / deportes 1-3 días / semana"

     If OptMinimo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.0"

     End If

     If OptMaximo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.1"

     End If

Case "Moderadamente activa(o)"

     lblDescripcionNiveldeActividad.Caption = "Moderadamente activa(o) (ejercicio moderado / deportes 3-5 días / semana)"

     If OptMinimo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.2"

     End If

     If OptMaximo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.3"

     End If

Case "Si usted es muy activa(o)"

     lblDescripcionNiveldeActividad.Caption = "Si usted es muy activa(o) (ejercicio duro / deportes 6-7 días / semana)"

     If OptMinimo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.4"

     End If

     If OptMaximo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.5"

     End If

End Select

End Sub

Private Sub ActividadFisica()

 CmbActividad.AddItem "Sedentaria(o)"

 CmbActividad.AddItem "Ligeramente activa(o)"

 CmbActividad.AddItem "Moderadamente activa(o)"

 CmbActividad.AddItem "Si usted es muy activa(o)"

End Sub

Private Sub OptMaximo_Change()

If OptMaximo.Value = False Then CmbActividad_Change

End Sub

Private Sub OptMaximo_Click()

 CmbActividad_Change

End Sub

Private Sub OptMinimo_Change()

If OptMinimo.Value = False Then CmbActividad_Change

End Sub

Private Sub OptMinimo_Click()

CmbActividad_Change

End Sub

Private Sub UserForm_Activate()

ActividadFisica 'llenado de lista

CmbActividad.ListIndex = 1

End Sub

• Doble clic al boton cmdCalcular y escriba

El código de la imagen SI debe ser transcrita hacia el botón.

IV PARTE. EJECUTAR

• Si tiene problemas con la macro, revice cada nombre de objeto como se indica en la parte I.
• Ahora pruebe el boton desde excel
• Guarde su archivo (habilitado para macros)