تقييد إدخال طريقة البيانات

[حسين إبن محمد]

السلام عليكم اخواني واعزائي الكرام

اريد تقييد عمود كامل في الإكسل بالتقييد التالي

3 حروف ثم علامة - ثم 3 أرقام ثم علامة - ثم 4 ارقام

مثال

AAA-000-0000

 

[lionheart]

Select column A for example then from Data tab select Data Validation

 

Select Custom and paste the formula

 

This is the formula you can use

=AND(ISNUMBER(VALUE(MID(A1,5,3))), ISNUMBER(VALUE(MID(A1,9,4))), ISERROR(VALUE(LEFT(A1,3))), MID(A1,4,1)="-", MID(A1,8,1)="-", LEN(A1)=12)

 

 

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rg As Range, cell As Range
    Set rg = Intersect(Target, Columns("A"))
    If rg Is Nothing Then Exit Sub
    Application.EnableEvents = False
    On Error GoTo CleanUp
    For Each cell In rg
        If Not IsEmpty(cell.Value) Then
            If Not cell.Value Like "???-###-####" Or _
               IsNumeric(Left(cell.Value, 3)) Or _
               Not IsNumeric(Mid(cell.Value, 5, 3)) Or _
               Not IsNumeric(Mid(cell.Value, 9, 4)) Then
                MsgBox "الرجاء إدخال القيمة بالتنسيق الصحيح: 3 حروف-3 ارقام-4 ارقام", vbExclamation
                cell.ClearContents
            End If
        End If
    Next cell
    
CleanUp:
    Application.EnableEvents = True
End Sub

aaa-123-4345.xlsb