كيفية نسخ الارتباط التشعبي فقط من خلية إلى أخرى في Excel؟
لنفترض أن لدي قائمة من القيم في العمود A وكل خلية تحتوي على ارتباط تشعبي مختلف. الآن، أريد نسخ الارتباطات التشعبية فقط بدون النصوص إلى عمود آخر E كما هو موضح في لقطة الشاشة التالية. قد لا يكون هناك طريقة مباشرة للقيام بهذا العمل في Excel، ولكن هنا يمكنني تقديم كود VBA للتعامل معه.
نسخ الارتباط التشعبي من خلية إلى أخرى باستخدام كود VBA
نسخ الارتباط التشعبي من خلية إلى أخرى باستخدام كود VBA
لنسخ عناوين الارتباطات التشعبية فقط دون النصوص إلى خلايا أخرى، يمكن أن يساعدك الكود التالي. الرجاء القيام بما يلي:
1. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.
كود VBA: نسخ الارتباط التشعبي فقط من خلية إلى أخرى:
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 Sub3. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، ستظهر مربع حوار ينبثق لتذكيرك بتحديد الخلايا التي تريد نسخ الارتباطات التشعبية منها فقط، انظر لقطة الشاشة:
4. وبعد ذلك انقر فوق موافق، ثم حدد الخلايا التي تريد لصق الارتباطات التشعبية فيها فقط في مربع حوار آخر، انظر لقطة الشاشة:
5. وقد تم نسخ عناوين الارتباطات التشعبية من الخلايا الأصلية إلى الخلايا المحددة حسب الحاجة، انظر لقطة الشاشة:
ملاحظة: يمكن لهذا الكود أيضًا مساعدتك في نسخ الارتباطات التشعبية من ورقة عمل إلى ورقة عمل أخرى حسب رغبتك.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد