1
resposta

[Dúvida] Fiz o teste na função do exercício, mas continua retornando o valor 0.

Function fnImc(pPeso As Double, pAltura As Double) As Double

fnImc = pPeso / (pAltura * pAltura)

End Function
1 resposta

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:

Gif que mostra o passo a passo descrito nos pontos acima para criar uma função personalizada

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!

Caso este post tenha lhe ajudado, por favor, marcar como solucionado ✓. Bons Estudos!