Erro ao exibir formato moeda no VBA/Excel.

Question

Estou com esse problema já faz algum tempo no VBA, quando eu uso a formatação de moeda ("Currency") ou aquela padrão do Excel ("R$ #,##0.00"), o valor exibido é normalmente diferente do real, quando o valor tem apenas até três digitos aparece normal, mas mais que isso ele mostra diferente, normalmente "abreviado". Segue os prints do código e o resultado no Excel, e também em um Userform que estou tendo o mesmo problema. Ao que parece o problema não é no código, pois em outros computadores mostra normalmente, porém é algo do meu Excel ou VBA, já desinstalei o Office e instalei novamente.. e o erro continua, por favor se alguém puder me ajudar

Answer 1

Olá, tudo bem?

Obrigada por entrar em contato com a Comunidade Microsoft.

Meu nome é Valéria e farei o possível para ajudar.

A primeiro momento, recomendo que verifique o idioma que o Excel está instalado pois isso pode interferir na leitura de funções.

Caso esteja no mesmo idioma que nos outros computadores que não apresentam erro, aplique as orientações abaixo na ordem em que se encontram:

Procedimento 1
Verifique se algum suplemento está causando esse comportamento e desabilite. Veja como fazê-lo nesse artigo do suporte do Office https://support.office.com/pt-br/article/exibir....

Procedimento 2
Desabilite todos os programas de terceiros, ou seja, uma Inicialização limpa, para verificar se algum dos programas instalados em seu computador possa estar provocando esse comportamento.

1. Por favor, pressione as teclas simultaneamente “Windows+R” e será aberto o “Executar”.
2. Digite no campo em branco a sigla que está dentro das aspas e sem as aspas.
3. Agora digite no campo em branco “MSCONFIG” e clique em “Ok”.
4. Vá até a guia “Serviços” e clique na caixa que está no canto esquerdo abaixo “Ocultar todos os serviços Microsoft” depois clique no botão “Desativar tudo” agora clique em “Aplicar”.
5. Lembrando se houver algum, driver de rede ativo do Wi-Fi, deixar marcá-lo novamente.
6. Agora por favor, vá até a guia “Inicialização de Programas” e clique no botão “Desativar tudo”.
7. Clique em “Ok” será solicitado o reinicio do computador confirme a solicitação clicando em “Reiniciar”.
   Ao iniciar o computador e verifique se a falha ainda ocorre.

Procedimento 3
Para executar o reparo dos arquivos de instalação do Microsoft 365 siga as instruções abaixo:

Reparo Rápido:

1. Pressione as teclas Windows+R e digite Appwiz.cpl e clique em Ok;
2. Procure e clique com o botão direito do Mouse sobre Microsoft 365 e escolha Alterar >Reparo Rápido e siga as instruções.

Persistindo, faça o Reparo Online:

1. Pressione as teclas Windows+R e digite Appwiz.cpl e clique em Ok;
2. Procure e clique com o botão direito do Mouse sobre Microsoft 365 e escolha Alterar > Reparo Online e siga as instruções.

Observação: Esse procedimento pode demorar, pois depende muito da sua conexão com à Internet.

Procedimento 4
Crie uma nova conta de usuário e verifique o comportamento. Para criar uma nova conta siga os passos abaixo:

Pressione simultaneamente as teclas Windows + R para abrir o Executar;
No executar digite control userpasswords2 e clique em Ok;
Clique na caixa Adicionar;
Selecione a opção Não conectar em uma conta Microsoft;
Escolha um nome e senha para esse perfil após isso avance entre as próximas etapas;
Após criado o novo perfil na tela de Contas de Usuário, selecione a nova conta e clique na caixa propriedade;
Na aba Associação de Grupo marque o perfil como administrador e clique sobre Ok.
Acesse o novo perfil e veja se o comportamento persiste.

Procedimento 5
Desinstale manualmente todos os registros de instalação do Office: https://support.microsoft.com/pt-br/office/desi....

Limpe os arquivos temporários do sistema:

1. Na Área de Trabalho, pressione simultaneamente as teclas de atalho Windows + R para abrir o Executar.
2. Agora digite TEMP e clique em OK.
3. Será aberta a pasta TEMP, por favor, exclua permanentemente todos os arquivos dentro da pasta, se alguns arquivos não forem apagados será normal pois os mesmos podem estar em uso.
4. Novamente pressione simultaneamente as teclas de atalho Windows + R para abrir o Executar.
5. Digite %TEMP% e clique em OK.
6. Será aberta a pasta %TEMP%, por favor, exclua permanentemente todos os arquivos dentro da pasta, se alguns arquivos não forem apagados será normal pois os mesmos podem estar em uso.
7. Novamente pressione simultaneamente as teclas de atalho Windows + R para abrir o Executar.
8. Digite Prefetch e clique em OK.
9. Será aberta a pasta Prefetch, por favor, exclua permanentemente todos os arquivos dentro da pasta, se alguns arquivos não forem apagados será normal pois os mesmos podem estar em uso.

Reinicie o dispositivo, acesse sua conta e instale o Office novamente.

Se houver mais dúvidas relacionadas aos produtos Microsoft ou o comportamento informado ainda persistir, por favor, poste novamente.
Espero ter ajudado, até mais!

Olá Léia muito obrigado pela resposta, quando eu fiz o procedimento 4, de trocar de usuário o problema desapareceu... porém eu gostaria de saber como solucionar no meu usuário padrão, se puder me ajudar fico imensamente agradecido..

Answer 2

Olá, tudo bem?

Obrigada por entrar em contato com a Comunidade Microsoft.

Meu nome é Valéria e farei o possível para ajudar.

A primeiro momento, recomendo que verifique o idioma que o Excel está instalado pois isso pode interferir na leitura de funções.

Caso esteja no mesmo idioma que nos outros computadores que não apresentam erro, aplique as orientações abaixo na ordem em que se encontram:

Procedimento 1

Verifique se algum suplemento está causando esse comportamento e desabilite. Veja como fazê-lo nesse artigo do suporte do Office https://support.office.com/pt-br/article/exibir....

Procedimento 2

Desabilite todos os programas de terceiros, ou seja, uma Inicialização limpa, para verificar se algum dos programas instalados em seu computador possa estar provocando esse comportamento.

1. Por favor, pressione as teclas simultaneamente “Windows+R” e será aberto o “Executar”.
2. Digite no campo em branco a sigla que está dentro das aspas e sem as aspas.
3. Agora digite no campo em branco “MSCONFIG” e clique em “Ok”.
4. Vá até a guia “Serviços” e clique na caixa que está no canto esquerdo abaixo “Ocultar todos os serviços Microsoft” depois clique no botão “Desativar tudo” agora clique em “Aplicar”.
5. Lembrando se houver algum, driver de rede ativo do Wi-Fi, deixar marcá-lo novamente.
6. Agora por favor, vá até a guia “Inicialização de Programas” e clique no botão “Desativar tudo”.
7. Clique em “Ok” será solicitado o reinicio do computador confirme a solicitação clicando em “Reiniciar”.

Ao iniciar o computador e verifique se a falha ainda ocorre.

Procedimento 3

Para executar o reparo dos arquivos de instalação do Microsoft 365 siga as instruções abaixo:

Reparo Rápido:

1. Pressione as teclas Windows+R e digite Appwiz.cpl e clique em Ok;
2. Procure e clique com o botão direito do Mouse sobre Microsoft 365 e escolha Alterar >Reparo Rápido e siga as instruções.

Persistindo, faça o Reparo Online:

1. Pressione as teclas Windows+R e digite Appwiz.cpl e clique em Ok;
2. Procure e clique com o botão direito do Mouse sobre Microsoft 365 e escolha Alterar > Reparo Online e siga as instruções.

Observação: Esse procedimento pode demorar, pois depende muito da sua conexão com à Internet.

Procedimento 4

Crie uma nova conta de usuário e verifique o comportamento. Para criar uma nova conta siga os passos abaixo:

Pressione simultaneamente as teclas Windows + R para abrir o Executar;

No executar digite control userpasswords2 e clique em Ok;

Clique na caixa Adicionar;

Selecione a opção Não conectar em uma conta Microsoft;

Escolha um nome e senha para esse perfil após isso avance entre as próximas etapas;

Após criado o novo perfil na tela de Contas de Usuário, selecione a nova conta e clique na caixa propriedade;

Na aba Associação de Grupo marque o perfil como administrador e clique sobre Ok.

Acesse o novo perfil e veja se o comportamento persiste.

Procedimento 5

Desinstale manualmente todos os registros de instalação do Office: https://support.microsoft.com/pt-br/office/desi....

Limpe os arquivos temporários do sistema:

1. Na Área de Trabalho, pressione simultaneamente as teclas de atalho Windows + R para abrir o Executar.
2. Agora digite TEMP e clique em OK.
3. Será aberta a pasta TEMP, por favor, exclua permanentemente todos os arquivos dentro da pasta, se alguns arquivos não forem apagados será normal pois os mesmos podem estar em uso.
4. Novamente pressione simultaneamente as teclas de atalho Windows + R para abrir o Executar.
5. Digite %TEMP% e clique em OK.
6. Será aberta a pasta %TEMP%, por favor, exclua permanentemente todos os arquivos dentro da pasta, se alguns arquivos não forem apagados será normal pois os mesmos podem estar em uso.
7. Novamente pressione simultaneamente as teclas de atalho Windows + R para abrir o Executar.
8. Digite Prefetch e clique em OK.
9. Será aberta a pasta Prefetch, por favor, exclua permanentemente todos os arquivos dentro da pasta, se alguns arquivos não forem apagados será normal pois os mesmos podem estar em uso.

Reinicie o dispositivo, acesse sua conta e instale o Office novamente.

Se houver mais dúvidas relacionadas aos produtos Microsoft ou o comportamento informado ainda persistir, por favor, poste novamente.

Espero ter ajudado, até mais!