AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Vba Da Texbox Sadece Saat Değerleri

1 2
22/08/2020, 22:02

merttr07

Vba da sadece texbox saat değeri girilmesini istiyorum ve bunu sınırlamak istiyorum. Yanlış bir giriş olduğunda uyarı almasını istiyorum nasıl sağlaya bilirim.
22/08/2020, 22:10

merttr07

Dk içinde ayrı yapmak istiyorum sadece dk girilsin.
23/08/2020, 00:48

berduş

saat kutusunun adı: TxtSaat
dakika kutusunun adı:TxtDk
Private Sub TxtDk_Change()

If Len(TxtDk.Text) = 0 Then Exit Sub

If Left(Me.TxtDk.Text, 1) > 5 Then

    TxtDk.SelStart = 0

    TxtDk.SelLength = 1

End If

If Me.TxtDk.Text > 59 Then

    TxtDk.SelStart = 0

    TxtDk.SelLength = 1

End If

End Sub



Private Sub TxtDk_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

On Error Resume Next



If Not IsNumeric(Chr(KeyAscii)) Or _

                (Len(Me.ActiveControl.Text) >= 2 And _

                ActiveControl.SelLength = 0) Then KeyAscii = 0



End Sub



Private Sub TxtSaat_Change()

If Len(TxtSaat.Text) = 0 Then Exit Sub

If Left(Me.TxtSaat.Text, 1) > 2 Then

    TxtSaat.SelStart = 0

    TxtSaat.SelLength = 1

End If

If Me.TxtSaat.Text > 23 And Me.TxtSaat.Text < 30 Then

    TxtSaat.SelStart = 1

    TxtSaat.SelLength = 1

ElseIf Me.TxtSaat.Text > 29 Then

    TxtSaat.SelStart = 0

    TxtSaat.SelLength = 2

End If



End Sub



Private Sub TxtSaat_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

On Error Resume Next



If Not IsNumeric(Chr(KeyAscii)) Or _

                (Len(Me.ActiveControl.Text) >= 2 And _

                ActiveControl.SelLength = 0) Then KeyAscii = 0



End Sub
çıkıldıgında olayı yapılmamıştır
23/08/2020, 00:49

feraz

Örnek dosya ekler misiniz?
Normalde like ve format ile yapılabilir dosyayı görmek gerek.
23/08/2020, 11:12

merttr07

(23/08/2020, 00:48)berduş yazdı: saat kutusunun adı: TxtSaat
dakika kutusunun adı:TxtDk
Private Sub TxtDk_Change()

If Len(TxtDk.Text) = 0 Then Exit Sub

If Left(Me.TxtDk.Text, 1) > 5 Then

    TxtDk.SelStart = 0

    TxtDk.SelLength = 1

End If

If Me.TxtDk.Text > 59 Then

    TxtDk.SelStart = 0

    TxtDk.SelLength = 1

End If

End Sub



Private Sub TxtDk_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

On Error Resume Next



If Not IsNumeric(Chr(KeyAscii)) Or _

                (Len(Me.ActiveControl.Text) >= 2 And _

                ActiveControl.SelLength = 0) Then KeyAscii = 0



End Sub



Private Sub TxtSaat_Change()

If Len(TxtSaat.Text) = 0 Then Exit Sub

If Left(Me.TxtSaat.Text, 1) > 2 Then

    TxtSaat.SelStart = 0

    TxtSaat.SelLength = 1

End If

If Me.TxtSaat.Text > 23 And Me.TxtSaat.Text < 30 Then

    TxtSaat.SelStart = 1

    TxtSaat.SelLength = 1

ElseIf Me.TxtSaat.Text > 29 Then

    TxtSaat.SelStart = 0

    TxtSaat.SelLength = 2

End If



End Sub



Private Sub TxtSaat_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

On Error Resume Next



If Not IsNumeric(Chr(KeyAscii)) Or _

                (Len(Me.ActiveControl.Text) >= 2 And _

                ActiveControl.SelLength = 0) Then KeyAscii = 0



End Sub
çıkıldıgında olayı yapılmamıştır

Ne Yazıkki Hata Alıyorum Saat Bilgisi Girilecek Yer Tek bir Tex Boz değil.
23/08/2020, 11:26

berduş

Ornek çalışmanız yok söylediğiniz tek şey de metin kutusuna sadece saat girileceği ve aynı şeyin dakika alanı için de geçerli olduğu bu bilgiler ışığında denemelerimde her hangi bir soruna raslamadım. Sizde nasıl bir sorun cıktı?
Uyari ekleme kısmi metin kutularından çıkıldığında olayına eklenebilir. Çıkıldığında olayına saat için eğer 23ten büyükse uyarı verip metin kutusuna dönme kodu eklenebilir.
1 2