كيف تُنشئ زر أمر لنسخ البيانات ولصقها في Excel؟
افترض أنك بحاجة إلى نسخ نطاق من الخلايا بشكل متكرر إلى مكان آخر بعد تغيير البيانات، فإن طريقة النسخ واللصق اليدوية ستكون متعبة وتستهلك وقتًا. كيف يمكنك جعل عملية النسخ واللصق هذه تعمل تلقائيًا؟ سيوضح لك هذا المقال كيفية استخدام زر أمر لنسخ ولصق البيانات بنقرة واحدة فقط.
إنشاء زر أمر لنسخ ولصق البيانات باستخدام كود VBA
إنشاء زر أمر لنسخ ولصق البيانات باستخدام كود VBA
الرجاء اتباع الخطوات التالية لنسخ البيانات ولصقها تلقائيًا بمجرد النقر على زر الأمر.
1. أدرج زر أمر بالنقر علىالمطور > إدراج > زر الأمر (عنصر تحكم ActiveX). راجع لقطة الشاشة:
2. ارسم زر أمر في ورقة العمل الخاصة بك، ثم انقر عليه بزر الماوس الأيمن. من القائمة السياقية، حددعرض الكود.
3. في نافذةمايكروسوفت فيجوال بيسك للتطبيقاتالتي تظهر، يُرجى استبدال الكود الأصلي في نافذة الكود بالكود التالي من نوع VBA.
كود VBA: استخدام زر أمر لنسخ ولصق البيانات في Excel
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. اضغط على مفاتيحAlt+Q لإغلاق نافذةمايكروسوفت فيجوال بيسك للتطبيقات، ثم أوقف وضع التصميم من تبويب المطور.
5. الآن، عند النقر على زر الأمر، سيتم نسخ جميع البيانات من النطاق A1:C17 ولصقها في النطاق J1:L17 دون الاحتفاظ بتنسيق الخلايا.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقالات ذات صلة:
- كيف يمكن حفظ وإغلاق المصنف الحالي دون ظهور أي مطالبة، باستخدام زر أمر في Excel؟
- كيف تجعل زر الأمر يطفو دائمًا فوق ورقة العمل في Excel؟
- كيف يمكن تحديث أو إدراج التاريخ والوقت الحاليين باستخدام زر أمر في Excel؟
- كيف يمكن استخدام زر أمر لتغيير قيمة خلية معيّنة في Excel؟
- كيف يمكن استخدام زر أمر لحفظ ورقة العمل النشطة كملف PDF في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل