ثلاث طرق للتحقق من صحة الخلايا لقبول عناوين IP فقط في Excel

أثناء استخدام Excel، هل تعرف كيفية إعداد عمود أو نطاق من الخلايا لقبول تنسيق عنوان IP فقط (xxx.xxx.xxx.xxx)؟ يقدم لك هذا المقال عدة طرق للتعامل مع هذه المسألة.

التحقق من صحة الخلايا لقبول عناوين IP فقط باستخدام وظيفة التحقق من صحة البيانات

يمكن لوظيفة التحقق من صحة البيانات أن تساعدك على تقييد الإدخالات الصحيحة في الخلايا المحددة بحيث يتم قبول عناوين IP فقط في Excel. يرجى اتباع الخطوات التالية:

1. حدد الخلايا التي ستسمح فقط بإدخال تنسيق عنوان IP، ثم انقر فوق البيانات > التحقق من صحة البيانات. انظر إلى لقطة الشاشة:

2. في مربع الحوار التحقق من صحة البيانات، حدد 'مخصص' في قائمة الخيارات المنسدلة 'السماح'، ثم انسخ الصيغة أدناه إلى مربع الصيغة، وبعد ذلك انقر فوق زر 'موافق'.

=AND((LEN(A2)-LEN(SUBSTITUTE(A2,".","")))=3,ISNUMBER(SUBSTITUTE(A2,".","")+0))

ملاحظة: في الصيغة، A2 هي أول خلية في نطاق الخلايا المحدد. يرجى تغييرها حسب الحاجة.

من الآن فصاعدًا، يمكنك فقط إدخال محتوى بتنسيق عنوان IP في هذه الخلايا المحددة.

إذا تم اكتشاف محتوى بتنسيق غير متطابق، سيظهر مربع تحذير كما هو موضح في لقطة الشاشة أدناه.

التحقق من صحة الخلايا لقبول عناوين IP فقط باستخدام كود VBA

يمكنك أيضًا تطبيق الكود التالي لـ VBA للتحقق من صحة الخلايا لقبول تنسيق عنوان IP فقط في Excel. يرجى اتباع الخطوات التالية:

1. افتح ورقة العمل التي ستحقق فيها صحة الخلايا، انقر بزر الماوس الأيمن على تبويب الورقة وانقر فوق 'عرض الكود' من قائمة السياق.

2. في نافذة Microsoft Visual Basic for Applications التي تفتح، انسخ الكود التالي لـ VBA إليها.

كود VBA: التحقق من صحة الخلايا لقبول عناوين IP فقط في Excel

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by ExtendOffice 20180809
Dim xArrIp() As String
Dim xIntIP1, xIntIP2, xIntIP3, xIntIP4 As Integer
If Intersect(Target, Range("A2:A10")) Is Nothing Then
    Exit Sub
Else
    If Target = "" Then
        Exit Sub
    End If
    xArrIp = Split(Target.Text, ".")
    If UBound(xArrIp) <> 3 Then
        GoTo EIP
    Else
    xIntIP1 = CInt(xArrIp(0))
    xIntIP2 = CInt(xArrIp(1))
    xIntIP3 = CInt(xArrIp(2))
    xIntIP4 = CInt(xArrIp(3))
    If (xIntIP1 < 1) Or (xIntIP1 > 255) _
    Or (xIntIP2 < 1) Or (xIntIP2 > 255) _
    Or (xIntIP3 < 1) Or (xIntIP3 > 255) _
    Or (xIntIP4 < 1) Or (xIntIP4 > 255) Then
    GoTo EIP
     End If
    End If
End If
Exit Sub
EIP:
    MsgBox "Please enter correct IP address"
    Target = ""
End Sub

ملاحظة: في الكود، A1:A10 هو نطاق الخلايا الذي سيتم التحقق فيه من نوع الإدخال. يرجى تغيير النطاق بناءً على احتياجاتك.

3. اضغط على مفتاحي Alt + Q لإغلاق نافذة Microsoft Visual Basic for Applications.

من الآن فصاعدًا، يمكنك فقط إدخال محتوى بتنسيق عنوان IP في هذه الخلايا المحددة.

إذا تم إدخال محتوى بتنسيق غير متطابق، سيظهر مربع تحذير كما هو موضح في لقطة الشاشة أدناه.

بسهولة، تحقق من صحة الخلايا لقبول عناوين IP فقط باستخدام ميزة رائعة

1. حدد نطاق الخلايا التي ترغب في السماح بإدخال عناوين IP فقط. انقر فوق Kutools > تحديد حد للإدخال > التحقق من صحة عنوان IP. انظر إلى لقطة الشاشة:

2. بعد ذلك، انقر فوق موافق في مربع الحوار المنبثق الخاص بـ Kutools لـ Excel.

من الآن فصاعدًا، يمكن إدخال بيانات بتنسيق عنوان IP فقط في النطاق المحدد من الخلايا.