Planilha Excel de cálculo do IMC

Como calcular IMC no Excel passo-a-passo com Fórmula e Download da planilha de exemplo grátis.

Esta planilha do amigo Niel Bispo, ao qual desde já agradeço pela contribuição.

O que é IMC?

Conforme o site Portais, IMC é "IMC (BMI em inglês) é a sigla para Índice de Massa Corporal. O IMC é um cálculo que leva em consideração o peso corporal e a altura da pessoa . O resultado ajuda a saber se a pessoa tem um peso baixo, normal ou se pelo contrário tem peso a mais.

Os especialistas na matéria relacionam a obesidade com um risco mais elevado de sofrer várias doenças entre elas doenças do coração. É importante notar que não se toma em consideração a massa muscular quando se calcula o Índice de Massa Corporal."

Com base em um cálculo que relaciona o peso a altura e o sexo, este define se a relação peso x altura está equilibrada.

Outra coisa interessante que encontrei sobre o assunto peso foi esta calculadora online que de calorias. Informando alguns dados você terá o total de calorias que deve consumir para manter o seu peso e quantas calorias deve consumir para emagrecer o quanto gostaria. A calculadora está em http://calendarscripts.info/weight-loss-calculator.html.

Como Calcular o IMC no Excel

Para o cálculo do IMC são necessárias duas informações, Peso e Altura.

O cálculo do IMC é o seguinte:

IMC=peso (kg)/altura (m)²

No Excel consideremos as células A1->PESO, A2->ALTURA e na célula A3 =PESO/ALTURA^2

Após isso você conseguirá um valor, este valor deve ser considerado conforme a tabela do IMC.

Considere a tabela abaixo de IMC para classificar a pessoa:

Tabela IMC para Homens

IMC (kg/m)²	Classificação	Riscos à Saúde
Menos de 20	Abaixo do peso	Baixo (risco de deficiências nutricionais e doenças)
20 - 24,9	Peso normal	Baixo (faixa considerada saudável)
25 - 27,9	Sobrepeso	Aumentado
28 - 32,9	Obesidade Grau I	Moderado
35,0 - 39,9	Obesidade Grau II	Grave
40,0 ou mais	Obesidade Grau III (mórbida)	Muito grave

Tabela IMC para Mulheres

IMC (kg/m)²	Classificação	Riscos à Saúde
Menos de 19	Abaixo do peso	Baixo (risco de deficiências nutricionais e doenças)
19 - 23,9	Peso normal	Baixo (faixa considerada saudável)
24 - 28,9	Sobrepeso	Aumentado
29 - 33,9	Obesidade Grau I	Moderado
34 - 38,9	Obesidade Grau II	Grave
39 ou mais	Obesidade Grau III (mórbida)	Muito grave

Exemplo de Cálculo de IMC

Vamos a um exemplo prático de como calcular o IMC no Excel.

Consideremos um homem de 88 kg e 1,83 m de altura.

Para o nosso cálculo usaremos a fórmula do IMC: IMC= peso (kg)/altura (m)²

Então substituindo os parâmetros temos:

IMC = 88/1,83^2

E como resultado temos: 26,27 e aplicando este resultado na tabela temos a classificação Sobrepeso e Risco à saúde Aumentado.

Lembrando que a tabela de IMC é um cálculo médio, não deve ser considerado em todos os casos, como no caso de pessoas que praticam musculação. Devendo ser considerada a composição corporal para um cálculo mais adequado.

Formulário VBA para Cálculo de IMC

Outra forma de realizar o cálculo do IMC é utilizando o VBA, no nosso exemplo abaixo temos um formulário de cálculo do IMC.

De forma semelhante a que temos antes, basta selecionar o sexo, informar o peso e a altura e clicar no botão Gerar IMC.

Assim temos o retorno do cálculo que analisa conforme a tabela de IMC e retorna a informação do peso ideal.

Abaixo você tem o código VBA que realiza o cálculo do IMC para que você possa o analisar e alterar caso deseje.

Private Sub bt_imc_Click()

    Dim sexo As String
    Dim peso, altura, imc As Double

    sexo = Me.cb_sexo.Value
    peso = Me.tx_peso.Value
    altura = Me.tx_altura.Value

    If sexo = "" And peso = "" And altura = "" Then
        MsgBox ("Você deve preencher todos os campos ou colocar valores válidos")
    ElseIf sexo <> "" And peso = "" And altura = "" Then
        MsgBox ("Você deve preencher o peso e a altura")
    ElseIf sexo <> "" And peso <> "" And altura = "" Then
        MsgBox ("Você deve preencher a altura")
    ElseIf sexo <> "" And peso = "" And altura <> "" Then
        MsgBox ("Você deve preencher o peso")
    ElseIf sexo = "" And peso <> "" And altura <> "" Then
        MsgBox ("Você deve preencher o sexo")
    ElseIf sexo = "" And peso <> "" And altura = "" Then
        MsgBox ("Você deve preencher o sexo e a altura")
    ElseIf sexo = "" And peso = "" And altura <> "" Then
        MsgBox ("Você deve preencher o sexo e o peso")
    Else
        imc = peso / altura ^ 2
    End If

    Select Case sexo
        Case Is = "Masculino"
            If imc = 0 Then
            ElseIf imc < 20.7 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está ABAIXO DO PESO IDEAL")
            ElseIf imc < 26.4 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está NO PESO IDEAL")
            ElseIf imc < 27.8 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está com SOBREPESO")
            ElseIf imc < 31.1 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está com OBESIDADE GRAU I")
            ElseIf imc < 41.6 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está com OBESIDADE GRAU II")
            ElseIf imc > 41.6 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está com OBESIDADE MORBIDA")
            End If

        Case Is = "Feminino"
            If imc = 0 Then
            ElseIf imc < 19.1 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está ABAIXO DO PESO IDEAL")
            ElseIf imc < 25.8 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está NO PESO IDEAL")
            ElseIf imc < 27.3 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está com SOBREPESO")
            ElseIf imc < 32.3 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está com OBESIDADE GRAU I")
            ElseIf imc < 40 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está com OBESIDADE GRAU II")
            ElseIf imc > 40 Then
                MsgBox ("Seu IMC é de " & FormatNumber(imc, 2) & " Você está com OBESIDADE MORBIDA")
            End If
    End Select
End Sub

Private Sub bt_sair_Click()
    ThisWorkbook.Close
End Sub

Private Sub UserForm_Initialize()

    With cb_sexo
        .AddItem "Masculino"
        .AddItem "Feminino"
    End With

End Sub

No código acima você tem a análise conforme a tabela de IMC e o sexo, tudo utilizando código VBA Excel que poderá aplicar na sua própria análise ou ferramenta.

Download Planilha de Como Calcular o IMC no Excel

Clique no botão abaixo para realizar o  download da planilha de de como calcular o IMC no Excel.

Conclusão

Ao longo deste artigo você aprendeu como realizar o cálculo de IMC no Excel com fórmulas e também com um formulário VBA Excel com código que realiza este cálculo.

Também viu que há diferenças entre a tabela IMC para homens e mulheres e como classificar o IMC conforme a tabela em um exemplo prático.

Também pode realizar o download da planilha de cálculo de IMC no botão da sessão anterior gratuitamente.