Tarih ve telefon maskesi

[tuncerglr]

Ekteki örnekte textboxlarda kullanılabilecek tarih ve telefon maskesi var. Forumda bununla ilgili konu göremedim. Faydalı olabilir düşüncesiyle paylaştım.
İyi çalışmalar.

 

[mustafa1205]

Elinize Sağlık teşekkürler...

 

[Asri]

Güzel çalışma, module1 aşağıdaki şekilde de düzenlenebilir.

Public Function Format_Telefon(Kutu As MSForms.TextBox)
    Dim Nmr As String
    Dim list() As String
    
    Nmr = Kutu
        
    On Error Resume Next
    Nmr = Replace(Replace(Replace(Replace(Replace(Nmr, "(", ""), ")", ""), "_", ""), ".", ""), " ", "")
    list = Split(StrConv(Nmr, vbUnicode), Chr$(0))
    ReDim Preserve list(UBound(list) - 1)
    
    Nmr = "(___) ___ __ __"
    Nmr = "(" & list(0) & "__)" & " ___ __ __"
    Nmr = "(" & list(0) & list(1) & "_)" & " ___ __ __"
    Nmr = "(" & list(0) & list(1) & list(2) & ")" & " ___ __ __"
    Nmr = "(" & list(0) & list(1) & list(2) & ") " & list(3) & "__ __ __"
    Nmr = "(" & list(0) & list(1) & list(2) & ") " & list(3) & list(4) & "_ __ __"
    Nmr = "(" & list(0) & list(1) & list(2) & ") " & list(3) & list(4) & list(5) & " __ __"
    Nmr = "(" & list(0) & list(1) & list(2) & ") " & list(3) & list(4) & list(5) & " " & list(6) & "_ __"
    Nmr = "(" & list(0) & list(1) & list(2) & ") " & list(3) & list(4) & list(5) & " " & list(6) & list(7) & " __"
    Nmr = "(" & list(0) & list(1) & list(2) & ") " & list(3) & list(4) & list(5) & " " & list(6) & list(7) & " " & list(8) & "_"
    Nmr = "(" & list(0) & list(1) & list(2) & ") " & list(3) & list(4) & list(5) & " " & list(6) & list(7) & " " & list(8) & list(9)
    
    Kutu = Nmr
    For i = 1 To Len(Kutu)
      If IsNumeric(Mid(Kutu, i, 1)) = True Then
      Kutu.SelStart = i
      End If
    Next
    On Error GoTo 0
    
End Function

Public Function Format_Tarih(Kutu As MSForms.TextBox)
    Dim list() As String
    Dim Nmr As String
    
    Nmr = Kutu
        
    On Error Resume Next
    Nmr = Replace(Replace(Nmr, "-", ""), ".", "")
    list = Split(StrConv(Nmr, vbUnicode), Chr$(0))
    ReDim Preserve list(UBound(list) - 1)
    
    Nmr = "--.--.----"
    Nmr = list(0) & "-.--.----"
    Nmr = list(0) & list(1) & ".--.----"
    Nmr = list(0) & list(1) & "." & list(2) & "--.----"
    Nmr = list(0) & list(1) & "." & list(2) & list(3) & "-.----"
    Nmr = list(0) & list(1) & "." & list(2) & list(3) & list(4) & ".----"
    Nmr = list(0) & list(1) & "." & list(2) & list(3) & list(4) & "." & list(5) & "---"
    Nmr = list(0) & list(1) & "." & list(2) & list(3) & list(4) & "." & list(5) & list(6) & "--"
    Nmr = list(0) & list(1) & "." & list(2) & list(3) & list(4) & "." & list(5) & list(6) & list(7) & "-"
    Nmr = list(0) & list(1) & "." & list(2) & list(3) & list(4) & "." & list(5) & list(6) & list(7) & list(8)
        
    Kutu = Nmr
    For i = 1 To Len(Kutu)
      If IsNumeric(Mid(Kutu, i, 1)) = True Then
      Kutu.SelStart = i
      End If
    Next
    On Error GoTo 0
End Function

 

[Korhan Ayhan]

Paylaşımınız için teşekkürler.

Yıllar önce @Haluk beyin benzer bir paylaşımı vardı. Hatırlatmak amacıyla linki paylaşıyorum.

TEXTBOX`UN "##.##.####" GÖRÜNMESİ

TEXTBOX`UN "##.##.####" GÃ?RÜNMESÃ Arkadaşlar, merak ettiğim bir konu var. Textboxlara format atayabiliyoruz ve TextBox`un UserForm açıldığında ##.##.#### şeklinde tarih formatına uygun olarak görünmesini de sağlıyabiliyoruz. Sorum şöyle, ##.##.#### bu format üzerinde rakam girdikçe altdaki...

www.excel.web.tr