Function fnImc(pPeso As Double, pAltura As Double) As Double
fnImc = pPeso / (pAltura * pAltura)
End Function
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
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!