Segue um projetinho simples.
Como fazer uma calculadora de IMC (Índice de massa corporal), utilizando formulários em Excel.
Com Alt + F11, abrimos o editor do VBA.
Inserir -> Userform
Vai abrir um formulário. Este formulário tem várias propriedades. Mudar a propriedade Caption (título) para IMC.
Na caixinha de controles, um deles é o label (um texto simples) e outro é uma caixa de texto (para input de dados).
Basta clicar no controle e inserir no formulário.
Inserir os elementos e posicionar no formulário.
No botão rodar, vai o código que faz o cálculo.
Se a caixinha de texto se chama TxtPeso, para acessar o valor é TxtPeso.Value.
O IMC é o peso pela altura ao quadrado.
imc = peso / (altura ^ 2)
Pela tabela abaixo, temos a recomendação do IMC.
E o resultado final é algo assim:
Link para download: https://drive.google.com/file/d/1DwMTDTahuvRk7JLeInMgdviUexA6bVuq/view?usp=sharing
Private Sub CommandButton1_Click()
Dim imc As Double
Dim peso As Double
Dim altura As Double
Dim texto As String
Dim txtAlt As String
If Information.IsNumeric(TxtPeso.Value) Then
peso = TxtPeso.Value
Else
MsgBox “Informar valor numérico para o peso”
Exit Sub
End If
If Information.IsNumeric(TxtAltura.Value) Then
altura = TxtAltura.Value
Else
MsgBox “Informar valor numérico para a altura”
Exit Sub
End If
imc = Math.Round(peso / (altura ^ 2), 1)
If imc < 17 Then
texto = “IMC = ” & imc & “, Peso muito abaixo do ideal”
ElseIf imc < 18.5 Then
texto = “IMC = ” & imc & “: Peso abaixo do ideal”
ElseIf imc < 25 Then
texto = “IMC = ” & imc & “: Peso normal”
ElseIf imc < 30 Then
texto = “IMC = ” & imc & “: Acima do peso”
ElseIf imc < 35 Then
texto = “IMC = ” & imc & “: Obesidade I”
ElseIf imc < 40 Then
texto = “IMC = ” & imc & “; Obesidade II (severa)”
Else
texto = “IMC = ” & imc & “: Obesidade III (mórbida)”
End If
Label3.Caption = texto
End Sub
Ideias técnicas com uma pitada de filosofia
