نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel - أفضل أداة إنتاجية للمكاتب ستحل معظم مشكلات Excel الخاصة بك
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في الشركة ؛ ميزات كاملة النسخة التجريبية المجانية من 60.

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

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

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 مفتاح لتشغيل هذا الرمز، مربع حوار سوف يخرج لتذكيرك لتحديد الخلايا التي تريد نسخ الارتباطات التشعبية فقط، انظر الصورة:

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

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

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

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

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

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


Kutools لـ Excel - أفضل أداة إنتاجية في Office تزيد من إنتاجيتك بنسبة 80٪

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

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

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Pawel · 17 days ago
    This is awesome and it works. I love copy&pasting other people's code :D
  • To post as a guest, your comment is unpublished.
    Abbie · 1 months ago
    This didn't work for me either.
  • To post as a guest, your comment is unpublished.
    LeZa · 3 months ago
    Lets say in your cell A1 is hyperlink, so to get the path of the hyperlink just create formula like below:
    >> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
  • To post as a guest, your comment is unpublished.
    iii · 5 months ago
    Doesn't work.
  • To post as a guest, your comment is unpublished.
    Liz Melbin Tejada · 9 months ago
    Love it. Thank you so muchoooo.
    Love From Dominican Republic :)
  • To post as a guest, your comment is unpublished.
    Passing Stranger · 1 years ago
    Doesn't work.
  • To post as a guest, your comment is unpublished.
    eunice · 1 years ago
    hello.. what if i want to copy the hyperlink through vlookup? i already have the formula but when i click the the hyperlink it "cannot open specied file" will appear.

    Please help me
  • To post as a guest, your comment is unpublished.
    Arpit · 2 years ago
    Hi, what if I want to copy my hyperlink from sheet A cell A5 to Sheet B cell A5?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hello, Arpit:

      I have updated the VBA code, now, you can apply it in two worksheets as you need. Please try it, hope it can help you!
      • To post as a guest, your comment is unpublished.
        jprasad · 2 years ago
        I want to copy links in several sheets of one file to another file