كيفية إنشاء زر أمر لنسخ البيانات ولصقها في 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؟
- كيفية إدراج صف جديد فارغ تلقائيًا بواسطة زر الأمر في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!