Note: The other languages of the website are Google-translated. Back to English

كيف تنسخ الارتباط التشعبي فقط من خلية إلى أخرى في إكسيل؟

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

قم بنسخ الارتباط التشعبي إلى خلية أخرى 1

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


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

لنسخ عناوين الارتباطات التشعبية فقط بدون النص إلى خلايا أخرى ، يمكن أن تقدم لك الشفرة التالية معروفًا ، من فضلك كما يلي:

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

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

كود فبا: انسخ الارتباط التشعبي فقط من خلية إلى أخرى:

Sub CopyHyperlinks()
'Uodateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim I As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Count
        If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
            If xSRg(I).Hyperlinks.Count = 1 Then
                xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
            End If
        End If
    Next
End Sub

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

قم بنسخ الارتباط التشعبي إلى خلية أخرى 02

4. ثم انقر فوق OK، ثم حدد الخلايا التي تريد لصقها فقط في مربع حوار آخر ، انظر الصورة:

قم بنسخ الارتباط التشعبي إلى خلية أخرى 03

5. وتم نسخ عناوين الارتباط التشعبي من الخلايا الأصلية إلى الخلايا المحددة حسب حاجتك ، انظر الصورة:

قم بنسخ الارتباط التشعبي إلى خلية أخرى 04

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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع

 

فرز التعليقات حسب
التعليقات (13)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، ماذا لو كنت أرغب في نسخ الارتباط التشعبي الخاص بي من الورقة أ الخلية A5 إلى الورقة ب الخلية A5؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، Arpit:

لقد قمت بتحديث رمز VBA ، الآن ، يمكنك تطبيقه في ورقتي عمل حسب حاجتك. من فضلك جربها ، آمل أن تساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أرغب في نسخ الروابط الموجودة في عدة أوراق من ملف إلى ملف آخر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا .. ماذا لو كنت أرغب في نسخ الارتباط التشعبي من خلال vlookup؟ لدي الصيغة بالفعل ولكن عند النقر فوق الارتباط التشعبي ، سيظهر "لا يمكن فتح ملف محدد".

الرجاء مساعدتي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحبها. شكرا جزيلا لك.
الحب من جمهورية الدومينيكان :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لنفترض أن الخلية A1 عبارة عن ارتباط تشعبي ، لذلك للحصول على مسار الارتباط التشعبي ، ما عليك سوى إنشاء صيغة مثل أدناه:
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا لم ينجح بالنسبة لي أيضًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع وهو يعمل. أحب نسخ ولصق كود الآخرين: د
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل معي. هل حقيقة أنني ما زلت أستخدم Excel 2007 مهمة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حسنًا ، لن تنشر تعليقي - وهذا أمر عادل. ولكن إذا كنت تريد مني التسجيل وتسجيل الدخول ، فأنت بحاجة إلى أن تبين لي الحلول التي تعمل ، لأنني (على أساس حالة واحدة لا تعمل) لم أر شيئًا يقنعني بوجود أي قيمة في التسجيل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد أجريت التعديلات التالية للعمل مع حالة الاستخدام الخاصة بي:
نسخة فرعية
Uodateby Extendoffice
خافت xSRg كمدى
Dim xDRg حسب النطاق
خافت أنا كعدد صحيح
Dim xAddress As String
على خطأ استئناف التالي
xAddress = ActiveWindow.RangeSelection.Address
تعيين xSRg = Application.InputBox ("الرجاء تحديد النطاق الأصلي الذي تريد نسخ الارتباطات التشعبية له:" ، "KuTools For Excel" ، xAddress ، ، ، ، ، 8)
إذا كان xSRg لا شيء ، فاخرج من Sub
تعيين xDRg = Application.InputBox ("الرجاء تحديد النطاق الجديد الذي تريد لصق الارتباطات التشعبية فقط" ، "KuTools For Excel" ، ، ، ، ، ، 8)
إذا كان xDRg لا شيء ، فاخرج من Sub
تعيين xDRg = xDRg (1)
بالنسبة لـ I = 1 To xSRg.Count
إذا كان xSRg (I). Hyperlinks (1) .Address <> "" Or xSRg (I). Hyperlinks (1) .SubAddress <> "" ثم
إذا كان xSRg (I). Hyperlinks.Count = 1 ثم
xDRg (I). روابط تشعبية. إضافة مرساة: = xDRg (I)، _
العنوان: = xSRg (I). Hyperlinks (1). Address، _
العنوان الفرعي: = xSRg (I). الارتباطات التشعبية (1)
تلميح الشاشة: = xSRg (I). الارتباطات التشعبية (1). تلميح الشاشة ، _
TextToDisplay: = xSRg (I). الارتباطات التشعبية (1).
إنهاء حالة
إنهاء حالة
التالى
نهاية الفرعية
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL