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

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

لنفترض أن لديك عدة عناوين url في ورقة العمل الخاصة بك ، ولكنها غير مرتبطة ، وتحتاج الآن إلى تحويل جميع عناوين url غير المرتبطة إلى ارتباطات تشعبية قابلة للنقر ، كما هو موضح في لقطات الشاشة التالية. بالطبع ، يمكنك النقر نقرًا مزدوجًا فوقها واحدًا تلو الآخر لجعلها قابلة للنقر ، ولكن هذا سيستغرق وقتًا طويلاً إذا كان هناك الكثير من عناوين url. كيف يمكنك تحويل عدة عناوين url غير مرتبطة إلى ارتباطات تشعبية قابلة للنقر تلقائيًا في Excel؟


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

يبدو أنه لا توجد طريقة فعالة أخرى لحل هذه المشكلة في Excel باستثناء استخدام رمز VBA التالي.

1. حدد نطاق نص عنوان url الذي تريد تحويله إلى ارتباطات تشعبية قابلة للنقر.

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

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

Sub ConvertToHyperlinks()
'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

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

2

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

ربما يكون رمز VBA صعبًا بالنسبة لك ، وهنا يمكنني أن أقدم لك أداة متعددة الوظائف-كوتولس ل إكسيل، بما لديها تحويل الارتباطات التشعبية خاصية ، يمكنك التعامل بسرعة مع العمليات التالية:

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

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

1. حدد نطاق نص عنوان url الذي تريد تحويله إلى ارتباطات تشعبية قابلة للنقر.

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

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

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

الملاحظات:

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

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

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

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


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

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

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

كيفية استخراج العناوين الفعلية من الارتباطات التشعبية في 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 (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Дай бог здоровья, вам, вашим матерям и детям, первенца в честь автора назову
This comment was minimized by the moderator on the site
Muito bom, só uma dúvida, existe a possibilidade de deixar um intervalo fixo já na macro (sem precisar aparecer aquele pop-up pra selecionar o intervalo), tipo clico pra excutar a macro e ele pega o intervalo que já está configurado na macro e ativa os links, pulando a etapa de ter que clicar em ok e tals. Se puderem me ajudar com esse dúvida serei grato.
This comment was minimized by the moderator on the site
Hello, Tosetti

To solve your problem, please apply the below code: (First, you should select the hyperlink texts)

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Application.Selection
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

Please try it, hope it can help you!
This comment was minimized by the moderator on the site
Oh crap.... it broke my Excel. By mistake I selected entire column and it forze for... ages!!
This comment was minimized by the moderator on the site
hi
when i click on the hyperlink .. it wont take to me to email page ( as an Outlook or Gmail) Please support
This comment was minimized by the moderator on the site
Hello, Babu,
May be the below article can help you for solving your problem, please view it:
https://www.extendoffice.com/documents/excel/3304-excel-convert-email-to-hyperlink.html

Hope it can help you!
This comment was minimized by the moderator on the site
I had to switch nearly 55,000 cells from plain text to hyperlinks. This helped me cut the time down from "the rest of my natural life" to five minutes. Thank you!
This comment was minimized by the moderator on the site
This is very helpful...Thanks
This comment was minimized by the moderator on the site
This is Great! Worked like a charm
This comment was minimized by the moderator on the site
Man! This is so awesome, I've spent so long trying to find an easy way and this took seconds! Works great!!!
This comment was minimized by the moderator on the site
Thanks a lot my friend! it worked! :lol:
This comment was minimized by the moderator on the site
The code almost works, but author has left a small copy-paste error. You need to remove "" from the first line, and "" from the last line, and then it will work. Cheers.
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