Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
TextBox "enten...
 
Notifications
Clear all

TextBox "entender" fórmulas

 
2024 - VBA & Macros
Post Recente por bilokas 10 anos atrás
3 Posts
2 Usuários
0 Reactions
1,175 Visualizações
RSS
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Bom dia amigos do fórum,

Estou tentando criar uma forma de o usuário através de uma TextBox1, inserir uma função (fórmula) de soma de valores (formato moeda) Para que o resultado seja exibido numa TextBox2.

O usuário no caso iria inserir os dados (valores) usando vírgula como separador de casa decimal, ou seja, o usuário quer somar R$ 1,50 + R$ 1,75. Então ele digitaria "=1,50+1,50" no TextBox1 e o resultado seria exibido no TextBox2 como moeda (Currency)

Porém, quando uso "," (vírgula) ele da erro em tempo de execução 1004. Agora se eu trocar para "." (ponto) funciona.

Agora, se você pegar uma planilha normal e somar valores com "," (vírgula), ele aceita normalmente. Eu acho que o problema está no tipo de formatação que a célula está. Como padrão o excel vem como Geral, já mudei para moeda, texto, número e nada.

A rotina que eu estou tentando usar é esta:

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Sheets("Plan1").Range("A1").Value = TextBox1.Value
    TextBox2.Value = Format(Sheets("Plan1").Range("A1").Value, "Currency")
End Sub


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 23/09/2014 7:50 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não tenho certeza, aqui não tenho como alterar a configuração do PC, mas deve ser devido a configuração do padrão do sistem monetário do windows, veja que o teclado numerico, se digitar "." não da certo, é ao contrario.

Uma forma para contornar sem alterar a configuração seria:

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    
    sTT = Replace(TextBox1.Value, ",", ".")
    
    Sheets("Plan1").Range("A1").Value = sTT

    TextBox2.Value = Format(Sheets("Plan1").Range("A1").Value, "Currency")
    
End Sub

Faça os testes e veja se é isto.
[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/09/2014 8:47 am
 bilokas
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Engraçado, ei fiquei imaginando algo com a instrução "replace" mas não pensei que fosse dar certo e não é que funcionou. Para nós brasileiros, tudo tem um "jeitinho" não é?! Rs.

Obrigado pela ajuda.


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 23/09/2014 9:07 am
Forum Jump:
  Tópico Anterior
Próximo Tópico