Converter número em extenso

Joaquim Silva Dias 20 Reputation points
2023-05-15T10:23:30.6133333+00:00

Boa tarde,

Tenho o Office 365.

Pretendo colocar na celula A1 o valor 123,00€ e que apareça na celula B1 cento e vinte e três euros).

Dado que o Excel não tem uma função para o efeito, podem me ajudar com uma uma macro que responda ao solicitado?

Agradecido.

Microsoft 365 and Office | Development | Other
Microsoft 365 and Office | Excel | For business | Windows
{count} votes

Accepted answer
  1. Emily Hua-MSFT 27,796 Reputation points
    2023-05-16T02:43:54.1333333+00:00

    Hi @Joaquim Silva Dias

    Welcome to Q&A forum ~

    Currently in Microsoft Q&A we only support English, could you please edit your question into English?Thanks for your understanding.

    Via translation tool, I get following content.

    Capture7

    As this issue is related to UDF code, so I add a tag "Office Development". The tag "Excel Management" focuses more on general Excel issues.

    Please check whether the article "SpellNumber European Euros Function In Excel" is helpful to you. (Note: Since the web site is not hosted by Microsoft, the link may changed without notice. Microsoft does not guarantee the accuracy of this information.)

    • First, you may insert a new Module, and copy the code into it.

    Capture4

    • Please format the cells include the Euros to be Currency.

    Capture5

    • The formula to convert number to words is =SpellNumberEDP(A1,"EUR").

    Capture6


    If the answer is helpful, please click "Accept Answer" and kindly upvote it. If you have extra questions about this answer, please click "Comment".

    Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.


    0 comments No comments

2 additional answers

Sort by: Most helpful
  1. Joaquim Silva Dias 20 Reputation points
    2023-05-17T11:01:02.4633333+00:00
    Thanks for your answer.
    
    I have a question that makes me come back to your contact.
    If  enter =SpellNumberEDP(A2)  €123.15 One Hundred Twenty Three Dollars and Fifteen Cents
    
    But if  put =SpellNumberEDP(A2,"EUR")  It gives error "there is a problem in this formula"
    
    What am I doing wrong.
    Grateful.
    
    0 comments No comments

  2. Joaquim Silva Dias 20 Reputation points
    2023-05-17T11:05:35.5433333+00:00

    User's image

    User's image

    0 comments No comments

Your answer

Answers can be marked as Accepted Answers by the question author, which helps users to know the answer solved the author's problem.