بسم الله الرحمن الرحيم
الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ،
تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ،
الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار،
وشغلهم بمراقبته وإدامة الأفكار ،
وملازمة الاتعاظ والاذكار،
ووفقهم للدؤوب في طاعته والتأهب لدار القرار،
والحذر مما يسخطه ويوجب دار البوار،
والمحافظة على ذلك مع تغاير الأحوال والأطوار.
أحمده أبلغ حمد وأزكاه، وأشمله وأنماه.
أما بعد:
رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته
ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ،
ولهذا ساقدم
سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له
في موضوع مستقل
وسأشرح كيفية استخدام الكود ماتيسر لي
إن شاء الله
وعلى الله قصد السبيل
******************************************
هذا
كود التنقل الى اي صفحة في ملف اكسيل
طريقة الاستفادة من الكود
افتح ملف اكسيل
اضغط على الرز ALT وانت ضاغط على الزر
اضغط على F11 الموجود أعلا لوحة المفاتيح
ستظهر شاشة الماكرو
اضغط على موديول 1
سيتم فتح الموديول
الصق فيه الكود الموجود
تحت هذا السطر
[/center]
' ' هذا الكود للعالم العلامة عبد الله باقسير
Sub GO_TO()
On Error Resume Next
Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute
If Err.Number > 0 Then
Err.Clear
Application.CommandBars("Workbook Tabs").ShowPopup
End If
Activewindow.ScrollColumn = 1
Activewindow.ScrollRow = 1
On Error GoTo 0
End Sub
في هذا الكود البسيط والمفيد
عند الضغط على الزر
ستنسدل قائمة بأسماء كل الصفحات الموجوده بالملف
اختر منها الورقة التي تبعاها
ودمتم في حفظ الله
التنقل بين الصفحات.rar