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

كيفية النقر نقرًا مزدوجًا فوق خلية وإضافة 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 إلى القيمة الحالية كما هو موضح أدناه.


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


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (16)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكننا إضافة رقم مكون من رقمين في نهاية التاريخ؟ على سبيل المثال ، أحتاج إلى النقر نقرًا مزدوجًا وإضافة التاريخ الحالي والرقم المكون من رقمين التاليين (20171030-01 ثم ستظهر الخلية التالية 20171030-02 عند النقر المزدوج)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي مات ،
الرمز يدعم فقط خلية تنسيق الرقم. يمكن أن تعمل البيانات الخاصة بك 20171030-01 هي تنسيق نصي. اسف بشأن ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي مات ،
الرمز يدعم فقط خلية تنسيق الرقم. لا يمكن أن تعمل لأن بياناتك 20171030-01 هي تنسيق نصي. اسف بشأن ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا عظيم! كيف أفعل هذا لخلايا متعددة؟ أكتب "A1 ، A2" بدلاً من "A1" ، فهذا يجعل كلتا الخليتين متساويتين ويضيف 1 إلى كلتا الخليتين في وقت واحد. أود أن تعمل الخلايا بشكل مستقل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف لم أفهم وجهة نظرك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحباً - أتفق مع ستيف ، هذا رائع. أعتقد أن ما يود (وأنا أيضًا) هو أن يكون قادرًا على الإضافة إلى قيمة عدة خلايا مختلفة في نفس علامة التبويب عن طريق النقر المزدوج عليها. لقد قام بتعديل صيغة VBA بحيث تقول "A1، A2" بدلاً من "A1" فقط ولكن النقر المزدوج على "A1" يضيف 1 إلى كلتا الخليتين. هل من الممكن تغيير الصيغة بحيث يتم تضمين خلايا متعددة مع زيادة قيمة كل منها فقط عند النقر فوقها مباشرة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
في الأساس ، مع الكود أعلاه ، إذا نقرت مرتين على A1 ، فستضيف 1 إلى A1. إذا قمت بتغيير A1 إلى A1: A2 في النطاق المستهدف ، إذا قمت بالنقر نقرًا مزدوجًا فوق A1 أو A2 ، فسيتم إضافة 1 إلى A1. ما كنت أرغب فيه هو إضافة 1 إلى A1 فقط إذا قمت بالنقر نقرًا مزدوجًا فوق A1 ، وأضف 1 إلى A2 فقط إذا قمت بالنقر نقرًا مزدوجًا فوق A2. كما أنني لم أرغب في إضافة 1 إلى كلتا الخليتين.

أعتقد أنني وجدت ما كنت أبحث عنه:

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range، Cancel as Boolean)
إذا لم يتقاطع (الهدف ، النطاق ("D5: BC56")) لا شيء إذن
إلغاء = صحيح
النطاق (الهدف. العنوان). القيمة = Val (النطاق (الهدف. العنوان). القيمة) + 1
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي ستيف،
لقد فهمت وجهة نظرك أخيرًا ، وأشكرك على المشاركة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يبدو أن هذا الرمز لا يعمل بالنسبة لي. لست مضطرًا لتحديد ما هو الهدف. العنوان؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ربما عن طريق عمل جدول باسم النطاق. وتحديث الصيغة لتشمل ذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كنت تريد زيادة أي خلية في خلية مصنف عن طريق النقر المزدوج على تلك الخلية ولكن فقط تلك الخلية ، فإن هذا الرمز يعمل:

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range، Cancel as Boolean)
على خطأ استئناف التالي
إذا لم يتقاطع (الهدف ، النطاق (ActiveCell.Address)) لا شيء إذن
ActiveCell.Value = ActiveCell.Value + 1
إلغاء = صحيح
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي بيل،
شكرا لك على المشاركة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا! ذلك ساعدني كثيرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يمكنني الحصول على هذا للعمل في خلايا متعددة
حاولت استخدام ، لكنها لم تنجح


Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range، Cancel as Boolean)
على خطأ استئناف التالي
إذا لم يتقاطع (الهدف ، النطاق ("B2: L14")) لا شيء إذن
النطاق ("B2: L14"). القيمة = النطاق ("B2: L14"). القيمة + 1
إلغاء = صحيح
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ستيلا ،
يرجى تطبيق VBA أدناه لحل المشكلة.

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range، Cancel as Boolean)

على خطأ استئناف التالي

إذا لم يتقاطع (الهدف ، النطاق ("B2: L14")) لا شيء إذن

الهدف. القيمة = الهدف. القيمة + 1

إلغاء = صحيح

إنهاء حالة

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما الرمز الذي سأريده إذا أردت إضافة 1 إلى عدة خلايا ، دعنا نقول E5: E15 ولكن بعد ذلك أضف 5 أو رقمًا مختلفًا إلى مجموعة أخرى من الخلايا مثل G5: 515؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة