كيفية إنشاء زر أمر لنسخ البيانات ولصقها في Excel؟

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

قم بإنشاء زر أمر لنسخ البيانات ولصقها باستخدام كود فبا

قم بإنشاء زر أمر لنسخ البيانات ولصقها باستخدام كود فبا

يرجى القيام بما يلي لنسخ البيانات ولصقها تلقائيًا عند النقر فوق زر الأمر.

1. أدخل زر الأمر بالنقر فوق المطور > إدراج > زر الأمر (عنصر تحكم ActiveX). انظر لقطة الشاشة:

2. ارسم زر الأمر في ورقة العمل الخاصة بك وانقر فوقه بزر الماوس الأيمن. تحديد عرض الرمز من قائمة السياق.

3. في ظهرت ميكروسوفت فيسوال باسيك للتطبيقات النافذة ، يرجى استبدال الكود الأصلي في نافذة الكود بالرمز أدناه.

كود فبا: استخدم زر الأمر لنسخ ولصق البيانات في إكسيل

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

ملاحظة: في الكود ، CommandButton1 هو اسم زر الأمر الذي تم إدخاله. A1: C17 هو النطاق الذي تريد نسخه ، و J1: L17 هو النطاق الوجهة للصق البيانات. الرجاء تغييرها كما تريد.

4. صحافة قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة او شباك. وقم بإيقاف تشغيل وضع التصميم ضمن علامة التبويب المطور.

5. الآن انقر فوق زر الأمر ، سيتم نسخ جميع البيانات الموجودة في النطاق A1: C17 ولصقها في النطاق J1: L17 بدون تنسيق الخلية.

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

• كيفية حفظ وإغلاق المصنف النشط دون مطالبة بواسطة زر الأمر في إكسيل؟
• كيف يتم دائمًا تعويم زر الأمر في ورقة العمل في Excel؟
• كيفية تحديث أو إدراج التاريخ والوقت (الحالي) بواسطة زر الأمر في إكسيل؟
• كيفية استخدام زر الأمر لتغيير قيمة خلية محددة في إكسيل؟
• كيفية استخدام زر الأمر لحفظ ورقة العمل النشطة كملف PDF في Excel؟
• كيفية إدراج صف جديد فارغ تلقائيًا بواسطة زر الأمر في إكسيل؟

---

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

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

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

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...