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

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

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

مستند استخراج الارتباطات التشعبية من الصور 1

استخرج الارتباطات التشعبية من صور متعددة باستخدام كود VBA


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

يمكن أن يساعدك رمز VBA التالي في استخراج العناوين الحقيقية من الصور ذات الروابط التشعبية المتعددة في وقت واحد ، يرجى القيام بذلك خطوة بخطوة:

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

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

كود فبا: استخراج عناوين حقيقية من عدة صور ذات ارتباط تشعبي

Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice
    Dim xSh As Shape
    Dim xScreen As Boolean
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xSh In ActiveSheet.Shapes
        If xSh.Type = msoPicture Then
            On Error Resume Next
            Range(xSh.TopLeftCell.Address).Offset(0, 3).Value = xSh.Hyperlink.Address
            On Error GoTo 0
        End If
    Next
    Application.ScreenUpdating = xScreen
End Sub

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

مستند استخراج الارتباطات التشعبية من الصور 1

ملاحظات: سيقوم هذا الرمز باستخراج العناوين الحقيقية من جميع الصور في ورقة العمل الحالية.

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

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

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

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Worked like a charm once I figured out how to.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations