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

كيفية إنشاء قائمة منسدلة مع مربعات اختيار متعددة في إكسيل؟

يميل العديد من مستخدمي Excel إلى إنشاء قائمة منسدلة مع مربعات اختيار متعددة من أجل تحديد عناصر متعددة من القائمة في كل مرة. في الواقع ، لا يمكنك إنشاء قائمة بمربعات اختيار متعددة باستخدام التحقق من صحة البيانات. في هذا البرنامج التعليمي ، سنعرض لك طريقتين لإنشاء قائمة منسدلة مع مربعات اختيار متعددة في Excel.

استخدم List Box لإنشاء قائمة منسدلة مع مربعات اختيار متعددة
ج: إنشاء مربع قائمة ببيانات المصدر
ب: قم بتسمية الخلية التي ستحدد فيها العناصر المحددة
ج: أدخل شكلًا للمساعدة في إخراج العناصر المحددة
يمكنك بسهولة إنشاء قائمة منسدلة باستخدام مربعات اختيار باستخدام أداة رائعة
المزيد من البرامج التعليمية للقائمة المنسدلة ...


استخدم List Box لإنشاء قائمة منسدلة مع مربعات اختيار متعددة

كما هو موضح أدناه ، في ورقة العمل الحالية ، ستكون جميع الأسماء الموجودة في النطاق A2: A11 هي البيانات المصدر لمربع القائمة. يمكن أن يؤدي النقر فوق الزر الموجود في الخلية C4 إلى إخراج العناصر المحددة ، وسيتم عرض جميع العناصر المحددة في مربع القائمة في الخلية E4. لتحقيق ذلك ، يرجى القيام بما يلي.

أ. إنشاء مربع قائمة ببيانات المصدر

1. انقر المطور > إدراج > مربع القائمة (عنصر تحكم نشط X). انظر لقطة الشاشة:

2. ارسم مربع قائمة في ورقة العمل الحالية ، وانقر بزر الماوس الأيمن فوقه ثم حدد عقارات من قائمة النقر بزر الماوس الأيمن.

3. في ال عقارات مربع الحوار ، تحتاج إلى تكوين على النحو التالي.

  • 3.1 في ListFillRange في المربع ، أدخل نطاق المصدر الذي ستعرضه في القائمة (هنا أدخل النطاق A2: A11);
  • 3.2 في نمط قائمة مربع، حدد 1 - خيار نمط قائمة fmList;
  • 3.3 في تحديد متعدد مربع، حدد 1 - FMMultiSelectMulti;
  • 3.4 أغلق ملف عقارات صندوق المحادثة. انظر لقطة الشاشة:

ب: قم بتسمية الخلية التي ستحدد فيها العناصر المحددة

إذا كنت بحاجة إلى إخراج جميع العناصر المحددة في خلية محددة مثل E4 ، فيرجى القيام بما يلي.

1. حدد الخلية E4 ، أدخل ListBoxOutput في اسم صندوق واضغط على أدخل الرئيسية.

ج- قم بإدراج شكل للمساعدة في إخراج العناصر المحددة

1. انقر إدراج > الأشكال > مستطيل. انظر لقطة الشاشة:

2. ارسم مستطيلاً في ورقة العمل الخاصة بك (هنا أرسم المستطيل في الخلية C4). ثم انقر بزر الماوس الأيمن فوق المستطيل وحدد تعيين ماكرو من قائمة النقر بزر الماوس الأيمن.

3. في ال تعيين ماكرو مربع الحوار، انقر فوق جديد .

4. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى استبدال الكود الأصلي في وحدة نافذة مع رمز VBA أدناه.

كود فبا: أنشئ قائمة بمربعات اختيار متعددة

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

ملاحظة: في الكود ، المستطيل 1 هو اسم الشكل ؛ ListBox1 هو اسم مربع القائمة ؛ اشر على الخيارات و خيارات الالتقاط هي النصوص المعروضة للشكل ؛ و ال ListBoxOutput هو اسم النطاق لخلية الإخراج. يمكنك تغييرها بناءً على احتياجاتك.

5. صحافة قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

6. انقر فوق الزر "مستطيل" سيتم طي أو توسيع مربع القائمة. عندما يتم توسيع مربع القائمة ، حدد العناصر الموجودة في مربع القائمة ، ثم انقر فوق المستطيل مرة أخرى لإخراج جميع العناصر المحددة في الخلية E4. انظر أدناه التجريبي:

7. ثم احفظ المصنف كملف Excel MacroEnable المصنف لإعادة استخدام الكود في المستقبل.


قم بإنشاء قائمة منسدلة مع مربعات اختيار باستخدام أداة مذهلة

الطريقة المذكورة أعلاه متعددة الخطوات للتعامل معها بسهولة. هنا نوصي بشدة قائمة منسدلة مع مربعات اختيار فائدة كوتولس Excel لمساعدتك في إنشاء قائمة منسدلة بسهولة مع مربعات اختيار في نطاق محدد أو ورقة عمل حالية أو مصنف حالي أو جميع المصنفات المفتوحة بناءً على احتياجاتك. انظر العرض أدناه:
قم بتنزيله وجربه الآن! (30 يوم درب مجاني)

إلى جانب العرض التوضيحي أعلاه ، نقدم أيضًا دليلًا تفصيليًا لشرح كيفية تطبيق هذه الميزة لتحقيق هذه المهمة. الرجاء القيام بما يلي.

1. افتح ورقة العمل التي قمت بتعيين القائمة المنسدلة للتحقق من صحة البيانات ، انقر فوق كوتولس > قائمة منسدلة > قائمة منسدلة مع مربعات اختيار > الإعدادات. انظر لقطة الشاشة:

2. في ال قائمة منسدلة مع إعدادات مربعات الاختيار مربع الحوار ، يرجى تكوين على النحو التالي.

  • شنومكس) في التسجيل في ، حدد نطاق التطبيق حيث ستنشئ مربعات اختيار للعناصر في القائمة المنسدلة. يمكنك تحديد ملف نطاق معين, ورقة العمل الحالية, المصنف الحالي or كل المصنفات المفتوحة على أساس الاحتياجات الخاصة بك.
  • شنومكس) في نموذج قسم ، اختر النمط الذي تريد إخراج العناصر المحددة ؛
  • هنا يأخذ عدل كمثال ، إذا اخترت هذا ، فسيتم تغيير قيمة الخلية بناءً على العناصر المحددة.
  • شنومكس) في الفاصل مربع ، أدخل المحدد الذي ستستخدمه لفصل العناصر المتعددة ؛
  • شنومكس) في اتجاه النص القسم ، حدد اتجاه النص بناءً على احتياجاتك ؛
  • شنومكس) انقر فوق OK .

3. الخطوة الأخيرة ، انقر فوق كوتولس > قائمة منسدلة > قائمة منسدلة مع مربعات اختيار > تمكين القائمة المنسدلة لخانات الاختيار لتفعيل هذه الميزة.

من الآن فصاعدًا ، عند النقر فوق الخلايا ذات القائمة المنسدلة في نطاق محدد ، سينبثق مربع قائمة ، يرجى تحديد العناصر عن طريق تحديد مربعات الاختيار لإخراجها في الخلية كما هو موضح أدناه (خذ وضع التعديل كمثال ).

لمزيد من التفاصيل حول هذه الميزة ، الرجاء زيارة هنا.

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


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

الإكمال التلقائي عند الكتابة في قائمة Excel المنسدلة
إذا كانت لديك قائمة منسدلة للتحقق من صحة البيانات بقيم كبيرة ، فأنت بحاجة إلى التمرير لأسفل في القائمة فقط للعثور على الكلمة المناسبة ، أو كتابة الكلمة بأكملها في مربع القائمة مباشرةً. إذا كانت هناك طريقة للسماح بالإكمال التلقائي عند كتابة الحرف الأول في القائمة المنسدلة ، فسيصبح كل شيء أسهل. يوفر هذا البرنامج التعليمي طريقة حل المشكلة.

قم بإنشاء قائمة منسدلة من مصنف آخر في Excel
من السهل جدًا إنشاء قائمة منسدلة للتحقق من صحة البيانات بين أوراق العمل داخل المصنف. ولكن إذا كانت بيانات القائمة التي تحتاجها للتحقق من صحة البيانات موجودة في مصنف آخر ، فماذا ستفعل؟ في هذا البرنامج التعليمي ، ستتعلم كيفية إنشاء قائمة منسدلة من مصنف آخر في Excel بالتفصيل.

قم بإنشاء قائمة منسدلة قابلة للبحث في Excel
بالنسبة للقائمة المنسدلة ذات القيم المتعددة ، فإن العثور على قائمة مناسبة ليس بالأمر السهل. قدمنا ​​سابقًا طريقة قائمة منسدلة للإكمال التلقائي عند إدخال الحرف الأول في المربع المنسدل. إلى جانب وظيفة الإكمال التلقائي ، يمكنك أيضًا جعل القائمة المنسدلة قابلة للبحث لتحسين كفاءة العمل في العثور على القيم المناسبة في القائمة المنسدلة. لجعل القائمة المنسدلة قابلة للبحث ، جرب الطريقة الموجودة في هذا البرنامج التعليمي.

ملء الخلايا الأخرى تلقائيًا عند تحديد القيم في القائمة المنسدلة في Excel
لنفترض أنك قمت بإنشاء قائمة منسدلة بناءً على القيم الموجودة في نطاق الخلايا B8: B14. عند تحديد أي قيمة في القائمة المنسدلة ، فأنت تريد ملء القيم المقابلة في نطاق الخلايا C8: C14 تلقائيًا في خلية محددة. لحل المشكلة ، ستفيدك الطرق الموجودة في هذا البرنامج التعليمي.

المزيد من البرامج التعليمية للقائمة المنسدلة ...


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (67)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع. ولكن سيكون من الأفضل وضع التحديد المتعدد حيث يكون المؤشر نشطًا. ليس بالضرورة ما يحدده الكود.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا هو بالضبط ما كنت أبحث عنه ، هل يمكن تعديل الكود للسماح بعرض البيانات المحددة في خلايا منفصلة أسفل العمود؟ لذا بدلاً من: الإثنين ، الثلاثاء ، الأربعاء ، اعرض بصيغة. الاثنين، الثلاثاء، الاربعاء
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا هو بالضبط ما كنت أبحث عنه ، هل هناك تعديل على الكود الذي سيضع التحديد التالي من مربع القائمة في السطر التالي. على سبيل المثال واحد اثنان ثلاثة بدلاً من: واحد ، اثنان ، ثلاثة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك أن تشرح كيف أضفت ListBoxOutput على خلية E4
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كيف يمكن نسخ مربع القائمة هذا لخلايا متعددة. فقط النسخ واللصق لا يعمل. هل يمكن أن تشرح على سبيل المثال في كل خلية (E5 ، E6 ، E7 ، E8 ، ...) كيف يمكنني وضع مربع التحديد هذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكن أن توضح كيف يمكنني بسهولة نسخ مربع القائمة هذا لـ 100 صف؟ (مربعات قوائم منفصلة لكل 100 صف)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بمجرد الانتهاء من الإخراج والضغط على الزر مرة أخرى ، لا يمكن تغيير العناصر المحددة السابقة في مربع القائمة. كيف تحل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك! إنه رائع ويعمل!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا مبتدئ في هذا ولكن هل يمكن لأي شخص إخباري بكيفية إنشاء ListBox متعدد التحديدات والذي سيفتح ، على سبيل المثال ، عند تحديد اسم. أريد أن يتناسب مربع القائمة مع ملف واحد.
مثال: لدي قائمة بالأسماء مع معلومات الاتصال ، وما إلى ذلك. أريد إنشاء Listbox مكررًا لكل اسم في قائمتي. أرغب في فتحه تلقائيًا عند تحديد اسم والعودة إلى الخلية عندما أذهب إلى صف آخر من المعلومات. يرجى تقديم النصيحة. شكرا لك مقدما.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي راندي ،
آسف لا يمكن حل هذه المشكلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه يعمل بشكل مثالي وفقًا للتعليمات ، ومع ذلك ، إذا قمت بحماية الورقة ، فستعطيها وتخطئ. أي عمل حول هذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
العمل بشكل مثالي حسب التعليمات. ولكن ، كيف يمكنني استخدام هذا على ورقة محمية. حاليًا إذا استخدمت هذا بعد حماية الورقة ، فقد أعطاني الخطأ "خطأ وقت التشغيل" -2147024809 (80070057) ": القيمة المحددة خارج النطاق"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي أميت سود ،
قبل حماية ورقة العمل ، يرجى تنسيق خلية الإخراج على أنها غير مقفلة ثم تطبيق رمز VBA أدناه. شكرا لك على تعليقك.

مستطيل فرعي 2_انقر ()
خافت xSelShp كشكل ، xSelLst كمتغير ، أنا كعدد صحيح
على خطأ استئناف التالي
قم بتعيين xSelShp = ActiveSheet.Shapes (Application.Caller)
قم بتعيين xLstBox = ActiveSheet.ListBox1
إذا كان xLstBox.Visible = False ثم
xLstBox.Visible = صحيح
xSelShp.TextFrame2.TextRange.Characters.Text = "خيارات الالتقاط"
آخر
xLstBox.Visible = خطأ
xSelShp.TextFrame2.TextRange.Characters.Text = "حدد الخيارات"
بالنسبة إلى I = xLstBox.ListCount - من 1 إلى 0 خطوة -1
إذا كان xLstBox.Selected (I) = صحيح إذن
xSelLst = xLstBox.List (I) & "؛" & xSelLst
إنهاء حالة
التالي أنا
إذا كان xSelLst <> "" ثم
النطاق ("ListBoxOutput") = منتصف (xSelLst، 1، Len (xSelLst) - 1)
آخر
النطاق ("ListBoxOutput") = ""
إنهاء حالة
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
"لقد قمت بإنشاء ملف باستخدام مربع قائمة ActiveX كما هو موضح ، لقد قمت بإدخال بعض البيانات وإضافة بعض الخصائص أيضًا. لقد قمت بفحص بعض البيانات باستخدام مربع الاختيار في القائمة ، وقمت بالحفظ والخروج من الملف. ولكن أثناء إعادة فتح الملف لا يظهر أي بيانات تم التحقق منها .. هل يمكن لأي شخص أن يقدم لي اقتراحًا لحفظ هذه التحديثات. "
هل يمكن لأي شخص مساعدتي رجاءا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
يرجى وضع كود فبا أدناه في نافذة كود ThisWorkbook.
في الكود ، يعتبر Sheet6 هو الاسم الافتراضي لورقة العمل التي تحتوي على مربع القائمة الذي تريد الاحتفاظ بالاختيارات كما هو موضح أدناه. و ListBox1 هو اسم مربع القائمة. يرجى تغييرها كما تريد.

Private Sub Workbook_BeforeSave (ByVal SaveAsUI كـ Boolean ، إلغاء كـ Boolean)
اتصل SaveSelections
نهاية الفرعية

مصنف فرعي خاص_ فتح ()
استعادة المكالمات المختارات
نهاية الفرعية

اختيارات حفظ فرعية خاصة ()

Dim arr () كمتغير ، ط طويل ، j طالما

باستخدام Sheet6.OLEObjects ("ListBox1"). كائن
إذا كان .ListIndex> 0 ثم
بالنسبة إلى i = 0 To .ListCount - 1
إذا تم تحديده (i) ثم
ي = ي + 1
ReDim Preserve arr (1 To j)
arr (ي) = أنا
إنهاء حالة
التالى
Names.Add Name: = "Selections" ، RefersTo: = arr ، Visible: = False
إنهاء حالة
انتهت ب

نهاية الفرعية

الاستعادة الفرعية الخاصة

Dim arr كمتغير ، أنا كعدد صحيح

arr = [التحديدات]

باستخدام Sheet6.OLEObjects ("ListBox1"). كائن
بالنسبة إلى i = 1 إلى UBound (arr)
تم التحديد (arr (i)) = صحيح
التالى
انتهت ب

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك على الرد يا سيدي ، ولكن هذا لا يعمل في حالة ملفي ، هل يمكنك من فضلك إرسال معرف البريد الخاص بك ، حتى أتمكن من إرسال ملفي إليك بالبريد.
شكرا مقدما
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي مانجوشا إسحاق ،
الرجاء إرسال ملفك إلى zxm@addin99.com. آمل أن أتمكن من المساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بالإضافة إلى ذلك ، تحتاج إلى حفظ المصنف كمصنف Excel Macro ممكن ، وتنشيط الرمز في كل مرة تقوم فيها بتغيير تحديدات مربع القائمة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد تحديث الأسماء تلقائيًا في أعمدة مختلفة. هل من الممكن إن أمكن ، يرجى مشاركة الرمز معي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مذهل في عمله ولكن بعد إغلاق ملف Excel وفتحه مرة أخرى ، يختفي الاختيار من مربع الاختيار ، لذلك إذا قمت بالنقر فوق الزر ، فستختفي كل القائمة أي حل لذلك
الرجاء مساعدتي
شكرا جزيلا مقدما
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزتي الملاك،
لقد نشرنا مقالاً بعنوان "كيفية حفظ أو الاحتفاظ باختيارات من مربعات قائمة ActiveX في Excel؟" الذي يقدم طريقة لحفظ تحديدات مربعات القائمة بعد إغلاق المصنف وإعادة فتحه.
يمكنك اتباع هذا الرابط للحصول على مزيد من المعلومات: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه عمل مذهل ولكن لدي مشكلة واحدة بعد أن أحفظ الملف وفتحه مرة أخرى ، انتهى كل التحقق من قائمة مربعات الاختيار
هل يمكنك مساعدتي في هذا ، شكرًا جزيلاً لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أيضًا ، يغير حجم مربع القائمة والشكل دائمًا بعد الحفظ وفتح الملف مرة أخرى إذا كان لدى شخص ما حل لهذه المشكلة ، الرجاء مساعدتي

شكرا جزيلا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي مارك،
لقد نشرنا مقالاً بعنوان "كيفية حفظ أو الاحتفاظ باختيارات من مربعات قائمة ActiveX في Excel؟" الذي يقدم طريقة لحفظ تحديدات مربعات القائمة بعد إغلاق المصنف وإعادة فتحه.
يمكنك اتباع هذا الرابط للحصول على مزيد من المعلومات: https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

أتساءل عما إذا كانت هناك طريقة لتوجيه خيارات الالتقاط إلى أكثر من خلية واحدة (ليس فقط E4) ، أو جعل التحديدات قائمة مرجعية منسدلة حتى أتمكن من تحديد خيارات متعددة من قائمة التحقق ، ولكن افعل ذلك بشكل متكرر ومستقل عن التحديدات الأخرى التي قمت بها. على سبيل المثال ، كيف يمكنني استخدام نفس قائمة خيارات الالتقاط لإدخال مجموعة مختلفة من العناصر إلى E5 و E6 و E7 وما إلى ذلك من قائمة الالتقاط نفسها.

شكراً لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا LizKats ،
من فضلك جرب الكود أدناه. آمل أن أتمكن من المساعدة. شكرًا لك.

مستطيل فرعي 2_انقر ()

'تم التحديث بواسطة Extendoffice 20200529

خافت xSelShp كشكل ، xSelLst كمتغير ، i كعدد صحيح

قم بتعيين xSelShp = ActiveSheet.Shapes (Application.Caller)

قم بتعيين xLstBox = ActiveSheet.ListBox1

خافت xRg كمدى

Dim xCount و xFNum و xR و xC كعدد صحيح

خافت xStr كسلسلة

إذا كان xLstBox.Visible = False ثم

xLstBox.Visible = صحيح

xSelShp.TextFrame2.TextRange.Characters.Text = "خيارات الالتقاط"

آخر

xLstBox.Visible = خطأ

xSelShp.TextFrame2.TextRange.Characters.Text = "حدد الخيارات"

تعيين xRg = Range ("ListBoxOutput")

xCount = xLstBox.ListCount - 1

xStr = ""

بالنسبة إلى i = xLstBox.ListCount - من 1 إلى 0 خطوة -1

إذا كان xLstBox.Selected (i) = True ثم

xStr = xLstBox.List (i) & "؛" & xStr

إنهاء حالة

أنا القادم



إذا كانت xRg.Value = "" إذن

xRg.Value = xStr

آخر

ضبط xRg = xRg.Offset (1، 0)

القيام أثناء xRg.Value <> ""

ضبط xRg = xRg.Offset (1، 0)

أنشوطة

xRg.Value = xStr

إنهاء حالة

إنهاء حالة

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
انها تعمل بشكل جيد ، شكرا جزيلا لمساعدتك. لدي مشكلة واحدة هنا وهي أن كل المخرجات تأتي في نفس الخلية E4 ، كيف يمكننا الحصول على الإخراج في خلايا مختلفة على سبيل المثال: إخراج C4 في E4 و C5 في E5 و C6 في E6 وما إلى ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
المشكلة التي ذكرتها لا يمكن حلها بعد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
обрый день! рошу помочь.
هل تريد قراءة المزيد؟ тобы по выходило по вертикали؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مساعدة!!! كيف الإخراج في نطاقات مختلفة (عموديا)؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مستطيل فرعي 2_انقر ()
'تم التحديث بواسطة Extendoffice 20190924
خافت xSelShp كشكل ، xSelLst كمتغير ، أنا كعدد صحيح
خافت xRg كمدى
قم بتعيين xSelShp = ActiveSheet.Shapes (Application.Caller)
قم بتعيين xLstBox = ActiveSheet.ListBox1
إذا كان xLstBox.Visible = False ثم
xLstBox.Visible = صحيح
xSelShp.TextFrame2.TextRange.Characters.Text = "خيارات الالتقاط"
آخر
xLstBox.Visible = خطأ
xSelShp.TextFrame2.TextRange.Characters.Text = "حدد الخيارات"
تعيين xRg = Range ("ListBoxOutput")
بالنسبة إلى I = 0 إلى xLstBox.ListCount - 1
إذا كان xLstBox.Selected (I) = صحيح إذن
xSelLst = xLstBox.List (I)
xRg.Value = منتصف (xSelLst، 1، Len (xSelLst))
ضبط xRg = xRg.Offset (1، 0)
إنهاء حالة
التالي أنا
إنهاء حالة
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كومو puedo طبق الأصل éste ejercicio en las filas inferiores؟
كيف يمكنني تكرار هذا التمرين في الصفوف أدناه؟
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة