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

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

انقر نقرًا مزدوجًا فوق خلية وأضف 1 برمز VBA

انقر نقرًا مزدوجًا فوق خلية وأضف 1 برمز VBA

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

يمكن أن تساعدك التعليمات البرمجية لـ 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 إلى القيمة الحالية كما هو موضح أدناه.

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

16 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
OW · 8 months ago
What code would I you if I want to add 1 to multiple cells lets say E5:E15 but then add .5 or a different number to another group of cells like G5:515?
- Reply
To post as a guest, your comment is unpublished.
Stella · 1 years ago
I cannot get this to work in multiple cells
Tried using, but it did not work

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("B2:L14")) Is Nothing Then
Range("B2:L14").Value = Range("B2:L14").Value + 1
Cancel = True
End If
End Sub
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Stella,
  Please apply the below VBA to solve the problem.
  
  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  On Error Resume Next
  If Not Intersect(Target, Range("B2:L14")) Is Nothing Then
  Target.Value = Target.Value + 1
  Cancel = True
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Bill · 3 years ago
If you want to increment any cell in a workbook cell by double clicking on that cell but only that cell, this code works:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range(ActiveCell.Address)) Is Nothing Then
ActiveCell.Value = ActiveCell.Value + 1
Cancel = True
End If
End Sub
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Bill,
  Thank you for sharing.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  BB · 3 years ago
  
  Thank You! that helped me a lot!
  
  Reply
To post as a guest, your comment is unpublished.
Steve · 3 years ago
This is great! How do I do this for multiple cells? I type in "A1,A2" instead "A1", it makes both cells equal and adds 1 to both cells simultaneously. I'd like the cells to act independently.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Sorry I didn’t get your point.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Adam · 3 years ago
  
  Hello - agree with Steve this is great. I think what he would like (and me too) is to be able to add to the value of multiple different cells in the same tab by double clicking on them. He has amended the VBA formula so it says "A1,A2" instead of just "A1" however double clicking on "A1" adds 1 to both cells. Is it possible to change the formula so that multiple cells are included with the value of each only being increased when you click on it directly?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  laura · 3 years ago
  
  maybe by making a table with a range name. and updating the formula to include that?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Steve · 3 years ago
  
  Basically, with the code above, if you double clicked on A1, it would add 1 to A1. If I changed A1 to A1:A2 in the Target Range, then if I double clicked on A1 or A2, it would add 1 to A1. What I wanted was to add 1 to A1 only if I double clicked on A1, and add 1 to A2 only if I double clicked on A2. I also did not want to add 1 to both cells.
  
  I think I have found what I was looking for:
  
  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("D5:BC56")) Is Nothing Then
  Cancel = True
  Range(Target.Address).Value = Val(Range(Target.Address).Value) + 1
  End If
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Sophie · 3 years ago
  
  This code does not seem to work for me. Don't I have to specify which is the Target.Adress ?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  crystal · 3 years ago
  
  Dear Steve,
  I got your point finally, and thank you for sharing.
  
  Reply
To post as a guest, your comment is unpublished.
Matt · 3 years ago
Can we add a two digit number to the end of the date? for example i need to double click and add the current date and the next two digit number (20171030-01 then the next cell will show 20171030-02 upon double click)
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Matt,
  The code only supports the number format cell. It can't work as your data 20171030-01 is text format. Sorry about that.
  
  Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Matt,
  The code only supports the number format cell. It can work as your data 20171030-01 is a text format. Sorry about that.
  
  Reply

تسجيل الدخول إلى حسابك

استعادة كلمة المرور