كيف يمكن نسخ حدود تحديد النطاق فقط في Excel؟

عند العمل في Microsoft Excel، غالبًا ما تحتاج إلى تكرار تنسيق معيّن من نطاق إلى آخر. تتيح لك عمليات النسخ واللصق القياسية نسخ قيم الخلايا أو الصيغ أو حتى التنسيق العام للخلايا باستخدام ميزة «لصق خاص». ومع ذلك، قد تواجه حالات تريد فيها تكرارنمط الحدودلتحديد نطاق معين فقط، دون نقل تنسيقات أخرى مثل الألوان أو الخطوط أو أنماط التعبئة. على سبيل المثال، قد ترغب في الحفاظ على تصميم حدود جدول متسق عبر أقسام متعددة من ورقة العمل الخاصة بك، أو مطابقة تخطيطات الحدود في أوراق قوالب جديدة. لسوء الحظ، لا يوفّر Excel خيارًا مباشرًا ومدمجًا لنسخ ولصق حدود الخلايا فقط. سيأخذك هذا الدليل خطوة بخطوة خلال طريقة عملية لنسخ حدود أي نطاق محدّد وتطبيقها على نطاق جديد في Excel، مما يضمن اتساق التنسيق دون التأثير على خصائص الخلايا الأخرى.

استخدم كود VBA لنسخ حدود تحديد النطاق فقط

الحل البديل: إعادة إنشاء الحدود يدويًّا باستخدام باستخدام التنسيق نسخ التنسيق

استخدم كود VBA لنسخ حدود تحديد النطاق فقط

باستخدام ماكرو VBA بسيط، يمكنك نسخ نمط الحدود بدقة من خلية أو نطاق معيّن وتطبيقه على موقع آخر في ورقة العمل الخاصة بك—بغض النظر عن المحتوى أو سمات التنسيق الأخرى. يُعد هذا الحل مثاليًّا لأتمتة المهام المتكررة أو تسريع سير العمل عند التعامل مع الجداول والقوالب التي تتضمّن أنماطًا مخصصة. يُرجى اتباع الخطوات التفصيلية أدناه لتشغيل كود VBA بأمان، مع الانتباه إلى نصائح المعلمات المفيدة أثناء التنفيذ.

1. اضغط على مفاتيحAlt+F11 معًا على لوحة المفاتيح. سيؤدي ذلك إلى فتح نافذة محررMicrosoft Visual Basic for Applications (VBA). وإذا لم تكن ترى علامة تبويب «المطور» في Excel، فما عليك سوى استخدام تركيبة الاختصار هذه، لأنها تفتح محرر VBA مباشرةً في أي إصدار حديث من Excel.

2. في محرر 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 أو عن طريق اختيارتشغيلمن شريط أدوات محرر VBA. عند ظهور مربع الحوار الأول "Kutools لـ Excel"، استخدم الماوس لتحديد النطاق الذي يحتوي على الحدود التي تريد تكرارها، ثم انقر على زر "موافق" لتأكيد اختيارك.

4. سيظهر مربع حوار ثانٍ بعنوان "Kutools لـ Excel«. الآن، حدد الخلية العلوية اليسرى للنطاق الهدف الذي ترغب في تطبيق نمط الحدود المنقول عليه. بعد تحديد خلية الوجهة (وربما النطاق بأكمله)، انقر فوق زر »موافق". راجع الرسم التوضيحي أدناه:

بعد إكمال هذه الخطوات، يُطبَّق الآن تصميم الحدود الخاص بالنطاق الأصلي على الموقع الجديد الذي حددته. ينتقل تنسيق الحدود فقط، بينما تبقى بيانات الخلية والألوان والميزات الأخرى كما هي دون تغيير. يُعد هذا مثاليًا لإنشاء جداول موحَّدة أو نسخ الجماليات البصرية لأوراق العمل. يظهر أدناه مثال على النتيجة:

الحل البديل: إعادة إنشاء الحدود يدويًّا باستخدام باستخدام التنسيق نسخ التنسيق

إذا كنت تفضل نهجًا بدون برمجة لنسخ الحدود، فإن أداةنسخ التنسيقالمدمجة في Excel توفر لك طريقة سريعة لتكرار تنسيق الحدود من نطاق إلى آخر، بالإضافة إلى بعض أنماط التنسيق الأخرى. إليك كيفية استخدامها:

• حدد النطاق الذي يحتوي على الحدود التي ترغب في نسخها.
• في علامة التبويبالصفحة الرئيسية، ضمن مجموعةالحافظة، انقر فوقنسخ التنسيق (أيقونة الفرشاة).
• سيتحول مؤشر الماوس إلى فرشاة. حدد النطاق الوجهة الذي ترغب في تطبيق الحدود عليه، وستُنسخ إليه حدود النطاق الأصلي مع بعض التنسيقات الأخرى (مثل الخط وتعبئة اللون) دفعة واحدة.

المزايا:أداة بسيطة ومدمجة في Excel، ومثالية للمهام السريعة القائمة على النسخ البصري.
العيوب:لا تتيح نسخ نمط الحدود فقط، بل تنسخ أيضًا تنسيقات أخرى مثل تنسيق الخلية ولون التعبئة وخصائص الخط وغيرها. لذا، ليست الخيار الأمثل إذا كنت ترغب في الحفاظ على محتوى الخلية الوجهة وتنسيقها دون أي تغيير باستثناء الحدود.

كل طريقة تأتي بمزاياها الخاصة، وتتناسب مع احتياجات سير عمل مختلفة: إذ يوفّر VBA نقلًا دقيقًا للحدود فقط، بينما يُسهّل نسخ التنسيق نسخ جميع التنسيقات بسرعة.

مقالات ذات صلة:

• كيف يمكن نسخ ولصق القيم في Excel مع تخطي القيم المكررة؟
• كيف يمكن نسخ بيانات الخلايا مع الحفاظ على ارتفاع الصف وعرض العمود في Excel؟
• كيف يمكن نسخ الخلية كقيمة نصية وليس كصيغة في Excel؟
• كيف يمكن نسخ البيانات إلى الصف الفارغ التالي في ورقة عمل أخرى في Excel؟

أفضل أدوات الإنتاجية لمكتبتك

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...