كيفية النقر نقرًا مزدوجًا فوق خلية وإضافة 1 إلى قيمة تلك الخلية في Excel؟
ستوضح لك هذه المقالة طريقة إضافة 1 إلى قيمة الخلية تلقائيًا بالنقر المزدوج عليها في Excel.
انقر نقرًا مزدوجًا فوق خلية وأضف 1 برمز VBA
انقر نقرًا مزدوجًا فوق خلية وأضف 1 برمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في إضافة 1 إلى قيمة الخلية بعد النقر المزدوج. الرجاء القيام بما يلي.
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي قيم الخلية التي تريد إضافة 1 إليها بالنقر المزدوج. ثم اضغط عرض الرمز من قائمة النقر بزر الماوس الأيمن.
2. في ظهرت ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق رمز فبا أدناه في نافذة التعليمات البرمجية.
رمز فبا: أضف 1 إلى قيمة خلية بالنقر المزدوج
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1").Value = Range("A1").Value + 1
Cancel = True
End If
End Sub
ملاحظة: في الكود ، A1 هي الخلية التي ستضيف الرقم 1 إليها بالنقر المزدوج.
3. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
الآن ، انقر نقرًا مزدوجًا فوق الخلية A1 سيضيف 1 إلى القيمة الحالية كما هو موضح أدناه.
مقالات ذات صلة:
- كيفية إضافة / إدخال التاريخ / الوقت الحالي تلقائيًا في خلية بالنقر المزدوج في 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
















