Canlı TextBox

[neo]

:hey: merhaba sevgili dostlar

Userform üzerinde TextBox var bu TextBox un _._.___ (gün.ay.yıl )Userform aktif olduğunda günün tarihi otomatik gelebilirmi yukarıdaki formata uygun şekilde. elle günü girdiğimde imleç hemen ay kısmına gelecek ve ayı yazacam daha sonra imleç yılı kısmına geçecek yılı yazacam ( . / gibi işaretleri kullanmadan tex aktifken kendi formatlayacak , birde bunu a1 hücresice yazdırmak istiyorum )

sevgilerle...

 

[ALPEN]

Sayın Raider'in çok leziz bir çalışması var aşağıdaki linkte.

http://www.excel.web.tr/viewtopic.php?t=6426

Not : Sonuna kadar okuyunuz.

 

[neo]

:agla: Dostum , Þok ettin beni
bu ne hızlı cevap böyle bu çalışma harika ellerinize sağlık

 

[ALPEN]

Þok ettin beni
bu ne hızlı cevap böyle

Anlaşılan leventm ile tanışmadınız...

Bazen soru sorulmadan önce cevap gönderiyor, o derece yani. :mrgreen:

 

[neo]

:hey: Sizlere Okadar çok hayranımki hepiniz birbirinizden değerli siniz size heralde paha biçemezdim

 

[Haluk]

Anlaşılan leventm ile tanışmadınız...

Bazen soru sorulmadan önce cevap gönderiyor, o derece yani. :mrgreen:

eheheheee......

Yine formundasın lem, tatil yaramış .... :mrgreen:

 

[ALPEN]

Yine formundasın lem, tatil yaramış ....

:mrgreen:

Adaptasyon safhasındayım. sabah kalktığımda hala plaj terliklerini arıyorum.

 

[Haluk]

hehee..

Bu safhanın keyfini çıkar. Adaptasyon bittiğinde, sabahları ayağında ayakkabıyla uyanmış olucan..... :mrgreen:

 

[neo]

:hey: Merhaba tekrar

çalışma mükemle.benim bir kaçtane daha ricam olacak gün ve ay sınırlamasıda eklene bilirmi en fazla gün sayısı 31 mesela kullanıcı 31 den büyük rakamlar giremesi aynı şey ay içinde geçerli olabilirmi

 

[Haluk]

Merhaba;

Tam olarak test etmedim ama, aşağıdakini bir deneyin isterseniz ...

[vb:1:c37d9f8c15]Private Sub TextBox1_Change()
With TextBox1
.SelLength = 1
If .SelText = "." Then
.SelStart = .SelStart + 1
.SelLength = 1
End If
End With
End Sub
'
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error GoTo ErrHand:
TextBox1.ForeColor = vbBlack

If TextBox1.SelStart > 2 Then
If Left(TextBox1, 2) > 31 Then
KeyCode = vbKeySelect
TextBox1.SelStart = 1
TextBox1.SelLength = 1
TextBox1.ForeColor = vbRed
End If
End If

If TextBox1.SelStart > 5 Then
If Mid(TextBox1, 4, 2) > 12 Then
KeyCode = vbKeySelect
TextBox1.SelStart = 4
TextBox1.SelLength = 1
TextBox1.ForeColor = vbRed
End If
End If

With TextBox1
If KeyCode = vbKeyLeft Or KeyCode = vbKeyBack Then
KeyCode = vbKeySelect
.SelStart = .SelStart - 1
.SelLength = 1
ElseIf KeyCode = vbKeyRight Then
KeyCode = vbKeySelect
.SelStart = .SelStart + 1
.SelLength = 1
ElseIf KeyCode = vbKeyDelete Then
KeyCode = vbKeySelect
If .SelText = "." Then
.SelText = "."
Else
.SelText = "#"
End If
.SelStart = .SelStart - 1
.SelLength = 1
ElseIf KeyCode = vbKeyHome Then
KeyCode = vbKeySelect
.SelStart = 0
.SelLength = 1
ElseIf KeyCode = vbKeyEnd Then
KeyCode = vbKeySelect
.SelStart = Len(TextBox1) - 1
.SelLength = 1
End If
End With
Exit Sub
ErrHand:
KeyCode = vbKeySelect
TextBox1.SelStart = 0
TextBox1.SelLength = 1
End Sub
'
Private Sub UserForm_Initialize()
With TextBox1
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "##.##.####"
.SelStart = 0
.SelLength = 1
End With
End Sub
[/vb:1:c37d9f8c15]

 

[neo]

:agla: bu sevinç göz yaşları

Sn:Raider Harikasınız