كيفية إضافة علامة اختيار في خلية بالنقر المزدوج في إكسيل؟
عادةً ، لإدراج علامة اختيار في خلية ، تحتاج إلى الدخول إلى مربع الحوار Symbol ، والعثور على رمز علامة الاختيار وإدخاله يدويًا. لكن ليس من السهل العثور على رمز علامة الاختيار في مربع الحوار Symbol نظرًا لوجود العديد من الرموز المدرجة بالداخل. كيفية إضافة علامة اختيار بسرعة في خلية في إكسيل؟ ستوضح لك هذه المقالة طريقة VBA لإضافة علامة اختيار بسهولة في خلية بالنقر المزدوج فقط.
انقر نقرًا مزدوجًا لإضافة علامة اختيار في خلية برمز VBA
انقر نقرًا مزدوجًا لإضافة علامة اختيار في خلية برمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في إضافة علامة اختيار في خلية بالنقر المزدوج. الرجاء القيام بما يلي.
1. افتح ورقة العمل التي تحتاجها لإضافة علامة اختيار في الخلية ، ثم انقر بزر الماوس الأيمن واختر عرض الرمز من قائمة النقر بزر الماوس الأيمن.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق رمز VBA أدناه في ملف رمز نافذة.
رمز فبا: انقر نقرًا مزدوجًا لإضافة علامة اختيار في خلية
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
Application.EnableEvents = False
If ActiveCell.Value = ChrW(&H2713) Then
ActiveCell.ClearContents
Else
ActiveCell.Value = ChrW(&H2713)
End If
Cancel = True
End If
Application.EnableEvents = True
End Sub
ملاحظات: في الكود ، B1: B10 هو النطاق الذي ستضيف إليه علامة الاختيار بالنقر المزدوج. يرجى تغييره بناءً على حاجتك.
3. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة والعودة إلى ورقة العمل.
الآن ، انقر نقرًا مزدوجًا فوق أي خلية في النطاق B1: B10 ، سيتم إدخال علامة الاختيار تلقائيًا. والنقر المزدوج فوق الخلية مرة أخرى ، ستتم إزالة علامة الاختيار المدرجة.
إذا كنت بحاجة إلى استخدام علامات الاختيار بشكل متكرر في عملك اليومي في Excel ، فإني أوصي هنا باستخدام النص السيارات فائدة كوتولس ل إكسيل. باستخدام هذه الميزة ، يمكنك حفظ علامة الاختيار كإدخال نص تلقائي ، ثم إعادة عرضها في المستقبل بنقرة واحدة فقط في Excel كما هو موضح في العرض التوضيحي أدناه.
قم بتنزيله وجربه الآن! (تجربة مجانية لمدة 30 يومًا)
مقالات ذات صلة:
- كيفية النقر نقرًا مزدوجًا فوق خلية وإضافة 1 إلى قيمة تلك الخلية في Excel؟
- كيفية إضافة / إدخال التاريخ / الوقت الحالي تلقائيًا في خلية بالنقر المزدوج في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!