كيفية استخراج اسم المجال من URL في Excel؟
إذا كنت تتعامل دائمًا مع الكثير من عناوين URL في المصنف الخاص بك ، فقد ترغب أحيانًا في استخراج اسم المجال فقط من كل صفحة ويب. في Excel ، كيف يمكنك الحصول على أسماء النطاقات بسرعة من عناوين URL؟
استخراج اسم المجال من URL مع الصيغة
استخراج اسم المجال من URL مع وظيفة محددة من قبل المستخدم
استخراج اسم المجال من URL مع الصيغة
يمكن أن تساعدك الصيغة الطويلة التالية في إرجاع اسم المجال من صفحة الويب حسب حاجتك. الرجاء القيام بما يلي:
1. في خلية فارغة بجوار خلية صفحة الويب الخاصة بك ، أدخل الصيغة التالية ، في هذا المثال ، سأكتب الصيغة في الخلية B2: =IF(ISNUMBER(FIND("www.",A2)),MID(A2,FIND("www.",A2)+4,IF(ISNUMBER(FIND("/",A2,9)),FIND("/",A2,9),LEN(A2)+1)-FIND("www.",A2)-4),MID(A2,FIND("//",A2)+2,IF(ISNUMBER(FIND("/",A2,9)),FIND("/",A2,9),LEN(A2)+1)-FIND("//",A2)-2)).
ملاحظات: في الصيغة أعلاه ، A2 يشير إلى الخلية التي تحتوي على صفحة الويب التي تريد الحصول على اسم المجال منها ، ويمكنك تغييرها حسب حاجتك.
2. ثم اضغط أدخل المفتاح ، وحدد الخلية B2 ، واسحب مقبض التعبئة لأسفل إلى النطاق الذي تريد تطبيق هذه الصيغة ، وتم استخراج جميع أسماء المجالات من كل عنوان URL. انظر لقطة الشاشة:
استخراج اسم المجال من URL مع وظيفة محددة من قبل المستخدم
إذا كنت مهتمًا برمز VBA ، فيمكنك إنشاء ملف وظيفة تعريف المستخدم لاستخراج اسم المجال من عناوين المواقع.
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: استخراج اسم المجال من URL
Function ExtractDomain(ByVal URL As String) As String
'Update 20140904
If InStr(URL, "//") Then
URL = Mid(URL, InStr(URL, "//") + 2)
End If
If Left(URL, 4) Like "[Ww][Ww][Ww0-9]." Then
URL = Mid(URL, 5)
End If
ExtractDomain = Split(URL, "/")(0)
End Function
3. ثم احفظ الرمز وأغلقه ، ثم عد إلى ورقة العمل ، وأدخل هذه الصيغة = Extractdomain (A2) في خلية فارغة بجانب صفحة الويب ، انظر لقطة الشاشة:
4. ثم اضغط أدخل مفتاح ، حدد الخلية B2 ، واسحب مقبض التعبئة لأسفل إلى الخلايا التي تريد أن تحتوي على هذه الصيغة ، وسيتم استخراج جميع أسماء المجالات من كل خلية صفحة ويب.
مقالات ذات صلة:
كيفية استخراج المجالات من عناوين بريد إلكتروني متعددة في Excel؟
كيفية استخراج عنوان البريد الإلكتروني بسرعة من سلسلة نصية؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!