كيفية إضافة علامة اختيار في خلية بالنقر المزدوج في إكسيل؟

عادةً ، لإدراج علامة اختيار في خلية ، تحتاج إلى الدخول إلى مربع الحوار 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درب مجاني ليوم)

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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

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

التعليقات (12)

لا يوجد تقييم. كن أول من يقيم!

لويس كارلوس دياس

منذ حوالي 4 سنوات

#27122

تم تصغير هذا التعليق بواسطة المشرف على الموقع

como eu faço pra inserir a marca de seleção na célula، porém sem deletar o número que estiver digitado nela ou seja، a marca sairia na frente do número quando eu der duplo clique ... e quando eu quizer apagar a Duplo، eu du d clique novamente ea célula voltaria ao normar (استمرارية apenas o número).

رد

تاداو كانو لويس كارلوس دياس

منذ حوالي 4 سنوات

#27123

تم تصغير هذا التعليق بواسطة المشرف على الموقع

علا لويز ، تينت إسا ألتراكاو. Ira funcionar nas celulas A2: A10 e D2: D5، altere matche sua الضرورة.

تاداو

Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range، Cancel as Boolean)
إذا لم يتقاطع (الهدف ، الاتحاد (النطاق ("A2: A10") ، النطاق ("D2: D5"))) لا شيء إذن
Application.EnableEvents = خطأ
إذا كان اليسار (ActiveCell.Value، 1) = ChrW (& H2713) ثم
ActiveCell.Value = يمين (ActiveCell، Len (ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
آخر
ActiveCell.Value = ChrW (& H2713) & ActiveCell.Value
إنهاء حالة
إلغاء = صحيح
إنهاء حالة
Application.EnableEvents = صحيح
نهاية الفرعية

رد

إليزابيث

منذ حوالي 2 سنوات

#34106

تم تصغير هذا التعليق بواسطة المشرف على الموقع

هل هناك طريقة لتكرار هذا الرمز بحيث يكون في الكثير من أوراق العمل في مصنف واحد؟

رد

بلغ

كريستال إليزابيث

منذ حوالي 2 سنوات

#34107

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا leoflute ، بعد الضغط على ملف قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء النقر المزدوج ThisWorkbook لفتح ThisWorkbook (كود) نافذة ، ثم انسخ الكود أدناه في نافذة الكود. لا تنس تغيير أسماء الأوراق ونطاق الخلايا في الكود. Private Sub Workbook_SheetBeforeDoubleClick (ByVal Sh ككائن ، ByVal Target As Range ، إلغاء كـ Boolean)
'تم التحديث بواسطة Extendoffice 20201012
Dim xStrRg، xStrWs، xStrWsName كسلسلة
خافت xEEBol ، xWSNBol ، xBol كمنطقي
خافت xArrWs
خافت xArrRg
Dim xI، xJ As Integer
خافت xWs كورقة عمل
خافت xRg كمدى

xStrWs = "ورقة 5 ، ورقة 1 ، ورقة 2أسماء أوراق العمل المحددة
xStrRg = "B3: B10"" نطاق الخلايا الذي ستدرج فيه علامات الاختيار
xArrWs = انقسام (xStrWs، "،")
xArrRg = انقسام (xStrRg، "،")

xEEBol = Application.EnableEvents
Application.EnableEvents = خطأ
على خطأ استئناف التالي
xStrWsName = Sh.Name
xBol = خطأ
xWSNBol = خطأ
بالنسبة إلى xI = 0 إلى UBound (xArrWs)
إذا كان xStrWsName = xArrWs (xI) ثم
xWSNBol = صحيح
خروج عن
إنهاء حالة
التالي الحادي عشر

إذا كان xWSNBol ثم
تعيين xWs = Application.Worksheets.Item (xArrWs (xI))
لـ xJ = 0 إلى UBound (xArrRg)
تعيين xRg = Sh.Range (xArrRg (xJ))
إذا لم يتقاطع (الهدف ، xRg) فلا شيء إذن
xBol = صحيح
خروج عن
إنهاء حالة
التالي xJ
إنهاء حالة

إذا كان xBol ثم
إذا كان ActiveCell.Value = ChrW (& H2713) ثم
ActiveCell.ClearContents
آخر
ActiveCell.Value = ChrW (& H2713)
إنهاء حالة
إلغاء = صحيح
إنهاء حالة
Application.EnableEvents = xEEBol
نهاية الفرعية

رد

بلغ

CSherrod

منذ حوالي سنة واحدة

#35215

تم تصغير هذا التعليق بواسطة المشرف على الموقع

أهلاً! ما الذي سأضيفه إلى الكود أعلاه لجعل الخلية تغير لونها عند إضافة خانة الاختيار؟

رد

دان

منذ حوالي سنة واحدة

#36632

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا كريستال
هل هناك طريقة للحصول على علامات اختيار في A1: A10 مع B3: B10؟

رد

مايكل

منذ حوالي سنة واحدة

#36920

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كيف أكرر هذا لعدة أعمدة؟
على سبيل المثال أحتاجه في ما يلي:
E ، F ، I ، J ، M ، N ، Q ، R ، U ، V ، Y ، Z ، AC ، AD ، AG ، AH ، AK ، AL ، AO ، AP ، AS ، AT ، AW ، AX

رد

يوليسيس نوناتو

منذ حوالي 6 أشهر

#38841

تم تصغير هذا التعليق بواسطة المشرف على الموقع

الاتحاد الأوروبي gostaria de sabre se é posível adicionar a marca com apenas um clique ao invés de dois.

رد

كريستال يوليسيس نوناتو

منذ حوالي 6 أشهر

#38900

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا يوليسيس نوناتو ،
إذا كنت ترغب في إضافة علامة اختيار إلى خلية بنقرة واحدة فقط بالماوس ، فإن رمز VBA التالي يمكن أن يقدم لك خدمة.
تحتاج إلى النقر فوق الفأرة اليمنى زر لتفعيل الرمز.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    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

رد

بلغ

سورا

منذ حوالي 2 أشهر

#41276

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كيف أجعلها بحيث تضيف طابعًا زمنيًا على الخلية المجاورة بعد النقر المزدوج؟

رد

كريستال سورا

منذ حوالي 2 أشهر

#41491

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا سورا ،
يمكن أن يقدم لك رمز VBA التالي خدمة. يرجى محاولة إعطائها. شكرًا لك.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221125
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("B1:B10")
    Set xRight = Target.Offset(0, 1)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.Value = Now()
    End If
Application.EnableEvents = True
End Sub

رد

بلغ

آن

منذ حوالي 4 أيام

#42923

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا،

Une fois ces cases cochées، j'aimerais qu'une cellule x m'additionne les chiffres d'une definitely Colonne، est ce ممكن؟

Merci à vous، bonne soirée

رد

لا توجد تعليقات منشورة هنا حتى الآن

اترك تعليقاتك

النشر كضيف

الدخول

الاسم (مطلوب)

البريد الإلكتروني (مطلوب)

قيم المنشور:

إعادة تعيين

0 الشخصيات

أنا أوافق على أحكام وشروط