يمكّنك رمز VBA التالي من التبديل بين آخر ورقة مستخدمة والورقة الحالية في المصنف الحالي. يمكنك القيام بما يلي:

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

2. انقر نقرًا مزدوجًا فوق ملف ThisWorkbook في الشريط الأيسر ، ثم الصق الكود التالي في نافذة الفتح:

VBA 1: ارجع إلى الورقة السابقة / الأخيرة

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
LastSheet = Sh.Name
End Sub

3. استمر في تحديد ThisWorkbook في الشريط الأيسر ، ثم انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة النمطية الافتتاحية:

VBA 2: ارجع إلى الورقة السابقة / الأخيرة

Public LastSheet As String
Sub Select_Last()
Application.Sheets(LastSheet).Select
End Sub

يمكنك الضغط على F5 مفتاح أو انقر فوق يجري زر للعودة إلى آخر ورقة عمل تم استخدامها مرة واحدة.

إذا كنت تفضل استخدام الاختصارات للتبديل بين الورقة الحالية وآخر ورقة مستخدمة ، فيرجى المتابعة:

4. انقر المطور > وحدات الماكرو لفتح مربع حوار الماكرو.

ملاحظة: بشكل افتراضي ، لا يتم عرض علامة التبويب المطور في الشريط ، انقر لمعرفة ذلك كيفية إظهار / عرض علامة تبويب المطور في شريط Excel.

5. في مربع حوار فتح الماكرو ، انقر لتمييز ماكرو حدد الأخير، ثم انقر فوق العلاج .

6. في مفتاح الاختصار قسم ، حدد اختصارًا لتشغيل هذا الماكرو من حدد الأخير، وانقر فوق OK زر لإغلاق مربع الحوار.

7. أغلق مربع حوار الماكرو.

من الآن فصاعدًا ، عندما تفتح عدة أوراق عمل على التوالي ، يمكنك الضغط على مفاتيح الاختصار المحددة (في حالتنا ، اضغط على CTRL + b) للتبديل بين الورقة الحالية والأخيرة / السابقة.

تبديل / التبديل بين ورقتين ذهابًا وإيابًا

تنقل بين النوافذ في المصنفات