كيفية إزالة الارتباطات التشعبية دون إزالة التنسيق؟
في Excel ، عندما نحذف الارتباطات التشعبية التي تحتوي على بعض التنسيقات ، مثل لون الخلفية والخط والحجم وما إلى ذلك ، ستتم إزالة التنسيق بالإضافة إلى عرض لقطة الشاشة التالية. لكن ، في بعض الأحيان ، نحتاج إلى الاحتفاظ بتنسيق الخلية عند إزالة الارتباطات التشعبية. هل توجد طرق لمساعدتنا في حل هذه المشكلة المزعجة؟
قم بإزالة الارتباطات التشعبية بدون إزالة التنسيق باستخدام التعليمات البرمجية لـ VBA
قم بإزالة الارتباطات التشعبية بدون إزالة التنسيق باستخدام التعليمات البرمجية لـ VBA
في Excel ، لا توجد طريقة مباشرة للتعامل مع هذه المهمة ، ولكن يمكنك تطبيق التعليمات البرمجية VBA التالية للحفاظ على تنسيق الخلية عند إزالة الارتباطات التشعبية.
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: قم بإزالة الارتباطات التشعبية دون إزالة التنسيق
Sub RemoveHlinks()
'Update 20141024
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
Set Rng = xLink.Range
Rng.Copy TempRng
Rng.ClearHyperlinks
Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
TempRng.Copy
Rng.PasteSpecial xlPasteFormats
TempRng.Clear
Next
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد الخلايا التي تحتوي على الارتباطات التشعبية ، انظر لقطة الشاشة:
4. ثم انقر فوق OK لإغلاق مربع الحوار ، تتم إزالة الارتباطات التشعبية ، ولكن يظل تنسيق الارتباطات التشعبية (بما في ذلك التسطير).
مقالات ذات صلة:
كيفية تغيير مسارات الارتباط التشعبي المتعددة مرة واحدة في Excel؟
كيفية استخراج العناوين الفعلية من الارتباطات التشعبية في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!