كيف يمكن تحديد ورقة عمل معيّنة بناءً على قيمة موجودة في خلية ضمن ورقة عمل أخرى في Excel؟
افترض أن لديك قائمة منسدلة للتحقق من صحة البيانات تحتوي على جميع أسماء أوراق العمل، وتريد تحديد الورقة المقابلة تلقائيًا أو الانتقال إليها بناءً على الاسم الذي تختاره من القائمة — فما الحل؟ وماذا لو أردت الانتقال تلقائيًا إلى ورقة عمل معيّنة بمجرد كتابة اسمها في خلية محددة؟ يعرض لك هذا المقال عدة طرق فعّالة لتحقيق ذلك.
تحديد ورقة عمل معيّنة بناءً على اختيار قائمة منسدلة باستخدام كود VBA
تحديد ورقة عمل معيّنة بناءً على قيمة الخلية باستخدام كود VBA
إنشاء فهرس الأوراق بسهولة والانتقال إلى ورقة عمل معيّنة باستخدام Kutools لـ Excel
تحديد ورقة عمل معيّنة بناءً على اختيار قائمة منسدلة باستخدام كود VBA
على سبيل المثال، تحتوي الخلية A2 في الورقة Sheet8 على قائمة منسدلة. يمكنك تشغيل كود VBA أدناه للانتقال تلقائيًا إلى ورقة العمل المقابلة بمجرد اختيار اسمها من القائمة المنسدلة.
1. اضغطAlt+F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انقر مرتين على اسم الورقة (أي الورقة التي تحتوي على القائمة المنسدلة التي ستختار منها أسماء الأوراق) في الشريط الأيسر، ثم انسخ والصق كود VBA أدناه في نافذة الكود.
كود VBA: تحديد ورقة عمل معيّنة بناءً على اختيار قائمة منسدلة
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not (Application.Intersect(Range("A2"), Target) Is Nothing) Then _
ThisWorkbook.Sheets(Target.Value).Activate
End Subملاحظة: يمكنك تغيير "A2" إلى الخليّة الخاصة بك.
3. اضغطAlt + Q في آنٍ واحد لإغلاق نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
من الآن فصاعدًا، عند اختيارك اسم ورقة من القائمة المنسدلة في الورقة Sheet8، سيتم تفعيل تلك الورقة تلقائيًا.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
تحديد ورقة عمل معيّنة بناءً على قيمة الخلية باستخدام كود VBA
إذا أردت الانتقال إلى ورقة عمل معيّنة بعد إدخال اسمها في خلية (مثل الخلية A1 في الورقة Sheet1)، جرّب الكود التالي من VBA.
1. اضغطAlt+F11لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انقر مرتين على اسم الورقة (أي الورقة التي تريد إدخال اسمها فيها) في الشريط الأيسر، ثم انسخ والصق كود VBA أدناه في نافذة الكود. راجع لقطة الشاشة:
كود VBA: تحديد ورقة عمل معيّنة بناءً على قيمة الخلية
Sub ActivateSheetsByValue()
On Error Resume Next
ThisWorkbook.Sheets(Worksheets("Sheet1").Range("A1").Value).Activate
End Sub
3. عُد إلى ورقة العمل، وأدخل اسم الورقة التي ترغب في تحديدها في الخلية A1، ثم افتح نافذة الكود واضغط مفتاح F5 لتشغيله.
إذا احتوت الخلية A1 في الورقة Sheet1 على اسم ورقة العمل "Sheet8"، فسيتم الانتقال تلقائيًا إلى الورقة Sheet8 بمجرد تشغيل كود VBA.
إنشاء فهرس الأوراق بسهولة والانتقال إلى ورقة عمل معيّنة باستخدام Kutools لـ Excel
إذا كنت ترغب فقط في تحديد ورقة عمل معيّنة أو الانتقال إليها بسرعة، جرّب أداةإنشاء جدول الارتباطمنKutools لـ Excel. باستخدام هذه الأداة، يمكنك إنشاء فهرس الأوراق بسهولة والانتقال فورًا إلى أي ورقة عمل بالنقر على اسمها!
1. انقرKUTOOLS PLUS > ورقة العمل > إنشاء جدول الارتباط. راجع لقطة الشاشة:
2. في مربع حوارإنشاء جدول الارتباط، حدِّد الخيارإنشاء ارتباطات تشعبيةفي قسمنمط، واكتب اسمًا لفهرس الأوراق الخاص بك في مربعاسم جدول الارتباط، ثم اختر الخيارقبل جميع الأوراق في إدراج فهرس الأوراقمن القائمة المنسدلة، وانقر على زرموافق.
ملاحظة: عند تحديد الخيارإنشاء أزرار وماكروهات، ستحصل على فهرس أوراق يحتوي على زر ماكرو. راجع لقطة الشاشة:
في ورقة الفهرس، يمكنك النقر على اسم ورقة العمل المطلوبة للانتقال تلقائيًا إليها.
إذا كنت ترغب في تجربة هذه الأداة مجانًا (لمدة 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل