textbox plaka formatı

[anthraxx02]

merhabalar;

TextBoxplaka isimli textbox ım var bu textbox a araç plakaları girmekteyiz.

isteğim şu şekilde Türkiye 10 basamaklı araç plakası veriyorlar örnek olarak (01 abc 1234) gibi şimdi istediğim format biz textboxa bitişik küçük harf girsek sonuç olarak büyük harf ve gruplar ayrılmış şekilde kendisi düzenlemesesini istiyorum. Şimdiden bana yardımcı olduğunuz için teşekkür ederim

 

[muratboz06]

Linkteki çalışmayı inceleyiniz.

PLAKA.xlsm dosyasını indir - download

PLAKA.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

 

[Furkan TARAKÇI]

Merhaba,
Bir textbox ım mevcut buna sadece sayı girilecek şekilde ayarladım fakat sayı değeri girdiğimde örneğin 15 girdiğimde "RFS-Tİ-00-0015" olsun. Birşeyler yapmaya çalıştım fakat olmadı yardımcı olabilirseniz sevinirim.

Private Sub RFITBox1_Change()

deneme = RFITBox1.Value
RFITBox1.Value = Format(deneme, "RFS-Tİ-00-000#")

End Sub

 

[Korhan Ayhan]

Kodu nesnenin Change olayına değilde Exit olayına yazmalısınız.

Örnek;

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = "RFS-Tİ-00-" & Format(TextBox1, "0000")
End Sub

 

[Furkan TARAKÇI]

korhan bey exit ile girince de boxları tab ile tekrar dolaşınca üzerine ekleyip duruyor. Kurtulmak için

Private Sub RFITBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
say = RFITBox1.Value
If Len(say) > 14 Then
RFITBox1.Value = ""
End If
RFITBox1 = "RFS-Tİ-00-" & Format(RFITBox1, "0000")

End Sub

yazdım fakat saçma oldu.

 

[Korhan Ayhan]

Şöyle deneyiniz.

Private Sub RFITBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If Left(RFITBox1.Value, 3) <> "RFS" Then
      RFITBox1 = "RFS-Tİ-00-" & Format(RFITBox1, "0000")
   End If
End Sub

 

[Furkan TARAKÇI]

Şöyle deneyiniz.

Private Sub RFITBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If Left(RFITBox1.Value, 3) <> "RFS" Then
      RFITBox1 = "RFS-Tİ-00-" & Format(RFITBox1, "0000")
   End If
End Sub

Harikasınız. Elinize sağlık.

 

[ASMET67]

Linkteki çalışmayı inceleyiniz.

PLAKA.xlsm dosyasını indir - download

PLAKA.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

dosya linki ölmüş elinde olan varmı

 

[sirkülasyon]

Private Sub TextBox1_Change()
plaka = TextBox1.Value
plaka = UCase(plaka)
plaka = Replace(plaka, " ", "")
With CreateObject("VBScript.RegExp")
.Pattern = "(.*\d)(?! )(\D.*)"
plaka = .Replace(plaka, "$1 $2")
.Pattern = "(.*\D)(?! )(\d.*)"
plaka = .Replace(plaka, "$1 $2")
TextBox1.Value = plaka
Exit Sub
End With
End Sub