Note: The other languages of the website are Google-translated. Back to English

كيفية استخراج العناوين الفعلية من الارتباطات التشعبية في Excel؟

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


السهم الأزرق الحق فقاعة استخراج العناوين الفعلية من الارتباطات التشعبية باستخدام ميزة تحرير الارتباط التشعبي

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

1. حدد الخلية التي تحتوي على ارتباط تشعبي وانقر بزر الماوس الأيمن ، من قائمة السياق ، اختر تحرير الارتباط التشعبي، انظر لقطة الشاشة:

2. و تحرير الارتباط التشعبي سيظهر مربع الحوار ، حدد ونسخ (CTRL + C) عنوان URL بالكامل من ملف العنوان مجال مربع الحوار.

3. ثم أغلق مربع الحوار والصق العنوان الفعلي في أي خلية تريدها.

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


السهم الأزرق الحق فقاعة استخراج العناوين الفعلية من الارتباطات التشعبية برمز VBA

بالنسبة للكثير من الارتباطات التشعبية ، ستكون الطريقة المذكورة أعلاه مملة وتستغرق وقتًا طويلاً ، لذلك يمكن أن تساعدك التعليمات البرمجية VBA التالية في استخراج عناوين متعددة بسرعة من الارتباطات التشعبية مرة واحدة.

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل الكود ، وينبثق مربع حوار لك لتحديد الارتباطات التشعبية التي تريد استخراج العناوين الحقيقية ، انظر لقطة الشاشة:

4. ثم اضغط OK، وتم تحويل محتويات الخلية المحددة إلى عناوين الارتباط التشعبي الحقيقية في النطاق الأصلي. انظر لقطات الشاشة:


السهم الأزرق الحق فقاعة استخراج العناوين الفعلية من الارتباطات التشعبية باستخدام وظيفة تعريف المستخدم

يمكن أيضًا للوظيفة المعرفة من قِبل المستخدم التالية استخراج URl الفعلي من الارتباطات التشعبية.

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. احفظ الكود وأغلق النافذة ، وحدد خلية فارغة لكتابة هذه الصيغة = GetURL (A2) (A2 هي الخلية التي يوجد بها الارتباط التشعبي) ، ثم اضغط على أدخل زر. يمكنك مشاهدة عنوان الارتباط التشعبي الحقيقي مستخرج.


السهم الأزرق الحق فقاعة استخرج العناوين الفعلية من الارتباطات التشعبية باستخدام Kutools for Excel بسرعة وسهولة

هذه أداة يدوية تسمى كوتولس ل إكسيل، بما لديها تحويل الارتباطات التشعبية خاصية ، يمكنك التعامل بسرعة مع العمليات التالية:

  • استخراج العناوين الفعلية من الارتباطات التشعبية;
  • تحويل نص عنوان url إلى ارتباطات تشعبية قابلة للنقر.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30.

إذا كنت قد قمت بتثبيت كوتولس ل إكسيليرجى القيام بما يلي:

1. حدد النطاق الذي يحتوي على الارتباطات التشعبية التي تحتاج إلى استخراج.

2. انقر كوتولس > لينك > تحويل الارتباطات التشعبية، انظر لقطة الشاشة:

3. في تحويل الارتباطات التشعبية مربع الحوار، حدد تحل عناوين الارتباطات التشعبية محل محتويات الخلايا الخيار، وانقر doc-button1 زر من نطاق النتيجة لتحديد خلية لوضع النتيجة.

4. ثم انقر فوق OK، تم استخراج العناوين الفعلية من الارتباطات التشعبية. انظر لقطة الشاشة:

ملاحظة: إذا كنت تريد وضع العناوين الفعلية في النطاق الأصلي ، فيرجى التحقق تحويل نطاق المصدر.

انقر تحويل الارتباطات التشعبية لمعرفة المزيد عن هذه الميزة.

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


السهم الأزرق الحق فقاعة العرض التوضيحي: استخراج العناوين الفعلية من الارتباطات التشعبية باستخدام Kutools for Excel

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

مقالة ذات صلة:

كيفية تحويل نص عنوان url إلى ارتباط تشعبي قابل للنقر في Excel؟


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (44)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك. انها ساعدتني حقا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا!!! :د
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا فقط أنقذني! شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكراً جعلت عملي سهلاً للغاية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلًا لك ، لقد أنقذ هذا مؤخرتي وجعلني أبدو جيدًا. 8)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنت الأفضل ، من السهل متابعتك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا يا صديقي ، إنها تعمل حقًا في ثوانٍ.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك. انها ساعدتني حقا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً! مفيدة جدا لكنها بسيطة وواضحة. تمامًا كما عنى ألبرت:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ممتاز! سهل جدا. شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا. مثل أي شخص آخر هنا. هذا مفيد جدا وسهل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً: لول: لقد استخدمت طريقة VBA وعملت مثل السحر في Excel 365 على نظام تشغيل Windows 8.1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذه هي أول نصيحة إكسل تعتمد على الماكرو عملت معي. شكرًا جزيلاً على تحسين حياة دمى excel.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لانقاذ لي 15 دقيقة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع! قللت عملي إلى أقل من دقيقة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا وفر لي الكثير من الوقت! لقد استخرجت 500 معرّف ملف شخصي من أكثر من 500 اسم مرتبطة بملفاتهم الشخصية. يعمل هذا الرمز بشكل جيد للغاية وكان من السهل متابعته. شكرا جزيلا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لسبب ما هذا لا يعمل بالنسبة لي. لقد أنشأت الوظيفة المحددة تمامًا كما وصفتها ، ولكنها لا تفعل شيئًا: \ أريد أيضًا دمجها مع وظيفة الارتباط التشعبي ، مثل: = HYPERLINK (= getURL (A1) ، [A1]) بحيث تكون النهاية النهائية سوف تقوم النتيجة بنسخ عنوان URL الخاص بـ A1 وعرضه كسلسلة نصية لـ A1 (على سبيل المثال ، قم فقط بنسخ A1 إلى خلية أخرى ، بما في ذلك كل من النص والارتباط التشعبي. وهو أمر بسيط لا يبدو أن Excel قادر على القيام به لسبب ما ...).
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا! وفر لي وقتًا كبيرًا من الاضطرار إلى القيام بأكثر من 800 خلية من هذه الخلايا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أداة جميلة جدا! لقد قمت بتحويل 16 ألف + روابط. الأداة تعمل بسرعة ولا تشوبه شائبة.
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL