كيفية فتح ورقة عمل محددة بالقيمة المحددة لمربع التحرير والسرد في إكسيل؟
لنفترض أن لديك صندوق تحرير وسرد يحتوي على جميع أسماء أوراق المصنف الحالي كما هو موضح أدناه. والآن ، تريد فتح ورقة عمل محددة عند تحديد اسم الورقة المقابل في مربع تحرير وسرد. كيف تحقق ذلك؟ يمكن أن تساعدك الطريقة في هذه المقالة.
افتح ورقة عمل محددة بالقيمة المحددة لمربع تحرير وسرد برمز VBA
افتح ورقة عمل محددة بالقيمة المحددة لمربع تحرير وسرد برمز VBA
يمكن أن يساعدك رمز VBA أدناه في الانتقال إلى ورقة عمل محددة بناءً على تحديد Combo Box في Excel. الرجاء القيام بما يلي.
ملاحظات: إذا كان مربع التحرير والسرد لا يحتوي على أي اسم ورقة في ورقة العمل الخاصة بك ، فالرجاء اتباع التلميح أدناه لإضافة جميع أسماء الأوراق بسرعة إلى مربع التحرير والسرد هذا. وإذا كان هناك بالفعل مربع تحرير وسرد يحتوي على جميع أسماء الأوراق ، فيرجى الانتقال إلى خطوة 1 مباشرة.
معلومه- سرية: أدخل زر الأمر 1 في ورقة العمل الخاصة بك ، وانقر فوقه بزر الماوس الأيمن وحدده عرض الرمز من قائمة النقر بزر الماوس الأيمن. ثم انسخ والصق رمز VBA أدناه في ملف رمز النافذة ، واضغط على قديم + Q مفاتيح لإغلاق Microsoft Visual Basic للتطبيق نافذة او شباك. انقر فوق زر الأمر الذي تم إدراجه ، ثم ستتم إضافة جميع أسماء أوراق المصنف الحالي إلى ComboBox1 تلقائيًا.
كود فبا: أضف جميع أسماء الأوراق بسهولة إلى مربع تحرير وسرد
Private Sub CommandButton1_Click()
Me.ComboBox1.Clear
Dim strWs As String
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next
End Sub
إذا كان هناك بالفعل صندوق تحرير وسرد يحتوي على جميع أسماء الأوراق ، فيرجى القيام بما يلي.
1. تشغيل وضع التصميم تحت المطور علامة التبويب.
2. انقر بزر الماوس الأيمن فوق مربع التحرير والسرد الذي يحتوي على أسماء الأوراق ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.
3. ثم ميكروسوفت فيسوال باسيك للتطبيقات نافذة منبثقة ، يرجى استبدال كود فبا الأصلي في نافذة الكود برمز فبا أدناه.
كود فبا: افتح ورقة عمل محددة حسب القيمة المحددة لمربع التحرير والسرد
Private Sub ComboBox1_Change()
Dim actWsh As String
actWsh = ComboBox1.Text
Worksheets(actWsh).Select
End Sub
ملاحظات: في الكود ، ComboBox1 هو اسم مربع التحرير والسرد الذي يحتوي على أسماء الأوراق.
4. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات النافذة ، وإيقاف تشغيل وضع التصميم تحت المطور علامة التبويب.
الآن ، عند تحديد أي اسم ورقة عمل في مربع التحرير والسرد ، سيتم فتح ورقة العمل المقابلة تلقائيًا.
قم بإدراج جميع أسماء أوراق المصنف الحالي بسهولة في Excel:
يساعدك استخدام فهرس الورقة في المصنف الخاص بك على إدارة أوراق العمل الخاصة بك بسهولة. مع ال قم بإنشاء قائمة بأسماء الأوراق فائدة كوتولس ل إكسيل، يمكنك بسهولة إنشاء فهرس ورقة يحتوي على جميع أسماء الأوراق في المصنف الحالي. بعد ذلك ، يمكنك الانتقال بسرعة إلى ورقة عمل معينة بمجرد النقر فوق اسم الورقة في ورقة عمل الفهرس. انظر أدناه لقطة الشاشة:
قم بتنزيله وجربه الآن! (تجربة مجانية لمدة 30 يومًا)
مقالات ذات صلة:
- كيفية نسخ قيمة Combo Box إلى خلية نشطة في Excel؟
- كيفية عرض تنسيق التاريخ في إخراج مربع التحرير والسرد في Excel؟
- كيفية إخفاء أو إظهار زر الأمر بناءً على قيمة الخلية المحددة في إكسيل؟
- كيفية منع أو تعطيل الكتابة في مربع التحرير والسرد في إكسيل؟
- كيفية الخروج من مربع التحرير والسرد لتحديد خلية معينة في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!