[Yardım]  Userformda TextBoxa veri girerken otomatik nokta atması hk.

Kulanıcı arayüz formu

Userformda TextBoxa veri girerken otomatik nokta atması hk.

İleti#1)  balanar » 03 Ağu 2021 10:25

Merhaba,

TextBox'a tarih yazacağım fakat istediğim şu şekilde;

ben nokta koymadan kendisi yazdıkça araya nokta koysun istiyorum atıyorum 03 08 2021 yazdım ben klavye tuşlarında kendisi textboxa 03.08.2021 olarak girmeli bunu yapmanın formulu var mı
Kullanıcı avatarı
balanar
Yeni Başlamış
 
Kayıt: 12 Haz 2021 21:10
Meslek: mühendiz
Yaş: 34
İleti: 35
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Userformda TextBoxa veri girerken otomatik nokta atma

İleti#2)  feraz » 03 Ağu 2021 11:21

Kod: Tümünü seç
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    With Me.TextBox1
           Select Case KeyAscii
            Case 48 To 57 ', 46 '46=nokta
                .MaxLength = 10
                If .SelStart = 2 Then .SelText = "."
                If .SelStart = 5 Then .SelText = "."
            Case Else
                KeyAscii = 0
        End Select
    End With
End Sub
Kullanıcı avatarı
feraz
İstenmeyen Üye
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 43
İleti: 6834
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Userformda TextBoxa veri girerken otomatik nokta atma

İleti#3)  cpl18 » 09 Ağu 2021 01:00

Private Sub TextBox1_Change()
TextBox1.MaxLength = 14
Select Case TextBox1.SelStart
Case Is = 2, 5
TextBox1.SelText = "."
End Select
End Sub
---------------
TextBox1.SelText = "." buraya nokta yerine / koyarsan / olarak da atar.
Tercih senin.
Kullanıcı avatarı
cpl18
Yeni Başlamış
 
Adı Soyadı:Ali DEMİR
Kayıt: 13 Nis 2011 12:47
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ÇANKIRI

Cevap: Cevap: Userformda TextBoxa veri girerken otomatik nok

İleti#4)  gkhnozn0641 » 18 Eyl 2022 18:43

cpl18 yazdı:Private Sub TextBox1_Change()
TextBox1.MaxLength = 14
Select Case TextBox1.SelStart
Case Is = 2, 5
TextBox1.SelText = "."
End Select
End Sub
---------------
TextBox1.SelText = "." buraya nokta yerine / koyarsan / olarak da atar.
Tercih senin.


Bu kodu kullandım çok iyi ama diyelim ki tarihi yanlış yazdim sil deyince son noktaya kadar siliyor ve ondan sonra silme işlemi gerçekleşmiyor. Bu durumda ne yapmak gerekiyor acaba?
Kullanıcı avatarı
gkhnozn0641
Yeni Başlamış
 
Kayıt: 03 Eyl 2022 00:24
Meslek: Mühendis
Yaş: 28
İleti: 42
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Van

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe