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

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

إذا كانت لديك قائمة عناوين URL عبارة عن نص عادي ، فكيف يمكنك تنشيط عناوين URL النصية هذه إلى الارتباطات التشعبية القابلة للنقر كما هو موضح في لقطة الشاشة التالية؟

doc تنشيط الارتباطات التشعبية 1

تحويل مجموعة من عناوين URL النصية إلى ارتباطات تشعبية نشطة باستخدام الصيغ

قم بتحويل مجموعة من عناوين URL النصية إلى ارتباطات تشعبية نشطة برمز VBA

تحويل مجموعة من عناوين URL النصية إلى ارتباطات تشعبية نشطة Kutools for Excel


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

للنقر المزدوج فوق الخلية لتنشيط الارتباطات التشعبية واحدًا تلو الآخر ، سيضيع الكثير من الوقت ، هنا ، يمكنني تقديم بعض الصيغ لك ، يرجى القيام بما يلي:

أدخل هذه الصيغة: = HYPERLINK (A2، A2) في خلية فارغة حيث تريد إخراج النتيجة ، ثم اسحب مقبض التعبئة لأسفل لتطبيق هذه الصيغة على الخلايا التي تريدها ، وتم تحويل جميع عناوين URL النصية إلى ارتباطات تشعبية نشطة ، انظر لقطة الشاشة:

doc تنشيط الارتباطات التشعبية 2


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

يمكن أن يساعدك رمز VBA أدناه أيضًا في حل هذه المهمة ، يرجى القيام بذلك على النحو التالي:

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

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

رمز فبا: تحويل مجموعة من عناوين URL النصية إلى ارتباطات تشعبية نشطة:

Sub activateHyperlinks()
'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
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

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

doc تنشيط الارتباطات التشعبية 3

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

doc تنشيط الارتباطات التشعبية 4


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

هذه أداة يدوية-كوتولس ل إكسيل، بما لديها تحويل الارتباطات التشعبية ميزة ، يمكنك بسرعة على حد سواء تحويل مجموعة من عناوين URL النصية إلى ارتباطات تشعبية قابلة للنقر و استخراج عناوين الارتباط التشعبي الحقيقية من سلسلة نص الارتباط التشعبي.

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

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

1. حدد الخلايا التي تحتوي على عناوين URL النصية التي تريد تنشيطها.

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

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

doc تنشيط الارتباطات التشعبية 6

4. ثم اضغط Ok زر ، وتم تنشيط عناوين URL النصية مرة واحدة ، انظر لقطة الشاشة:

doc تنشيط الارتباطات التشعبية 4

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

doc تنشيط الارتباطات التشعبية 7

انقر لتنزيل Kutools for 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 (4)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
LA OPCION 2:
Convierta un montón de URL de texto en hipervínculos activos con código VBA

ANDA PERFECTO!
GRACIAS!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Tak for input, men jeg kunne ikke få konverteringen til at virke.

Den skrev bare en lang liste text:

= HYPERLINK (A2, A2)

Problemet var, at du havde skrevet formlen med komma og ikke med semikolon.

Den rette formel er =hyperlink(A2;A2)
This comment was minimized by the moderator on the site
Thank you much!!!!
This comment was minimized by the moderator on the site
Спасибо большое за ваш труд
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations