كيفية نسخ حدود النطاق المحدد فقط في Excel؟
أثناء استخدام Microsoft Excel، من السهل نسخ قيم الخلايا فقط، تنسيق الخلايا، صيغ الخلايا وما إلى ذلك من نطاق باستخدام وظيفة اللصق الخاص. لكن هل سبق لك أن حاولت نسخ نمط الحدود فقط من نطاق في Excel؟ سيوضح لك هذا المقال طريقة نسخ حدود النطاق المحدد فقط إلى نطاق جديد في Excel.
استخدم كود VBA لنسخ حدود النطاق المحدد فقط
استخدم كود VBA لنسخ حدود النطاق المحدد فقط
الكود التالي لـ VBA يمكن أن يساعدك في نسخ نمط الحدود للخلايا المحددة فقط ثم تطبيق هذا النمط على نطاق جديد في Excel. الرجاء اتباع الخطوات التالية.
1. اضغط على مفتاح "Alt" + "F11" لفتح نافذة "Microsoft Visual Basic for Applications".
2. في نافذة "Microsoft Visual Basic for Applications"، انقر فوق "إدراج" > "وحدة"، ثم قم بنسخ ولصق الكود التالي لـ VBA في نافذة الكود.
كود VBA: نسخ حدود النطاق المحدد فقط في 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" لتشغيل الكود. في أول نافذة منبثقة لـ "Kutools لـ Excel"، يرجى تحديد النطاق الذي يحتوي على الحدود التي تريد نسخها، ثم انقر فوق زر "موافق".
4. في النافذة المنبثقة الثانية لـ "Kutools لـ Excel"، يرجى تحديد خلية لتطبيق الحدود المنسوخة، ثم انقر فوق زر "موافق". انظر لقطة الشاشة:
ثم يمكنك أن ترى أن نمط الحدود للنطاق المحدد فقط قد تم نسخه وتطبيقه على نطاق جديد، كما هو موضح في لقطة الشاشة أدناه.
مقالات ذات صلة:
- كيفية نسخ والصق القيم مع تخطي المكررات في Excel؟
- كيفية نسخ بيانات الخلايا مع ارتفاع الصف وعرض العمود في Excel؟
- كيفية نسخ الخلية كقيمة نصية وليس كصيغة في Excel؟
- كيفية نسخ البيانات إلى الصف الفارغ التالي في ورقة عمل أخرى في Excel؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد