كيف يمكن فرز عناوين IP بسرعة من الأدنى إلى الأعلى في Excel؟
بشكل عام، نستخدم دالة الفرز لترتيب النصوص في Excel. لكن عند وجود عناوين IP تحتاج إلى فرز، قد يُنتج استخدام دالة الفرز مباشرةً ترتيبًا غير صحيح، كما يظهر في لقطة الشاشة أدناه. ولحسن الحظ، لدي الآن بعض الطرق السريعة والدقيقة لفرز عناوين IP في Excel.
الفرز الخاطئ باستخدام دالة الفرز
الفرز الصحيح
فرز عنوان IP باستخدام صيغة
استخدم صيغةً لإدخال عنوان IP، ثم قم بفرزه.
1. حدد خليةً مجاورةً لعنوان IP، ثم أدخل هذه الصيغة:
=TEXT(LEFT(A1,FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND( ".",A1,1)+1,FIND(".",A1,FIND(".",A1,1)+1)-FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND(".",A1,FIND(".",A1,1)+1)+1,FIND(".",A1, FIND(".",A1,FIND(".",A1,1)+1)+1)-FIND(".",A1,FIND(".",A1,1)+1)-1), "000") & "." & TEXT(RIGHT(A1,LEN(A1)-FIND(".",A1,FIND(".",A1,FIND( ".",A1,1)+1)+1)),"000")
اضغطEnter، ثم اسحب مقبض التعبئة عبر الخلايا لتطبيق هذه الصيغة.
2. انقل نتائج الصيغة والصقها كقيم في العمود التالي، كما هو موضح في لقطة الشاشة:
 |
 |
3. مع بقاء القيم المُلصَقة محددة، انقر فوقبيانات > تصاعدي.
4. في مربع الحوارتحذير الفرز، احتفظ بخيارتوسيع التحديدمحددًا.
5. انقر فوقفرز. الآن، تم فرز عناوين IP من الأدنى إلى الأعلى.
يمكنك حذف أعمدة المساعدة بسهولة.
فرز عنوان IP باستخدام VBA
إليك كود VBA الذي يمكنه مساعدتك أيضًا.1. اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة نمطية (Module)، ثم انسخ الكود والصقه في النافذة البرمجية الفارغة.
VBA: تعبئة عنوان IP
Sub FormatIP()
'UpdatbyExtendoffice20171215
Dim xReg As New RegExp
Dim xMatches As MatchCollection
Dim xMatch As Match
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim xArr() As String
On Error Resume Next
Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
With xReg
.Global = True
.Pattern = "\d{1,3}\.+\d{1,3}\.+\d{1,3}\.+\d{1,3}"
For Each xCell In xRg
Set xMatches = .Execute(xCell.Value)
If xMatches.Count = 0 Then GoTo xBreak
For Each xMatch In xMatches
xArr = Split(xMatch, ".")
For I = 0 To UBound(xArr)
xArr(I) = Right("000" & xArr(I), 3)
If I <> UBound(xArr) Then
xArr(I) = xArr(I) & "."
End If
Next
Next
xCell.Value = Join(xArr, "")
xBreak:
Next
End With
End Sub
3. بعد ذلك، انقر فوقأدوات > مرجع، ثم حدد خانة الاختيار بجانبMicrosoft VBScript Regular Expressions 5.5 في مربع الحوار الظاهر.
 |
 |
4. انقر فوقموافق، ثم اضغط على مفتاحF5، وسيظهر مربع حوار لتذكيرك بتحديد نطاق للعمل عليه.
5. انقر فوقموافق. الآن، تم تعبئة عناوين IP بالأصفار.
6. حدد عناوين IP، ثم انقر فوقبيانات > تصاعديلفرزها.
فرز عنوان IP باستخدام تحويل النص إلى أعمدة
في الواقع، يمكن لميزة «تحويل النص إلى أعمدة» أن تساعدك أيضًا في Excel.
1. حدد الخلايا التي تستخدمها، ثم انقر فوقبيانات > تحويل النص إلى أعمدة. راجع لقطة الشاشة:
2. في مربع الحوارمعالج تحويل النص إلى أعمدة، قم بما يلي:
حددمحددًا، ثم انقر فوقالتالي؛
حددأخرىواكتب.في مربع النص، ثم انقر فوقالتالي؛
حدد خليةً بجانب عنوان IP لوضع النتيجة فيها، ثم انقر فوقإنهاء.
 |
 |
 |
3. حدد جميع الخلايا التي تحتوي على عناوين IP، ثم انتقل إلىبيانات > فرز.
4. في مربع حوارفرز، انقر فوقإضافة الشروطلفرز البيانات من العمود B إلى العمود E (وهو تقسيم الخلايا). راجع لقطة الشاشة:
5. انقر فوقموافق. الآن تم فرز الأعمدة.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل