كيفية نسخ حدود النطاق المحدد فقط في Excel؟
أثناء استخدام Microsoft Excel ، من السهل نسخ قيم الخلايا وتنسيق الخلية وصيغ الخلايا وما إلى ذلك من نطاق باستخدام وظيفة "لصق خاص". ولكن هل سبق لك أن حاولت نسخ نمط الحدود فقط من نطاق في Excel؟ ستوضح لك هذه المقالة طريقة نسخ حدود النطاق المحدد فقط إلى نطاق جديد في Excel.
انسخ حدود النطاق المحدد فقط برمز VBA
انسخ حدود النطاق المحدد فقط برمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في نسخ نمط الحدود للخلايا المحددة فقط ، ثم تطبيق نمط الحدود هذا على نطاق جديد في Excel. الرجاء القيام بما يلي.
1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ والصق رمز فبا أدناه في نافذة التعليمات البرمجية.
رمز فبا: انسخ حدود النطاق المحدد فقط في Excel
Sub CopyBorders()
'Updated by Extendoffice 20211203
Dim xRg, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
With yRg.Borders(xlEdgeLeft)
.LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
.ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
.Weight = xRg.Borders(xlEdgeLeft).Weight
End With
With yRg.Borders(xlEdgeTop)
.LineStyle = xRg.Borders(xlEdgeTop).LineStyle
.ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
.Weight = xRg.Borders(xlEdgeTop).Weight
End With
With yRg.Borders(xlEdgeBottom)
.LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
.ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
.Weight = xRg.Borders(xlEdgeBottom).Weight
End With
With yRg.Borders(xlEdgeRight)
.LineStyle = xRg.Borders(xlEdgeRight).LineStyle
.ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
.TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
.Weight = xRg.Borders(xlEdgeRight).Weight
End With
With yRg.Borders(xlInsideHorizontal)
.LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
.ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
.TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
.Weight = xRg.Borders(xlInsideHorizontal).Weight
End With
With yRg.Borders(xlInsideVertical)
.LineStyle = xRg.Borders(xlInsideVertical).LineStyle
.ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
.TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
.Weight = xRg.Borders(xlInsideVertical).Weight
End With
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود. في أول ظهور كوتولس ل إكسيل مربع الحوار ، الرجاء تحديد النطاق مع الحدود التي تريد نسخها ، ثم انقر فوق OK .
4. في الثانية كوتولس ل إكسيل مربع الحوار ، يرجى تحديد خلية لتطبيق الحدود المنسوخة ، ثم انقر فوق OK زر. انظر لقطة الشاشة:
ثم يمكنك أن ترى فقط نمط الحدود للنطاق المحدد يتم نسخه وتطبيقه على نطاق جديد كما هو موضح أدناه لقطة الشاشة.
مقالات ذات صلة:
- كيفية نسخ ولصق القيم تخطي التكرارات في إكسيل؟
- كيفية نسخ بيانات الخلايا مع ارتفاع الصف وعرض العمود في إكسيل؟
- كيفية نسخ الخلية كقيمة نصية وليس صيغة في إكسيل؟
- كيفية نسخ البيانات إلى الصف الفارغ التالي من ورقة عمل أخرى في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!