كيفية نسخ خلية تلقائيًا إلى الحافظة بنقرة واحدة في Excel؟
عادةً ، عند نسخ خلية إلى الحافظة ، تحتاج إلى تحديد الخلية أولاً ، ثم الضغط على CTRL + C مفتاح لنسخه. كيف تنسخ خلية تلقائيًا بمجرد النقر عليها دون الضغط على مفاتيح الاختصار؟ الطريقة في هذه المقالة يمكن أن تساعدك.
انسخ خلية تلقائيًا إلى الحافظة بالنقر فوق رمز VBA
انسخ خلية تلقائيًا إلى الحافظة بالنقر فوق رمز VBA
يمكن أن يساعدك رمز VBA التالي في نسخ خلية إلى الحافظة بمجرد النقر فوقها في Excel. الرجاء القيام بما يلي.
1. افتح ورقة العمل التي تريد نسخ الخلايا إلى الحافظة تلقائيًا ، وانقر بزر الماوس الأيمن فوق علامة تبويب الورقة ثم حدد عرض الرمز من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:
2. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ رمز VBA في نافذة التعليمات البرمجية.
رمز فبا: انسخ خلية تلقائيًا إلى الحافظة بالنقر
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A9")) Is Nothing Then
Target.Copy
End If
End Sub
ملاحظات: في الكود، A1:A9 هي الخلايا التي ستنسخها إلى الحافظة تلقائيًا. يرجى تغييره بناء على حاجتك.
3. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
عند النقر على أي خلية من النطاق A1:A9، سيتم نسخ الخلية تلقائيًا إلى الحافظة كما هو موضح أدناه في لقطة الشاشة.
وبعد ذلك، يمكنك تحديد الخلية الوجهة والضغط على مفتاح Enter للصق المحتويات المنسوخة.
مقالات ذات صلة:
- كيفية نسخ بيانات الخلايا مع ارتفاع الصف وعرض العمود في إكسيل؟
- كيفية نسخ الخلية ولصقها تلقائيًا في الورقة الحالية أو من ورقة إلى أخرى في إكسيل؟
- كيفية تعطيل وظائف القص والنسخ واللصق في إكسيل؟
- كيفية نسخ حدود النطاق المحدد فقط في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!