إنشاء زر لتبديل الصفحات على الشيت

[الراشدي موسى]

ممكن من خبراء المنتدي التعديل على الملفات اضافة زر لتبديل الصفحات على الشييت اليا دون الحاجة النزول الى الاسفل الورقة.

تم الغاء حماية الملف -فمن تعليمات المنتدى عدم رفع ملف محمى فى المشاركات والتساؤلات

Emploi Du Temps.xlsm

[سليم حاصبيا]

اعتذر عن تقديم المساعدة مع شيت مقفل بواسطة كلمة سر

لكن يمكن ادراج هذا الكود في موديل مستقل ووضع له زر في كل شيت

Option Explicit
Sub Select_My_sheet()
 Dim act_sh As Worksheet: Set act_sh = ActiveSheet
 Dim goto_sh As Worksheet
 Dim t%
 t = act_sh.Index
 Select Case t
  Case Sheets.Count
  Set goto_sh = Sheets(1)
  Case Else
  Set goto_sh = Sheets(t + 1)
  End Select
  goto_sh.Select
End Sub

 

[Ali Mohamed Ali]

زادك الله من فضله استاذ سليم كود ممتاز

 

[الراشدي موسى]

سارفع مجدد الملف لو تكرمت و تعمل تعديل عليه باضافة زر BUTTON للتبديل الصفحات في نفس الشييت. و شكرا 

Emploi Du Temps.xlsx

[سليم حاصبيا]

تم اضافة زر الى كل من الصفحة الثانية و الثالثة

لان الصفحة الاولى محمية لا يمكن اضافة زر اليها

Emploi_salim.xlsm

[الراشدي موسى]

شكرا على المساعدة. لكن سيدي الكريم ما اريده ليس التنقل بين الشيتات الاولى و الثاني و هكذا. بل في نفس الشييت ورقة العمل التنقل من الاعلى الى الاسفل بدون الحاجة الى الفارة الى لنزول الى الاسفل. للمعاينة الصفحات 

ملاحظة: ورقة العمل الواحدة تحتوي على عدة صفحات حوالي 4.

[سليم حاصبيا]

منذ ساعه, الراشدي موسى said:

شكرا على المساعدة. لكن سيدي الكريم ما اريده ليس التنقل بين الشيتات الاولى و الثاني و هكذا. بل في نفس الشييت ورقة العمل التنقل من الاعلى الى الاسفل بدون الحاجة الى الفارة الى لنزول الى الاسفل. للمعاينة الصفحات 

ملاحظة: ورقة العمل الواحدة تحتوي على عدة صفحات حوالي 4.

مطلوبك كان هذا (نسخة من السؤال)

اضافة زر لتبديل الصفحات على الشييت اليا دون الحاجة النزول الى الاسفل الورقة

لما اضاعة وقت المعلمين والاساتذة بامور غير المطلوبة