Sayfadaki TextBox için Tarih formatı?

[baykan_m]

Merhaba Arkadaşlar,

Hem google da hem de excel.web.tr üzerinde bir çok arama yaptım ancak bir türlü sonucu bulamadım. Ben çalışma sayfası üzerinde textbox oluşturdum. Bu textbox a giriş yaparken 01 yazdığımda nokta 05 yazdığımda ikinci nokta koysun ve formatı "01.05.2020" şeklinde olsun istiyorum. Aradığım sonuçlar genellikle userform üzerinde örnek vermiş ancak özellikle belirtmek istiyorum benim textbox userform üzerinde değil çalışma sayfası içerisindedir. Yardımcı olabilirseniz çok çok sevinirim.

İyi çalışmalar

 

[cems]

Bir örnek dosya daha çabuk çözüm getirebilirdi , yeniden ve ne nerde belirsiz bir dosya yaratmak için zaman harcanmadan...

 

[baykan_m]

Bir örnek dosya daha çabuk çözüm getirebilirdi , yeniden ve ne nerde belirsiz bir dosya yaratmak için zaman harcanmadan...

Bu soru için bir örnek dosyaya ihtiyaç olacağını düşünmemiştim... Yinede bir örnek oluşturdum. Herhangi bir textbox da tarih formatı yazmasını istiyorum. Tek önemli detay textbox userform üzerinde değil çalışma sayfası içerisindedir.

 

[Seyit Tiken]

İstediğiniz tarih formatının oluşması için TextBox'a bir sefer tıklamanız lazım.

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Len(TextBox1) > 8 Or Len(TextBox1) < 8 Then
TextBox1.Value = ""
Else
TextBox1 = Mid(TextBox1, 1, 2) & "." & _
Mid(TextBox1, 3, 2) & "." & _
Mid(TextBox1, 5, 4)
End If
End Sub

TextBox'u temizlemek için de bir sefer tıklamanız yeterli.

Bu kod ta yıl girildikten sonra otomatik olarak noktayı koyar.

Private Sub TextBox1_Change()
If Len(Me.TextBox1.Value) = 8 Then
With Me.TextBox1
gun = Left(.Value, 2)
ay = Mid(.Value, 3, 2)
sene = Mid(.Value, 5, 4)
.Value = gun & "." & ay & "." & sene
End With
End If
End Sub

 

[baykan_m]

İstediğiniz tarih formatının oluşması için TextBox'a bir sefer tıklamanız lazım.

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Len(TextBox1) > 8 Or Len(TextBox1) < 8 Then
TextBox1.Value = ""
Else
TextBox1 = Mid(TextBox1, 1, 2) & "." & _
Mid(TextBox1, 3, 2) & "." & _
Mid(TextBox1, 5, 4)
End If
End Sub

TextBox'u temizlemek için de bir sefer tıklamanız yeterli.

Çok teşekkür ederim istediğim gibi olmuş. Ellerinize sağlık

 

[Seyit Tiken]

İkinci kodu da deneyiniz.