كيفية استخراج العناوين الفعلية من الارتباطات التشعبية في Excel؟
لنفترض أن لديك مجموعة من الخلايا التي تحتوي على ارتباطات تشعبية ، والآن تحتاج إلى رؤية الوجهة الحقيقية للارتباطات التشعبية واستخراجها من الارتباطات التشعبية كما هو موضح في لقطة الشاشة التالية. هل توجد طرق سهلة لحل هذه المشكلة بسرعة؟ ستوجهك هذه المقالة لاستخراج العناوين الفعلية من ارتباطات تشعبية متعددة.
استخراج العناوين الفعلية من الارتباطات التشعبية باستخدام ميزة تحرير الارتباط التشعبي
استخراج العناوين الفعلية من الارتباطات التشعبية برمز VBA
استخراج العناوين الفعلية من الارتباطات التشعبية باستخدام وظيفة تعريف المستخدم
استخرج العناوين الفعلية من الارتباطات التشعبية باستخدام Kutools for 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 Sub3. ثم اضغط 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. في تحويل الارتباطات التشعبية مربع الحوار، حدد تحل عناوين الارتباطات التشعبية محل محتويات الخلايا الخيار، وانقر 
زر من نطاق النتيجة لتحديد خلية لوضع النتيجة.
4. ثم انقر فوق OK، تم استخراج العناوين الفعلية من الارتباطات التشعبية. انظر لقطة الشاشة:
ملاحظات: إذا كنت تريد وضع العناوين الفعلية في النطاق الأصلي ، فيرجى التحقق تحويل نطاق المصدر.
انقر تحويل الارتباطات التشعبية لمعرفة المزيد عن هذه الميزة.
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
العرض التوضيحي: استخراج العناوين الفعلية من الارتباطات التشعبية باستخدام Kutools for Excel
مقالة ذات صلة:
كيفية تحويل نص عنوان url إلى ارتباط تشعبي قابل للنقر في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
