Notifications
Clear all

Label

5 Posts
2 Usuários
0 Reactions
1,012 Visualizações
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Como proceder neste caso. Tenho uma planilha com 4 textbox
Estou querendo somar 3 textbox e dividir pelo 4º textbox e o resultado aparecer em um label, porem o resultado só aparece quando dou um click no label.

 
Postado : 08/03/2014 4:38 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O ideal seria colocar quais rotinas está utilizando, e tambem você diz que os 4 textbox estão na planilha e o Label provavelmente tambem, então não são controles em um formulário ?

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

 
Postado : 08/03/2014 5:40 pm
(@souzadenilson)
Posts: 96
Estimable Member
Topic starter
 

Private Sub lbl_total_Click()
lbl_total.Caption = Format(Format(CDbl(txt_ValorUnitario.Text) + CDbl(txt_Outros.Text) + CDbl(txt_Frete.Text)))
End Sub

O resultado aparece somente quando clico dentro do label

 
Postado : 09/03/2014 6:03 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Isso porque o evento que você está usando é o evento

[color=#0080FF]Click[/color]

!
Leia:
http://www.functionx.com/vbaexcel/objects/Lesson4.htm

Ainda sim eu não sei o que você pretende :?

Att

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

 
Postado : 09/03/2014 6:10 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Como proceder neste caso. Tenho uma planilha com 4 textbox
Estou querendo somar 3 textbox e dividir pelo 4º textbox e o resultado aparecer em um label, porem o resultado só aparece quando dou um click no label.

Apesar de que na instrução que colocou só ter a soma de 3 textbox e nenhuma divisão, o ideal é você utilizar o Evento EXIT ou AfterUpdate do último controle que acredito seja o 4° textbox.

Private Sub SeuTextbox_AfterUpdate()
lbl_total.Caption = Format(Format(CDbl(txt_ValorUnitario.Text) + CDbl(txt_Outros.Text) + CDbl(txt_Frete.Text)))

ou

Private Sub SeuTextbox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
lbl_total.Caption = Format(Format(CDbl(txt_ValorUnitario.Text) + CDbl(txt_Outros.Text) + CDbl(txt_Frete.Text)))

[]s

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

 
Postado : 09/03/2014 7:53 pm