انتقل إلى المحتوى الرئيسي

كيفية فتح ورقة عمل محددة بالقيمة المحددة لمربع التحرير والسرد في إكسيل؟

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

افتح ورقة عمل محددة بالقيمة المحددة لمربع تحرير وسرد برمز 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. انقر بزر الماوس الأيمن فوق مربع التحرير والسرد الذي يحتوي على أسماء الأوراق ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.

doc combo box افتح ورقة العمل 12png

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

كود فبا: افتح ورقة عمل محددة حسب القيمة المحددة لمربع التحرير والسرد

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

ملاحظات: في الكود ، ComboBox1 هو اسم مربع التحرير والسرد الذي يحتوي على أسماء الأوراق.

4. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات النافذة ، وإيقاف تشغيل وضع التصميم تحت المطور علامة التبويب.

الآن ، عند تحديد أي اسم ورقة عمل في مربع التحرير والسرد ، سيتم فتح ورقة العمل المقابلة تلقائيًا.


قم بإدراج جميع أسماء أوراق المصنف الحالي بسهولة في Excel:

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


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

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hi
i just removed my excel file by converting it from 2016 to 2010. Then converting back to 2016 and put new password.
This comment was minimized by the moderator on the site
perfectly working.if your sheet name different then change the sheet name also.without changing the sheet name code does not working. thanks for sharing .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations