انتقل إلى المحتوى الرئيسي

كيفية استخراج العناوين الفعلية من الارتباطات التشعبية في 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. في تحويل الارتباطات التشعبية مربع الحوار، حدد تحل عناوين الارتباطات التشعبية محل محتويات الخلايا الخيار، وانقر زر الوثيقة1 زر من نطاق النتيجة لتحديد خلية لوضع النتيجة.

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

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

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

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


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

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

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

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

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

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (44)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Bonjour
Auriez vous une solution pour mettre en place le fonctionnement par la formule sur Excel 365 sur Mac ?
This comment was minimized by the moderator on the site
Hello, Edouard,
Sorry, the methods in this article are only applied to Microsoft Excel.
Thank you!
This comment was minimized by the moderator on the site
Ola colegas ,

Tenho uma planilha com mais de 2000 linhas, preciso exportar o documento que esta no hiperlink estas celulas, para um diretório da maquina, alguém sabe como fazer ?

agradeço a atenção

at..
cássia
This comment was minimized by the moderator on the site
Thank you it solve my problem
This comment was minimized by the moderator on the site
Thank you, the VBA code worked like a charm :)
This comment was minimized by the moderator on the site
Thank you for the tip to Extract Actual Addresses From Hyperlinks in Excel With VBA Code. It was exactly what I needed!
This comment was minimized by the moderator on the site
How does this apply to Excel on Mac?
This comment was minimized by the moderator on the site
I think it's nice to have an option that doesn't require macros since so many haven't used VBA at all.
This comment was minimized by the moderator on the site
If you're not comfortable with VBA, the key step to getting this done is the FORMULATEXT() formula that is included with excel. For example, if cell A1 has this...
=HYPERLINK("https://www.google.com","Google Homepage")
...then it would display "Google Homepage" but you want to extract "https://www.google.com". You can use =FORMULATEXT(A1) to get the output of "=HYPERLINK("https://google.com","Google Homepage")".

Then you use the find and mid functions to find the double quotes (which is CHAR(34)) and pull the string between the first two double quotes. Nesting it all together, you can use this formula to get the URL without any VBA required...
=MID(FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1,FIND(CHAR(34),FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1)-FIND(CHAR(34),FORMULATEXT(A1))-1)
This comment was minimized by the moderator on the site
Thankyou for an easy method to extract the complete URL from a weblink. I looked at other methods that were too nebulous but yours was straightforward and easy. Thanks.
This comment was minimized by the moderator on the site
Thanks for the " Extract actual addresses from hyperlinks with VBA code" VBA and clear instructions. It worked great for me.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations