Çözüldü Textbox2 ye otomatik zaman değeri girmek

k0081

Altın Üye
Katılım
17 Haziran 2008
Mesajlar
1,324
Beğeniler
10
Excel Vers. ve Dili
Excel 2007-2010 Türkçe
#1
Merhaba arkadaşlar

Textbox2 ye = 5 girdiğimde, 00:5:00
Textbox2 ye = 5,22 girdiğimde , 00:5:22

Textbox2 ye = 1,5,30 girdiğimde, 01:05:30

Textbox2 ye = 3,55,14 girdiğimde, 03:55:14

Textbox2 ye = 0,3 girdiğimde, 00:00:03

Textbox2 ye = 0,14 girdiğimde, 00:00:14

Biçiminde olması için nasıl bir kod uygulamalıyım?


Yardımcı arkadaşa şimdiden teşekkür ederim.
 

asri

Altın Üye
Altın Üye
Katılım
24 Nisan 2005
Mesajlar
2,776
Beğeniler
64
Excel Vers. ve Dili
Office 2016 TR 64 Bit
#2
Aşağıdaki şekilde kullanabilirsiniz.

Kod:
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Asri Akdeniz - www.asriakdeniz.com '
List = Split(TextBox2, ",")
  If UBound(List) = 0 Then
     veri = "00:" & Format(TextBox2, "00") & ":00"
  ElseIf UBound(List) = 1 Then
     veri = "00:" & Format(List(0), "00") & ":" & Format(List(1), "00")
  ElseIf UBound(List) = 2 Then
     veri = Format(List(0), "00") & ":" & Format(List(1), "00") & ":" & Format(List(2), "00")
  End If
  TextBox2 = veri
End Sub
 

k0081

Altın Üye
Katılım
17 Haziran 2008
Mesajlar
1,324
Beğeniler
10
Excel Vers. ve Dili
Excel 2007-2010 Türkçe
#3
asri

Hocam çok teşekkür ediyorum, Tamamdır. Elinize sağlık.
 
Üst