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

كيفية تحديد ورقة عمل محددة بناءً على قيمة الخلية في ورقة أخرى في Excel؟

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

حدد ورقة عمل محددة بناءً على تحديد القائمة المنسدلة برمز VBA
حدد ورقة عمل محددة بناءً على قيمة الخلية برمز VBA
قم بإنشاء فهرس الأوراق بسهولة وانتقل إلى ورقة عمل معينة باستخدام Kutools for Excel


حدد ورقة عمل محددة بناءً على تحديد القائمة المنسدلة برمز VBA

على سبيل المثال ، توجد قائمة منسدلة في الخلية A2 من الورقة 8. يمكنك تشغيل رمز VBA أدناه لتحديد ورقة العمل المقابلة أو الانتقال إليها عند تحديد اسم الورقة في القائمة المنسدلة.

1. صحافة قديم + F11 لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات في النافذة ، انقر نقرًا مزدوجًا فوق اسم الورقة (ورقة العمل التي تحتوي على القائمة المنسدلة التي ستحدد أسماء الأوراق منها) في الشريط الأيسر ، ثم انسخ والصق رمز 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. صحافة قديم + Q مفاتيح في نفس الوقت لإغلاق Microsoft Visual Basic للتطبيقات نافذة.

من الآن فصاعدًا ، عندما تختار اسم ورقة في القائمة المنسدلة لـ Sheet8 ، سيتم تحديد ورقة العمل هذه تلقائيًا.


حدد ورقة عمل محددة بناءً على قيمة الخلية برمز VBA

إذا كنت تريد الانتقال إلى ورقة عمل معينة بعد كتابة اسم الورقة في خلية (الخلية A1 في الورقة 1) ، يمكنك تجربة التعليمات البرمجية لـ VBA التالية.

1. صحافة قديم + F11 لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات في النافذة ، انقر نقرًا مزدوجًا فوق اسم الورقة (ورقة العمل التي ستكتبها في اسم الورقة) في الشريط الأيسر ، ثم انسخ والصق رمز VBA أدناه في نافذة التعليمات البرمجية. انظر لقطة الشاشة:

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

Sub ActivateSheetsByValue()
    On Error Resume Next
    ThisWorkbook.Sheets(Worksheets("Sheet1").Range("A1").Value).Activate
End Sub

3. ارجع إلى ورقة العمل وأدخل اسم الورقة الذي تريد تحديده في الخلية A1 ، وقم بتنشيط نافذة الكود ، ثم اضغط على مفتاح F5 لتشغيل الكود.

إذا كانت الخلية A1 في الورقة 1 تحتوي على اسم ورقة العمل "Sheet8" ، فبعد تشغيل رمز VBA ، سيتم الانتقال إلى Sheet8 على الفور.


قم بإنشاء فهرس الأوراق بسهولة وانتقل إلى ورقة عمل معينة باستخدام Kutools for Excel

إذا كنت تريد فقط تحديد ورقة عمل معينة أو الانتقال إليها بسرعة ، فيمكنك تجربة ملف قم بإنشاء قائمة بأسماء الأوراق فائدة كوتولس ل إكسيل. باستخدام هذه الأداة ، يمكنك بسهولة إنشاء فهرس ورقة ، ثم الانتقال سريعًا إلى ورقة عمل معينة بالنقر فوق اسم الورقة.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. انقر كوتولس بلس > ورقة العمل > قم بإنشاء قائمة بأسماء الأوراق. انظر لقطة الشاشة:

2. في ال قم بإنشاء قائمة بأسماء الأوراق مربع الحوار، حدد يحتوي على قائمة بالارتباطات التشعبية الخيار في أنماط فهرس الورقة الجزء؛ اكتب اسمًا لفهرس الورقة في ملف حدد اسم الورقة لفهرس الورقة صندوق؛ أختر قبل كل الأوراق في إدراج فهرس الورقة في القائمة المنسدلة. ثم انقر فوق ملف OK .

ملاحظات: افحص ال يحتوي على أزرار ووحدات ماكرو الخيار ، سوف تحصل على فهرس ورقة مع زر وحدات الماكرو. انظر لقطة الشاشة:

في ورقة عمل الفهرس ، يمكنك النقر فوق اسم ورقة عمل معين للانتقال إلى ورقة العمل تلقائيًا.

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


قم بإنشاء فهرس الأوراق بسهولة وانتقل إلى ورقة عمل معينة باستخدام Kutools for Excel

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

🤖 مساعد 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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I have generated a table that lists the name of every sheet in my workbook. I have a macro whereby I select the cell with a particular sheet name, hit the form control button and that sheet is made visible and active. I want to expand on this. For example I have 3 sheets named 107A, 107B, 107C When I select 107 in my index table, I want the macro to open every sheet that begins with 107 I have a macro that will find and unhide sheets with a name Like *107* but I have not succeeded in modifying that to look for the sheet name listed in the active cell. Can you help?
This comment was minimized by the moderator on the site
Hi,
Sorry can't help you with that. Thank you for your comment.
This comment was minimized by the moderator on the site
I would like to know how to make a command button when i have hidden tabs. I have a drop down list of names and each name has a dedicated form i would like to choose the name on the list and the sheet for that person is displayed
This comment was minimized by the moderator on the site
Please upload a video regarding this as it will be much easier to understand.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations