IMC

Para criar uma função em VBA que calcula o Índice de Massa Corporal (IMC), considerando que o peso está na célula A1, a altura na célula A2 e que o resultado deve ser colocado na célula A4, você pode usar o seguinte código. Este código assume que o peso está em quilogramas e a altura em metros.

Sub CalcularIMC()
    Dim peso As Double
    Dim altura As Double
    Dim imc As Double

    ' Lê o peso da célula A1 e a altura da célula A2
    peso = ThisWorkbook.Sheets(1).Range("A1").Value
    altura = ThisWorkbook.Sheets(1).Range("A2").Value

    ' Verifica se os valores são maiores que zero para evitar divisão por zero
    If peso > 0 And altura > 0 Then
        ' Calcula o IMC
        imc = peso / (altura * altura)

        ' Coloca o resultado na célula A4
        ThisWorkbook.Sheets(1).Range("A4").Value = imc
    Else
        ThisWorkbook.Sheets(1).Range("A4").Value = "Valores inválidos"
    End If
End Sub

Abra o Excel e pressione ALT + F11 para abrir o Editor do VBA.
No menu “Inserir”, escolha “Módulo” para criar um novo módulo.
Cole o código acima no módulo.
Execute a sub-rotina CalcularIMC com o peso na célula A1 e a altura na célula A2 da primeira planilha.
O IMC é calculado dividindo o peso (em quilogramas) pelo quadrado da altura (em metros). O resultado será mostrado na célula A4. Lembre-se de que o IMC é apenas uma medida geral e pode não refletir perfeitamente a saúde ou a composição corporal de uma pessoa individual.