EXCELer Tudo sobre EXCEL em Português
- This topic has 6 replies, 2 voices, and was last updated 13 years, 3 months ago by
.
-
Posts
-
-
bom dia galerinha!
não estou conseguindo somar casas decimais. alguém pode me ajudar?
tenho um userform com 60 textbox. então fiz uma função de somar, sempre que o textbox é alterado, usando afterupdate()
segue:
function calcular_1(frm as userform) as long
dim h as integer
for h = 1 to 60
if me.controls(“txtsubtotal” & h).value vbnullstring then
calcular_1 = clng(me.controls(“txtsubtotal” & h).value) + calcular_1
end if
next h
me.txttotal.value = calcular_1
end functionporém, ele não faz distinção de “decimal”. o que devo fazer?
já testei clng, ccur, val, “sem nada”, ….fico no aguardo.
att.
wagner goularte -
putz galerinha … eu estava marcando …
era só trocar o “as long” por “as double”. ficou assim:
function calcular_1(frm as userform) as double
dim h as integer
for h = 1 to 60
if me.controls(“txtsubtotal” & h).value vbnullstring then
calcular_1 = me.controls(“txtsubtotal” & h).value + calcular_1
end if
next h
me.txttotal.value = format(calcular_1, “0.00”)
end functionatt.
wagner goularte -
-
galerinha,
preciso de uma ajuda. tenho problemas qdo se trata de valores e casas decimais.
estou mandando um exemplo anexo para ficar mais facil a discussão.
qdo coloco casas decimais, no userform ele aparece a multiplicação correta, porém qdo envio para a planilha de excel, esses valores não são validos como número, portanto não consigo somar, subtrair, etc …
se eu coloco vírgula, no userform aparece a conta certa, porem na planilha não.
se eu coloco ponto, no userform não faz a multiplicacao, porem na planilha aparece como valor.entendeu? alguém pode me ajudar a solucionar de uma vez por todas esse assunto.
fico no aguardo.
wagner goularte
Calcular.zip -
boas, wagner,
utilizando vírgula no userform: talvez este código te dê o resultado que pretendes. experimenta e diz qq coisa, ok?
private sub commandbutton1_click()
dim indice as long
indice = 1
dim h as integerfor h = 0 to 3
with wsteste.cells(indice + h, 1).value = me.controls(“txtquantidade” & h + 1).value
.cells(indice + h, 1).value = cdbl(.cells(indice + h, 1).value)
.cells(indice + h, 2).value = me.controls(“txtpreco” & h + 1).value
.cells(indice + h, 2).value = cdbl(.cells(indice + h, 2).value)
.cells(indice + h, 3).value = me.controls(“txtsubtotal” & h + 1).value
.cells(indice + h, 3).value = cdbl(.cells(indice + h, 3).value)end with
next hend sub
-
muito obrigado mais uma vez jorge !!!
-
-
- You must be logged in to reply to this topic.