Note: The other languages of the website are Google-translated. Back to English

كيفية نسخ حدود النطاق المحدد فقط في 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 زر. انظر لقطة الشاشة:

ثم يمكنك أن ترى فقط نمط الحدود للنطاق المحدد يتم نسخه وتطبيقه على نطاق جديد كما هو موضح أدناه لقطة الشاشة.


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


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (6)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
قام الكود أيضًا بنسخ تنسيقاتي الرقمية والكتابة فوق تلك الموجودة في الخلايا المستهدفة. ربما فعلت شيئا خاطئا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ديفيد،
في حالتي ، يقوم الكود بنسخ الحدود فقط إلى الخلايا المستهدفة. هل يمكنك إخباري بإصدار Excel الخاص بك؟ شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريستال ،
أعلم أن هذا مضى أكثر من عام ، ولكن نظرًا لإعادة استضافة نظام البريد الإلكتروني الخاص بي ، ارتفع سؤالك إلى أعلى صندوق الوارد الخاص بي.
إصدار Excel الخاص بي هو 2016 16.0.4993.1001 كما ورد في الحساب> حول
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ديفيد،
سعيد لتلقي ردكم. لقد اختبرت الكود في Excel 2016 الخاص بي ، لكنه لا يزال ينسخ الحدود فقط. هل تمانع في إرسال نسخة من بياناتك إلى zxm@addin99.com؟ نأسف للإزعاج.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Dobrý دن،

Děkuji za pomoc s kopírováním pouze ohraničení.
Šlo بواسطة
شكرا لك
جيركا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بكم في كل شيء ، مثل كل ما في الأمر ، لا تنسى أن تكون كذلك. لي puedes ayudar con una macro que me permita copiar los bordes de otra celta a otra sin borrar el formato que tiene la celda de destino؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL