Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Formatação de TextB...
 
Notifications
Clear all

Formatação de TextBox

 
2024 - VBA & Macros
6 Posts
1 Usuários
0 Reactions
1,280 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde,

Estou criando um formulário no Excel com 3 TextBoxes. No primeiro será informada a quantidade de dias de treinamento. No segundo, a carga horária por dia de treinamento (hh:mm) e no terceiro preciso que seja apresentado o resultado, mas em alguns casos o valor será superior a 24 horas, conforme exemplo abaixo:

Dias de treinamento: 10
Carga horária por dia: 06:00

Carga horária total do treinamento: 60:00 (essa informação deverá ser apresentada no terceiro TextBox).

Aguardo e agradeço,

 
Postado : 18/07/2012 1:00 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!
Não seria isso..

Private Sub CommandButton1_Click()
    TextBox3.Value = CStr(Val(TextBox1.Value) * Val(TextBox2.Value))
End Sub

Att

 
Postado : 18/07/2012 5:35 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite Alexandre,

É necessário formatar o 3o textbox? Lancei, por exemplo, 05:00 no 1o textbox e 08:00 no 2o e o resultado foi apenas 13, sem formatação.

Agradeço pela ajuda.

Abraços.

 
Postado : 18/07/2012 7:36 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja se atende

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dias = Val(TextBox1.Text)
Hsdia = TimeValue(TextBox2.Text)
tempo = CDec(Dias * Hsdia)
Hora = Int(tempo * 24) ' calculada qtas horas
Minuto = Int((tempo * 24 - Int(tempo * 24)) * 60) 'calculado qtde minutos
Segundo = ((tempo * 24 - Int(tempo * 24)) * 60 - Int((tempo * 24 - Int(tempo * 24)) * 60)) * 60
If Segundo > 59 Then
    If Minuto + 1 > 59 Then
    Hora = Hora + 1
    Minuto = 0
    Segundo = 0
    End If
End If
TextBox3 = Format(Hora, "00") & ":" & Format(Minuto, "00") & ":" & Format(Segundo, "00") 'Format(h3 * 24, "#0.0")
End Sub
 
Postado : 19/07/2012 5:30 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Outra maneira, seria..

Private Sub CommandButton1_Click()
TextBox3.Value = WorksheetFunction.Text(Val(TextBox1.Value) * TimeValue(TextBox2.Value), "[hh]:mm")
End Sub

faça os teste e marque seu tópico como resolvido!!!

Att

 
Postado : 19/07/2012 5:40 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado pela ajuda.

Abraços.

 
Postado : 19/07/2012 6:42 am
Forum Jump:
  Tópico Anterior
Próximo Tópico