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

كيفية إنشاء زر أمر لنسخ البيانات ولصقها في 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 بدون تنسيق الخلية.


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


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (60)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد استخدمت هذه الوظيفة في المصنف الخاص بي. أنا أستخدم أزرار x النشطة لنسخ البيانات ولصقها داخل نفس الورقة على أوراق متعددة. ومع ذلك ، توجد أوراق بدون أزرار x نشطة أو وحدات ماكرو تلصق بيانات من الحقول المعنية على الورقة والتي لا أريدها. مساعدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنني الحصول على الكود الذي سينسخ النطاق I4: L26 من الورقة 2 (تسمى TransferSheet) (سيكون الزر على هذه الورقة) إلى الورقة 1 (تسمى JobsToDo) في الصف C (السطر الأول الذي يكون فارغًا حيث ستتم إضافة البيانات باستمرار من فضلك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنك تغيير التعليمات البرمجية للصق النتائج في صفحة أخرى في المصنف؟ وكيف تحصل على إدراج صف قبل وضع البيانات الجديدة فيه حتى لا تستبدلها
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جايسون،
إذا كنت تريد لصق النتائج في أوراق عمل أخرى داخل المصنف ، فيرجى تجربة كود فبا أدناه.

أمر فرعي خاص
خافت xSheet ، xDWS كورقة عمل
خافت xFNum كعدد صحيح
خافت xSRg كمدى

على خطأ استئناف التالي
تعيين xSRg = Application.InputBox ("الرجاء تحديد الخلية للصق النطاق:" ، "Kutools for Excel" ، xTxt ، ، ، ، ، 8)
إذا كان xSRg لا شيء ، فاخرج من Sub

Application.ScreenUpdating = خطأ
النطاق ("A1: C17"). نسخة
xSRg.PasteSpecial Paste: = xlValues، Operation: = xlNone، SkipBlanks: = False، Transpose: = False
Application.ScreenUpdating = ترو

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

أمر فرعي خاص
خافت xSheet ، xDWS كورقة عمل
خافت xFNum كعدد صحيح
خافت xSRg كمدى

على خطأ استئناف التالي
تعيين xSRg = Application.InputBox ("الرجاء تحديد الخلية للصق النطاق:" ، "Kutools for Excel" ، xTxt ، ، ، ، ، 8)
إذا كان xSRg لا شيء ، فاخرج من Sub

Application.ScreenUpdating = خطأ
النطاق ("A1: C17"). نسخة
xSRg.PasteSpecial Paste: = xlValues، Operation: = xlNone، SkipBlanks: = False، Transpose: = False
Application.ScreenUpdating = ترو

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كنت أرغب في إنشاء قائمة انتظار لصق؟
لتوضيح المزيد. انقر فوق CommandButton1 ثم نسخ A1. عندما أستخدم اللصق ، النسخة من A1 - ثم أرغب في نسخ A2 دون النقر فوق زر آخر ، حتى أتمكن من لصق A2 على الفور ، في مكان آخر. ثم عندما أستخدم اللصق ، فإن النسخة من A2 ثم انسخ A3. إذا كان ذلك ممكنا؟ هل يمكن أن يعمل هذا أيضًا في الخلفية عند استخدام ورقة Excel عادية ، وحاول القيام بهذا الإجراء حيث أنسخ من Excel ، ثم ألصق في برنامج مختلف تمامًا مثل متصفح الإنترنت ، أو برنامج آخر ، أو Word ، أو ملف txt ، وما إلى ذلك ؟

هذه المقالة كانت مفيدة للغاية على أي حال ، شكرًا جزيلاً لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ماغنوس ،
آسف لا أستطيع مساعدتك في ذلك. شكرا على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أرغب في توسيع هذه الخطوة ... بعد لصق القيم الفعلية وليس الصيغ ... أحتاج إلى نسخ الخلية الجديدة ولصقها في برنامج آخر لا يتفوق ، يجب أن أحتاج ببساطة إلى النقر فوق الزر لنسخ الصيغة من خلية معينة وتجاوز القيمة الفعلية في أخرى ، ثم انسخ تلك القيمة الجديدة إلى حافظة windows لتلغيها في تطبيق آخر. آمل أن يكون هذا منطقيًا ، وأقدر مساعدتك في معرفة كيفية إضافة الكود الجديد ... أنا أعرف ما أريده أن يفعله ، لكني لست على دراية بكيفية ترميزه ...
شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
تم تحديث الكود في المقالة ، يرجى المحاولة. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن أن يقوم زر الأمر بلصق النطاق المحدد فورًا في ورقة محددة (في الخلية الفارغة التالية) بدلاً من الاضطرار إلى الإدخال في كل مرة حيث تريد لصق البيانات؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا آدم،
يمكن أن يساعدك رمز VBA أدناه في حل المشكلة.
تحتاج إلى استبدال "الورقة 4" و "A1: C17" في التعليمات البرمجية بالورقة والنطاق المحددين.

أمر فرعي خاص
خافت xSWName كسلسلة
خافت xSheet كورقة عمل
خافت xPSheet كورقة عمل
خافت xIntR كعدد صحيح
xSWName = "Sheet4"
على خطأ استئناف التالي
Application.ScreenUpdating = خطأ
تعيين xSheet = ActiveSheet
إذا كان xSheet.Name <> "Definitions" و xSheet.Name <> "fx" و xSheet.Name <> "يحتاج"
xSheet.Range ("A1: C17"). نسخة
تعيين xPSheet = Worksheets.Item (xSWName)
xIntR = xPSheet.UsedRange.Rows.count
xPSheet.Cells (xIntR + 1، 1) .PasteSpecial Paste: = xlValues، Operation: = xlNone، SkipBlanks: = False، Transpose: = False
إنهاء حالة
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جيد جدًا ، أحتاج إلى النسخ واللصق عدة مرات ، هل من الممكن اختيار لصق صف من البيانات في 3 صفوف أو 5 صفوف كما أحب؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف لا أستطيع مساعدتك في ذلك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيدي كيف تنسخ نطاق الخلية في ورقة العمل الحالية ثم تلصق في أوراق عمل أخرى؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
يمكن أن يساعدك رمز VBA أدناه في حل المشكلة.
تحتاج إلى استبدال "الورقة 4" و "A1: C17" في التعليمات البرمجية بالورقة والنطاق المحددين.

أمر فرعي خاص
خافت xSWName كسلسلة
خافت xSheet كورقة عمل
خافت xPSheet كورقة عمل
خافت xIntR كعدد صحيح
xSWName = "Sheet4"
على خطأ استئناف التالي
Application.ScreenUpdating = خطأ
تعيين xSheet = ActiveSheet
إذا كان xSheet.Name <> "Definitions" و xSheet.Name <> "fx" و xSheet.Name <> "يحتاج"
xSheet.Range ("A1: C17"). نسخة
تعيين xPSheet = Worksheets.Item (xSWName)
xIntR = xPSheet.UsedRange.Rows.count
xPSheet.Cells (xIntR + 1، 1) .PasteSpecial Paste: = xlValues، Operation: = xlNone، SkipBlanks: = False، Transpose: = False
إنهاء حالة
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كنت أرغب في نسخ هذا ليس في المصنف الحالي ولكن في مصنف آخر (لم يتم فتحه بعد) في Excel. كيف يمكنني تغيير رمز VBA هذا وفقًا لذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا روبيرت ،
آسف لا أستطيع مساعدتك في ذلك. شكرا على التعليق.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لديّ qusrion لدي ورقة 1 مع عمود التاريخ b3: b33 وأريد نسخ ذلك إلى الورقة 2 B33: b63 نصها ولكني أحتاج إلى نفس التنسيق للنص ، أي حجم اللون
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا أيها المؤلف ،

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

أمر فرعي خاص
خافت xSWName كسلسلة
خافت xSheet كورقة عمل
خافت xPSheet كورقة عمل
خافت xIntR كعدد صحيح
xSWName = "Sheet4"
على خطأ استئناف التالي
Application.ScreenUpdating = خطأ
تعيين xSheet = ActiveSheet
إذا كان xSheet.Name <> "Definitions" و xSheet.Name <> "fx" و xSheet.Name <> "يحتاج"
xSheet.Range ("A1: C17"). نسخة
تعيين xPSheet = Worksheets.Item (xSWName)
xIntR = xPSheet.UsedRange.Rows.Count
xPSheet.Cells (xIntR + 1، 1) .PasteSpecial Paste: = xlValues، Operation: = xlNone، SkipBlanks: = False، Transpose: = False
إنهاء حالة
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، الرجاء المساعدة. أطلب نفس ما ورد أعلاه ولكني فقط بحاجة إلى لصق أي خلية نشطة في سطر جديد (إن أمكن أعلاه الإدخالات السابقة) في ورقة عمل مختلفة. حقا نقدر أي مساعدة في هذا. مع أطيب التحيات
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، ساعد حالتي ، أريد أن يكون لدي زر لإنشاء ماكرو حيث أمتلك التفوق وتصدير البيانات حيث في <""> إلى كلمة ، شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
آسف لم أفهم وجهة نظرك. سيكون من الرائع أن تشرح بمزيد من التفاصيل عما تحاول القيام به.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أبحث عن بعض المساعدة حول أنه يمكن للمستخدم النقر فوق رقم صف ثم الضغط على زر الأمر الذي سيقوم بعمل نسخة من هذا الصف وإدخاله في الصف أدناه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
آسف يمكن أن تساعدك في ذلك حتى الآن. شكرا على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيد باجيمانا جيكا بيربيدا ورقة دان نسخ البيانات yg diinginkan
contoh sheet1 hanya data kolom B & kolom D نسخة ke sheet2
شكرا لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يرجى إرسال VBAcode لنسخ محتوى خلية واحدة باستخدام زر commmand انقر دون استخدام مربع نص حتى تتمكن من اللصق في أي تطبيق مثل notepad و msword
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل من الممكن عمل زر ينسخ خلية واحدة محددة على ورقة واحدة إلى ورقة أخرى؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ليكسي ،
يمكن أن يساعدك رمز VBA أدناه في حل المشكلة. الرجاء تغيير "Sheet3" إلى اسم الورقة حسب حاجتك.
حدد خلية واضغط على زر الأمر لجعلها تعمل.

أمر فرعي خاص
خافت xSWName كسلسلة
خافت xSheet كورقة عمل
خافت xPSheet كورقة عمل
خافت xIntR كعدد صحيح
xSWName = "Sheet3"
على خطأ استئناف التالي
Application.ScreenUpdating = خطأ
تعيين xSheet = ActiveSheet
إذا كان xSheet.Name <> "Definitions" و xSheet.Name <> "fx" و xSheet.Name <> "يحتاج"
الاختيار. المنطقة الحالية
الاختيار
تعيين xPSheet = Worksheets.Item (xSWName)
xIntR = xPSheet.UsedRange.Rows.Count
xPSheet.Cells (xIntR + 1، 1) .PasteSpecial Paste: = xlValues، Operation: = xlNone، SkipBlanks: = False، Transpose: = False
إنهاء حالة
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا!
هل هناك طريقة لعمل رمز بحيث يمكنني الحصول على زر لنسخ نطاق (دعنا نقول A1: D5).
ثم الصقه في A6: D10.

وإذا ضغطت على الزر مرة أخرى ، فسيتم نسخ A1: D5 إلى A11: D15.

وما إلى ذلك وهلم جرا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جوناس ،
آسف لا أستطيع مساعدتك في ذلك. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع - لقد تكيفت مع ورقة s الخاصة بي ولكني بحاجة إلى أن تكون أكثر ديناميكية وأن أستخدم الملصقات بدلاً من الترميز الثابت لمواقع الخلايا.
أي في النطاق A2-A6 ، ابحث عن اسم "Jamie" ثم ابحث عن الاسم في العمود K2 والصقه

أحتاج أيضًا إلى كل نقرة لإجراء +1 وتشغيل نفس النسخة واللصق ولكن في العمود التالي على سبيل المثال

انقر فوق 1 - لصق في Q1 ، انقر فوق 2 - لصق في Q2 إلخ

على سبيل المثال:

العمود أ العمود ب ... العمود ك العمود ل
1. اسم عدد ساعات العمل الاسم Q1 Q2 Q3 Q4
2. جيمي 22 سامي
3. سامي 40 جوديث
4. جوديث 18 جيمي
5. تامي 16 كيث
6. كيث 42 تامي


أي مساعدة سيكون موضع تقدير كبير.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية ترميز لنسخ خلية من النطاق a1 إلى a5 للصقها في c1 وإلى الخلية التالية المتوفرة بالتسلسل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
وأيضًا نسخ الخلية ولصقها واحدة تلو الأخرى ..
شكرا لكم على مساعدتكم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا الرجال. هذا يحتاج إلى بعض المساعدة ، من فضلك. أحتاج إلى إنشاء زر 10 * في ورقة العمل الخاصة بي (الورقة 1) التي ستنسخ 3 خلايا ، على سبيل المثال: الورقة 1 ، A1 ، B1 ، C1. ثم الصق ذلك في الورقة 2 A1 ، B1 ، C1. ثم إذا قمت بالنقر فوق الزر 4 ، على سبيل المثال: الورقة 1 ، A4 ، B4 ، C4 ، أحتاج إلى هذا لتجاوزه في الورقة 2 ، A2 ، B2 ، C2. إذا قمت بالنقر فوق الزر 2 ، فيجب أن يمر في الورقة 2 ، A3 ، B3 ، C3. آمل أن يكون هذا الأمر يبدو معقولا تماما.
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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