[Anónimo]

bom dia galerinha!

estou tentado formatar o textbox para número dessa forma:

textbox1.text = format(textbox1.text, “#,###0.00”)

porem, esse textbox é a soma de várias valores, podenda passar a casa dos milhões. sendo assim, quando isso acontece, ele aparece um valor reduzido. por exemplo:

valor real: 2.000.000 valor que aparece: 2,00

onde estou errando?

att.
wagner goularte

[jorgerod]

talvez: format(textbox1.text, “###,###,##0.00”)

atenção: não testei.

[Anónimo]

já testei, nao funcionou.

algo mais?

att.

[jorgerod]

wagner,

podes mandar-me uma planilha com o teu textbox, para eu ver e experimentar?

[Anónimo]

jorge,

segue planilha para analisar.

clica no botão “pedido de compra” e verás que o primeiro item, o total já está errado.

aguardo sua ajuda.

att.
wagner goularte

FormatarNumero.zip

[jorgerod]

wagner,

vê a planilha. o código, tem lá uma nota minha. vê se concordas.

fica bem.

CpiadeFormatarNumero.zip

[Anónimo]

jorge,

era isso mesmo …

muito obrigado!!!

[Anónimo]

bom dia jorge!

não deu certo não. eu apenas tinha visto o primeiro cadastro com apenas um valor, por isso disse que estava certo.

qdo inclui mais itens, o “total” aparece os valores com virgulas.

ex.:
subtotal1 + subtotal2 = total
10 + 20 = 30, porem, do jeito que ficou está aparecendo 10,20.

entendeu?
consegue me ajudar?

att.
wagner goularte

[Anónimo]

galerinha,

segue arquivo criado para tentar resolver esse meu problema.

se alguém puder ajudar, ficarei muito grato.

att.
wagner goularte

ContasTextBox.zip

[jorgerod]

wagner,

eu faria assim:

private sub txtvalor1_afterupdate()
txtvalor1.value = format(txtvalor1.value, "#,##0.00")
txtsubtotal1 = txtquantidade1 * txtvalor1
txtsubtotal1.value = format(txtsubtotal1.value, "#,###0.00")
end sub

private sub txtvalor2_afterupdate()
txtvalor2.value = format(txtvalor2.value, "#,##0.00")
txtsubtotal2 = txtquantidade2 * txtvalor2
txtsubtotal2.value = format(txtsubtotal2.value, "#,###0.00")
end sub

private sub txtvalor3_afterupdate()
txtvalor3.value = format(txtvalor3.value, "#,##0.00")
txtsubtotal3 = txtquantidade3 * txtvalor3
txtsubtotal3.value = format(txtsubtotal3.value, "#,###0.00")
end sub

private sub txtvalor4_afterupdate()
txtvalor4.value = format(txtvalor4.value, "#,##0.00")
txtsubtotal4 = txtquantidade4 * txtvalor4
txtsubtotal4.value = format(txtsubtotal4.value, "#,###0.00")
end sub

depois, criaria um rótulo (label) no userform e atribuia-lhe o seguinte código, para output no txttotal:

private sub calcula_click()
dim txttotal as double
dim num(1 to 4) as double

if me.txtsubtotal1.value = "" then
num(1) = 0
else
num(1) = me.txtsubtotal1.value
end if

if me.txtsubtotal2.value = "" then
num(2) = 0
else
num(2) = me.txtsubtotal2.value
end if

if me.txtsubtotal3.value = "" then
num(3) = 0
else
num(3) = me.txtsubtotal3.value
end if

if me.txtsubtotal4.value = "" then
num(4) = 0
else
num(4) = me.txtsubtotal4.value
end if

txttotal = num(1) + num(2) + num(3) + num(4)

me.txttotal.value = format(txttotal, "#,##0.00")

end sub

envio a planilha com isto que testei:

diz qq coisa, ok?

fica bem.
ContasTextBox1.xlsm

[Anónimo]

bom dia jorge!

deu certo sim. muito obrigado.

embora eu tenha feito de uma outra forma tambem, que pelo visto funcionou (anexo).

mas provavel que eu utilize em outras ocasioes o modelo apresentado por vc.

grato.
wagner goularte

ContasTextBox.zip

Attachments:

You must be logged in to view attached files.

[jorgerod]

wagner,

o que interessa, é que o resultado seja o esperado. no mais, é uma questão de economia em termos de código. 🙂

[Autor]

Artigos