التنقل بين الصفحات بالكود

[الفدعاني]

تحياتي للقائمين على الموقع وبالاخص الاخ محمد

سؤالي كيف عمل ماكرو للتنغل بين صفحات الاكسل

يعني اعمل زر واتنغل بين الورقة الاولى والثانية .الخ

فارجو من الاخوة الكرام الشرح الوافي

جزاكم الله عني كل خير

[امير عاطف]

اذا اردت عمل زر للتنقل للورقة التالية قم بوضع الحدث التالي في حدث النقر لزر الأمر

SendKeys ("^{pgdn}")

اذا اردت عمل زر للتنقل للورقة السابقة قم بوضع الحدث التالي في حدث النقر لزر الأمر

SendKeys ("^{pgup}")

---------------------------------------------------

ويمكنك عمل ذلك بدون كتابة كود فيجوال بيسك او تسجيل ماكرو بنفسك وهو عن طريق الضغط على مفتاحي Ctrl + Page Down للتنقل لورقة العمل التالية

ويمكنك عمل ذلك بدون الماكرو وهو عن طريق الضغط على مفتاحي Ctrl + Page Up للتنقل لورقة العمل السابقة

للعلم Ctrl + Page Up و Ctrl + Page Down هي ماكروات جاهزة تم عملها من قبل الشركة المصنعة للاكسيل وهي مايكروسوفت

---------------------------------------------------

أو يمكنك تسجيل ماكرو لعمل ذلك ..... لمزيد من المعلومات عن تسجيل الماكرو اضغط هنـا

تم تعديل أغسطس 10, 2003 بواسطه امير عاطف

[محمد طاهر عرفه]

أو أيضا

نضع الكود التالي في روتين فرعي يخص ملف العمل

woorkbook

Sub move()

 Sheets("sheet1").Activate

End Sub

و بالانتقال الي أي ورقة عمل غير sheet1

و تشغيل الماكرو ، يتم تفعيل sheet1

[الفدعاني]

جزاكم الله خيرا

تم تعديل أغسطس 11, 2003 بواسطه الفدعاني

[أبو هادي]

السلام عليكم

كذلك يمكن ذلك بهذه الطريقة بشرط وضع هذه الأكواد في موديول ThisWorkSheet .

Sub NextSheet() '-- الصفحة التالية --'

  On Error Resume Next

  Me.Sheets(Me.ActiveSheet.Index + 1).Select

End Sub


Sub PreviosSheet()  '-- الصفحة السابقة --'

  On Error Resume Next

  Me.Sheets(Me.ActiveSheet.Index - 1).Select

End Sub


Sub LastSheet()  '-- آخر صفحة --'

  On Error Resume Next

  Me.Sheets(Me.Sheets.Count).Select

End Sub


Sub FirstSheet()  '-- أول صفحة --'

  On Error Resume Next

  Me.Sheets(1).Select

End Sub

تحياتي .

[الفدعاني]

وعليكم السلام ورحمة الله

مشكور با ابو هادي