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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (12)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
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).
تم تصغير هذا التعليق بواسطة المشرف على الموقع
علا لويز ، تينت إسا ألتراكاو. 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 = صحيح
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لتكرار هذا الرمز بحيث يكون في الكثير من أوراق العمل في مصنف واحد؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا 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
نهاية الفرعية

تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! ما الذي سأضيفه إلى الكود أعلاه لجعل الخلية تغير لونها عند إضافة خانة الاختيار؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريستال
هل هناك طريقة للحصول على علامات اختيار في A1: A10 مع B3: B10؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أكرر هذا لعدة أعمدة؟ 
على سبيل المثال أحتاجه في ما يلي:
E ، F ، I ، J ، M ، N ، Q ، R ، U ، V ، Y ، Z ، AC ، AD ، AG ، AH ، AK ، AL ، AO ، AP ، AS ، AT ، AW ، AX
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الاتحاد الأوروبي gostaria de sabre se é posível adicionar a marca com apenas um clique ao invés de dois.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا يوليسيس نوناتو ،
إذا كنت ترغب في إضافة علامة اختيار إلى خلية بنقرة واحدة فقط بالماوس ، فإن رمز 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
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أجعلها بحيث تضيف طابعًا زمنيًا على الخلية المجاورة بعد النقر المزدوج؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا سورا ،
يمكن أن يقدم لك رمز 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
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

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   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL