Notifications
Clear all

Formataçao do campo receptor

4 Posts
2 Usuários
0 Reactions
932 Visualizações
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola Pessoal,
Por gentileza, estou precisando formatar um campo no qual foi efetuado uma somatória, como segue abaixo
Preciso que fique na planilha este tipo de exemplo 3.456,00, só que esta ficando 3456,678, estou usando double para a variável, conforme segue abaixo o código, grato á quem puder ajudar-me, obrg

'Totalização dos Itens para o RelPedido
Dim SumTotal As Double

SumTotal = SumTotal + TabVendas.Cells(LINHATAB, 8)
Sheets("RelPedido").Range("F21").Value = SumTotal

 
Postado : 31/03/2018 6:04 pm
(@klarc28)
Posts: 971
Prominent Member
 

No outro tópico:

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=27840

Você deve marcar como resolvido na parte que te ajudou, não na sua própria parte.

Sheets("RelPedido").Range("F21").NumberFormat = "#,##0.00"

Cinco dicas que foram muito úteis para mim:

1) Quando não sei fazer algo no VBA, vou ao menu EXIBIÇÃO >> MACROS >> GRAVAR MACRO
Faço o que eu quero aí volto ao menu EXIBIÇÃO >> MACROS >> PARAR GRAVAÇÃO
Aperto Alt + F11 e vejo como a macro fez aquilo. Tento entender e tento adaptar.

2) Quando vou criar um código e o resultado não está saindo como o esperado, entro no código e vou apertando F8 para executar passo a passo, aí vou passando o mouse sobre as variáveis para verificar se o valores delas estão corretos, já consertei milhares de códigos dessa forma.

3) Antes de executar o código, vou ao menu Depurar >> Compilar. Isso ajuda corrigir erros mais simples, como o nome de uma variável digitado errado.

4) Declaro todas as variáveis. Isso também evita erros.

5) Sempre uso o Option Explicit lá no início. Ele me obriga a declarar as variáveis.

 
Postado : 31/03/2018 8:18 pm
(@fernandox)
Posts: 68
Trusted Member
Topic starter
 

Ola klarc28
Fico grato pelas orientações, vou me atentar nas próximas postagem de acordo com os procedimentos do forum.

Obs: Estava precisando com que apresenta-se o arredondamento correto das casas decimais, tudo funcionando perfeitamente, abraço
'Totalização / Totais dos Itens para o RelPedido
ActiveWorkbook.PrecisionAsDisplayed = True
SumTotal = SumTotal + TabVendas.Cells(LINHATAB, 8)
Sheets("RelPedido").Range("F21").Value = SumTotal
Sheets("RelPedido").Range("F21").NumberFormat = "#,##0.00"

 
Postado : 02/04/2018 11:38 am
(@klarc28)
Posts: 971
Prominent Member
 

Apresentasse é diferente de apresenta-se

 
Postado : 02/04/2018 11:50 am