Function fnImc(pPeso As Double, pAltura As Double) As Double
fnImc = pPeso / (pAltura * pAltura)
End Function
Function fnImc(pPeso As Double, pAltura As Double) As Double
fnImc = pPeso / (pAltura * pAltura)
End Function
Olá Lucas, tudo bem com você?
Peço desculpas pela demora em obter um retorno.
Ao executar sua função, tudo ocorreu como esperado, retornou o valor do IMC. Sendo assim, peço que verifique se seguiu o passo a passo correto para criar essa função personalizada:
Abra o ambiente VBA pressionando o atalho ALT + F11
ou indo na aba "Desenvolvedor" e selecionando a opção "Visual Basic"
No canto esquerdo, clique sob a opção "VBAProject" e em seguida, na barra superior, selecione "Inserir" e escolha a opção "Módulo"
Cole o código na tela que se abrir:
Function fnImc(pPeso As Double, pAltura As Double) As Double
fnImc = pPeso / (pAltura * pAltura)
End Function
Salve o código e volte a sua planilha, escolha uma célula e digite a fórmula personalizada, por exemplo:
=fnImc(70;1,72)
Observação: O número decimal deve ser separado por vírgula. Caso coloque ponto como separador, obterá um erro de sintaxe na fórmula. Além disso, o peso deverá ser colocado no primeiro parâmetro, pois, caso coloque primeiro a altura, o valor resultante será próximo a zero.
Abaixo, ilustro o passo a passo apresentado acima:
Espero ter ajudado. Continue mergulhando em conhecimento e não hesite em voltar ao fórum para continuar aprendendo e interagindo com a comunidade.
Em caso de dúvidas estou à disposição.
Abraços e bons estudos!