كيف يتم تعبئة Userform ComboBox بجميع أسماء الأوراق في Excel؟
تتحدث هذه المقالة عن تعبئة جميع أسماء أوراق المصنف الحالي في مربع تحرير وسرد لنموذج مستخدم في Excel.
قم بتعبئة Userform ComboBox بجميع أسماء الأوراق برمز VBA
قم بتعبئة Userform ComboBox بجميع أسماء الأوراق برمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في إدراج كافة أسماء أوراق المصنف الحالي في مربع تحرير وسرد userform. الرجاء القيام بما يلي.
1. اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى إدخال Userform من خلال النقر إدراج > المستخدم كما هو موضح أدناه لقطة الشاشة.
3. ثم ارسم وأدخل عنصر تحكم مربع تحرير وسرد في Userform. انظر لقطة الشاشة:
4. انقر بزر الماوس الأيمن فوق مربع التحرير والسرد المُدرج ، ثم حدد عرض الرمز من قائمة السياق. انظر لقطة الشاشة:
5. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات النافذة ، يرجى نسخ ولصق رمز VBA أدناه لاستبدال الرمز الأصلي في نافذة Code.
كود فبا: قم بتعبئة Userform ComboBox بجميع أسماء أوراق المصنف الحالي
Private Sub UserForm_Initialize()
Dim I As Long
Me.ComboBox1.Clear
For I = 1 To Sheets.Count
Me.ComboBox1.AddItem Sheets(I).Name
Next
Me.ComboBox1.Value = ActiveSheet.Name
End Sub
ملاحظات: في الكود، ComboBox1 هو اسم مربع التحرير والسرد المدرج. يرجى تغييره إلى واحد خاص بك.
6. اضغط على F5 مفتاح لتشغيل الكود. في نموذج المستخدم الافتتاحي، يمكنك رؤية جميع أسماء أوراق المصنف الحالي معروضة في مربع التحرير والسرد كما هو موضح في الصورة أدناه:
قم بإدراج جميع أسماء الأوراق بسهولة في Excel
• قم بإنشاء قائمة بأسماء الأوراق فائدة كوتولس ل إكسيل يمكن أن يساعد في سرد جميع أسماء أوراق العمل للمصنف النشط بسهولة في ورقة عمل جديدة في Excel. ويمكنك الانتقال إلى ورقة العمل المقابلة مباشرة من خلال النقر على اسم الورقة كما هو موضح في لقطة الشاشة أدناه.
قم بتنزيله وجربه الآن! (تجربة مجانية لمدة 30 يومًا)
مقالات ذات صلة:
- كيفية نسخ قيمة Combo Box إلى خلية نشطة في Excel؟
- كيفية عرض تنسيق التاريخ في إخراج مربع التحرير والسرد في Excel؟
- كيفية فتح ورقة عمل محددة بالقيمة المحددة لمربع التحرير والسرد في إكسيل؟
- كيفية منع أو تعطيل الكتابة في مربع التحرير والسرد في إكسيل؟
- كيفية الخروج من مربع التحرير والسرد لتحديد خلية معينة في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!