كيف تتنقّل بين أوراق العمل في Excel باستخدام قائمة منسدلة؟
لنفترض أن لديك ملف عمل يحتوي على عدة أوراق عمل، وتحتاج الآن إلى إنشاء قائمة منسدلة أو مربع تحرير وسرد (Combo Box) يعرض أسماء جميع الأوراق—حيث ينقلك اختيار اسم ورقة من القائمة فورًا إليها. في هذه المقالة، سأوضح لك كيفية التنقّل بسلاسة بين أوراق العمل باستخدام قائمة منسدلة في Excel.
التنقّل بين أوراق العمل باستخدام قائمة منسدلة في Excel
التنقّل بين أوراق العمل باستخدام قائمة منسدلة في Excel
للانتقال إلى كل ورقة مختارة باستخدام قائمة منسدلة، يُرجى اتباع الخطوات التالية:
1. انقر فوقإدراج > المطوّر > مربع تحرير وسرد (عنصر تحكم ActiveX)، انظر لقطة الشاشة:
2. بعد ذلك، اسحب المؤشر لرسم مربع تحرير وسرد، ثم انقر بزر الماوس الأيمن عليه واخترعرض الكودمن قائمة السياق. انظر لقطة الشاشة:
3. في نافذةمايكروسوفت فيجوال بيسيك للتطبيقاتالمفتوحة، انسخ والصق الكود التالي ليحل محل الكود الأصلي. انظر لقطة الشاشة:
كود VBA: التنقّل بين أوراق العمل باستخدام قائمة منسدلة
Private Sub ComboBox1_Change()
'Updateby Extendoffice
If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
Dim xSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Clear
For Each xSheet In ThisWorkbook.Sheets
ComboBox1.AddItem xSheet.Name
Next xSheet
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub
4. بعد ذلك، احفظ وأغلق نافذة الكود، ثم انقر فوقوضع التصميملإيقاف وضع التصميم. الآن، عند اختيار اسم ورقة من مربع التحرير والسرد، سيتم الانتقال فورًا إلى تلك الورقة. انظر لقطة الشاشة:
التنقّل بين أوراق العمل باستخدام روابط تشعبية أو أزرار: باستخدام أداةKutools لـ Excelووظيفتهاإنشاء جدول الارتباط، يمكنك بسرعة سرد جميع أسماء أوراق العمل في ورقة جديدة عبر روابط تشعبية أو أزرار ماكرو، والتنقّل بينها بسهولة حسب احتياجاتك.
Kutools لـ Excel: مع أكثر من 300 إضافة مفيدة لبرنامج Excel، جرّبها مجانًا دون أي قيود لمدة 30 يومًا.حمّل وجرب مجانًا الآن! |
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل