كيفية التنقل بين أوراق العمل باستخدام القائمة المنسدلة في Excel؟
لنفترض أن لديك مصنفًا يحتوي على أوراق عمل متعددة ، الآن ، تحتاج إلى إنشاء قائمة منسدلة أو مربع تحرير وسرد يسرد جميع أسماء الأوراق وعندما تحدد اسم ورقة واحدة من القائمة المنسدلة ، سينتقل إلى تلك الورقة على الفور. في هذه المقالة ، سأقدم لك كيفية التنقل بين أوراق العمل باستخدام قائمة منسدلة في Excel.
تنقل بين أوراق العمل باستخدام القائمة المنسدلة في Excel
تنقل بين أوراق العمل باستخدام القائمة المنسدلة في Excel
للانتقال إلى كل ورقة محددة باستخدام قائمة منسدلة ، يرجى اتباع الخطوات التالية:
1. انقر المطور > إدراج > صندوق التحرير والسرد (عنصر تحكم ActiveX)، انظر لقطة الشاشة:
2. ثم اسحب الماوس لرسم مربع تحرير وسرد ، ثم انقر بزر الماوس الأيمن فوقه ، وحدد عرض الرمز من قائمة السياق ، انظر لقطة الشاشة:
3. في فتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق الكود التالي لاستبدال الكود الأصلي ، انظر الصورة:
كود فبا: تنقل بين أوراق العمل باستخدام القائمة المنسدلة
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. ثم احفظ وأغلق نافذة التعليمات البرمجية هذه ، ثم انقر فوق وضع التصميم لإيقاف تشغيل وضع التصميم ، الآن ، عند تحديد اسم ورقة واحدة من مربع التحرير والسرد ، سيتم الانتقال إلى تلك الورقة مرة واحدة ، انظر لقطة الشاشة:
تنقل بين أوراق العمل باستخدام الارتباطات التشعبية أو الأزرار:
بدافع كوتولس ل إكسيل's قم بإنشاء قائمة بأسماء الأوراق يمكنك إدراج جميع أسماء أوراق العمل بسرعة في ورقة جديدة مع ارتباطات تشعبية أو أزرار ماكرو ، ثم يمكنك التنقل بينها حسب حاجتك.
كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن! |
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!