otomatik ayıraç (/) makrosu

[h2001]

Arkadaşlar; textboxa dosya numarası yazıyorum. 2007/1255 şeklinde örneğin. Yazarken aradaki ayıraç (/) otomatik gelsin istiyorum.Teşekkürler

 

[emrexcel123]

Private Sub TextBox1_Change()
dgr = Len(TextBox1)
If dgr = 4 Then
TextBox1 = TextBox1 & "/"
End If
End Sub

yukarıdaki kodu deneyin...

 

[h2001]

teşekkürler ermrexcel..
bir sorunum daha var, düzeltme yapmak istediğimde backspace tuşu ayıraca kadar siliyor, tümünü silldirebilir miyim?

 

[emrexcel123]

aşağıdaki kodu dener misiniz >>

Private Sub TextBox1_Change()
dgr = Len(TextBox1)
If dgr = 4 Then
TextBox1 = TextBox1 & "/"
End If
If dgr = 5 Then
TextBox1 = Left(TextBox1, 4)
End If
End Sub

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki gibide deneyebilirsiniz.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox1) = 4 And KeyCode <> 8 Then TextBox1 = TextBox1 & "/"
End Sub

 

[h2001]

son kod ile ayıraç için herhangi bir tuşa basmam gerekiyor. 2007/6555 da iki defa 7 tıklıyorum örneğin..Tşk.

 

[h2001]

teşlekkürler leventm. mesajları aynı anda göndermişiz. Sorun hallloldu.
emrexcel size de teşekkür ederim.

Alternatif olarak aşağıdaki gibide deneyebilirsiniz.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox1) = 4 And KeyCode <> 8 Then TextBox1 = TextBox1 & "/"
End Sub