كيفية إضافة 1 إلى قيمة الخلية بالنقر المزدوج في Excel؟

ستوضح لك هذه المقالة طريقة لإضافة 1 إلى قيمة الخلية تلقائيًا بالنقر المزدوج عليها في Excel.

استخدم النقر المزدوج لزيادة قيمة الخلية بمقدار 1 باستخدام كود VBA

استخدم النقر المزدوج لزيادة قيمة الخلية بمقدار 1 باستخدام كود VBA

سيأخذك الكود التالي لـ VBA خلال الخطوات لإضافة 1 إلى القيمة الموجودة في الخلية A1 بالنقر المزدوج. يرجى اتباع التعليمات التالية.

1. انقر بزر الماوس الأيمن على تبويب الورقة حيث تحتاج إلى إضافة 1 إلى القيمة في الخلية A1 بالنقر المزدوج. ثم انقر فوق عرض الكود من قائمة النقر بزر الماوس الأيمن.

2. في نافذة Microsoft Visual Basic for Applications التي ستظهر، قم بنسخ ولصق كود VBA أدناه في نافذة الكود.

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. اضغط على مفتاحي Alt + Q معًا لإغلاق نافذة Microsoft Visual Basic for Applications.

الآن، سيؤدي النقر المزدوج على الخلية A1 إلى إضافة 1 إلى القيمة الحالية، كما هو موضح في لقطة الشاشة أدناه.

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

• كيفية إضافة/إدخال التاريخ/الوقت الحالي تلقائيًا في خلية بالنقر المزدوج في Excel؟
• كيفية إضافة علامة اختيار في خلية بالنقر المزدوج في Excel؟