كيف تنسخ الارتباط التشعبي فقط من خلية إلى أخرى في إكسيل؟
لنفترض أن لدي قائمة بالقيم في العمود A وتحتوي كل خلية على ارتباط تشعبي مختلف ، والآن ، أريد نسخ الارتباطات التشعبية فقط بدون نص إلى عمود آخر E كما هو موضح في لقطة الشاشة التالية. قد لا توجد طريقة مباشرة لحل هذه الوظيفة في Excel ، ولكن هنا ، يمكنني تقديم رمز VBA للتعامل معها.
انسخ الارتباط التشعبي من خلية واحدة إلى أخرى باستخدام رمز 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 المفتاح لتشغيل هذا الرمز ، سيظهر مربع حوار لتذكيرك بتحديد الخلايا التي تريد نسخ الارتباطات التشعبية فقط ، انظر لقطة الشاشة:
4. ثم انقر فوق OK، ثم حدد الخلايا التي تريد لصقها فقط في مربع حوار آخر ، انظر الصورة:
5. وتم نسخ عناوين الارتباط التشعبي من الخلايا الأصلية إلى الخلايا المحددة حسب حاجتك ، انظر الصورة:
ملاحظات: يمكن أن يساعدك هذا الرمز أيضًا في نسخ الارتباطات التشعبية من ورقة إلى ورقة أخرى كما تريد.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!