Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Calculo Textbox + F...
 
Notifications
Clear all

Calculo Textbox + Formato Textbox

 
2024 - VBA & Macros
Post Recente por romanholi 8 anos atrás
2 Posts
1 Usuários
0 Reactions
780 Visualizações
RSS
 romanholi
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Pessoal, bom dia!

Preciso de uma super ajuda:

No anexo Frm_Apontamento:

Preciso criar a seguinte condição para todos os meus txt's;

Txt_Chapa01_Var_01 = Se Txt_Chapa01_01 >= Txt_Chapa01_10 então Txt_Chapa01_01 - Txt_Chapa01_10 senão Txt_Chapa01_10 - Txt_Chapa01_01 (Para o valor não ficar negativo)

E também preciso formatar o txt que fica atrás com a seguinte condição:

Txt_Chapa01_Fundo_01 Fica Fundo Verde se Txt_Chapa01_Var_01 <= 5
Txt_Chapa01_Fundo_01 Fica Fundo Vermelho se Txt_Chapa01_Var_01 >5

Só que eu preciso fazer isso para todos os grupos de Txts e certamente os amigos conseguem simplificar para mim!

Até consegui formatar, mas não sei se utilizei no evento correto (Quando dou backspace no txt dá problema). Vide Anexo.
Queria criar essa formatação condicional de uma só vez e aplicar para todos os Txt's!

Também preciso criar uma média no Txt_Chapa01_Media_01 de todos os txts: Txt_Chapa01_01 / Txt_Chapa01_02 / Txt_Chapa01_03 .........

Você podem mais uma vez ajudar-me!

Muitíssimo Obrigado

 
Postado : 25/01/2017 8:16 am
 romanholi
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Pessoal, a primeira dúvida eu consegui! Só que eu vou fazer textbox por textbox, pois não sei como simplificar. Mas não tem problema!

Private Sub Txt_Chapa01_10_Change()

    Dim a, b, c As Double
    
    a = Me.Txt_Chapa01_01.Value
    b = Me.Txt_Chapa01_10.Value
    If Me.Txt_Chapa01_10.Value <> Empty Then
        c = b - a
    
    Me.Txt_Chapa01_Var_01 = Abs(Format(c, "0"))
        
    Else
        Me.Txt_Chapa01_Var_01 = Abs(Format(0, "0"))
    End If


If Txt_Chapa01_Var_01.Value <= 5 Then

Me.Txt_Chapa01_Fundo_01.BackColor = RGB(128, 255, 41)
Me.Txt_Chapa01_Var_01.BackColor = RGB(128, 255, 41)

Else:

Me.Txt_Chapa01_Fundo_01.BackColor = RGB(255, 0, 0)
Me.Txt_Chapa01_Var_01.BackColor = RGB(255, 0, 0)

End If


End Sub

Agora preciso fazer a média de todos os meus textboxs!
Obrigado

 
Postado : 25/01/2017 11:30 am
Forum Jump:
  Tópico Anterior
Próximo Tópico