Tarih Değeri Yazarken Otomatik Ayraç Kullanma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]Araç çubuklarından Insert -> UserForm yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan UserForm yazısına çift tıklayın.
Kodlardaki ayraç karakteri olarak slash (/) işareti kullanılmıştır. Siz kendinize göre değiştirebilirsiniz.
Faydalanmanız temennisiyle.
[*]Araç çubuklarından Insert -> UserForm yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan UserForm yazısına çift tıklayın.
Hazır Kod
VBA:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyBack Then
If Len(Me.TextBox1) = 4 Then
Me.TextBox1 = Left(Me.TextBox1, 2)
KeyCode = False
ElseIf Len(Me.TextBox1) = 7 Then
Me.TextBox1 = Left(Me.TextBox1, 5)
KeyCode = False
End If
Else
If Len(Me.TextBox1) = 2 Or Len(Me.TextBox1) = 5 Then
Me.TextBox1 = Me.TextBox1 & "/"
End If
End If
End SubAçıklama
UserForm üzerine eklediğiniz bir TextBox nesnesine tarih yazarken, gün değerini yazdıktan sonra kullanmak istediğiniz ayraçı elle yazmanız gerekir. Çok küçük olan bu ayrıntı benim gibiler için takıntı yaratabilecek durumda olabilir. Bu tür küçük detaylara önem verenler, üstteki hazır kodları kullanarak tarih değerini yazarken, gün ve ay bilgisinden sonra gelen ayraç işaretinin otomatik olarak gelmesini sağlayabilirsiniz.Kodlardaki ayraç karakteri olarak slash (/) işareti kullanılmıştır. Siz kendinize göre değiştirebilirsiniz.
Faydalanmanız temennisiyle.
