كود التنقل الى اي صفحة في ملف اكسيل

[محمدي عبد السميع]

بسم الله الرحمن الرحيم

الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ،

تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ،

الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار،

وشغلهم بمراقبته وإدامة الأفكار ،

وملازمة الاتعاظ والاذكار،

ووفقهم للدؤوب في طاعته والتأهب لدار القرار،

والحذر مما يسخطه ويوجب دار البوار،

والمحافظة على ذلك مع تغاير الأحوال والأطوار.

أحمده أبلغ حمد وأزكاه، وأشمله وأنماه.

أما بعد:

رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته

ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ،

ولهذا ساقدم

سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له

في موضوع مستقل

وسأشرح كيفية استخدام الكود ماتيسر لي

إن شاء الله

وعلى الله قصد السبيل

******************************************

هذا

كود التنقل الى اي صفحة في ملف اكسيل

طريقة الاستفادة من الكود

افتح ملف اكسيل

اضغط على الرز 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

[طارق محمود]

السلام عليكم

جزاك الله خيرا أخي / محمدي

وبارك الله فيك

وطبعا هذا ليس بغريب علي أستاذنا الجليل / عبدالله باقشير

أدامه الله لنا مرجعا وحفظه من كل سوء

[حيدر عبده]

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

[belkacem_1980]

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

[احمد غانم]

بارك الله جودك اخي الكريم

[an1_77]

جزاك الله خيرا يا أخى الفاضل

[رعد العزاني]

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

وجزاء الله استاذنا الكبير عبد الله وأدامة ذخرا لنا

[ناصر سعيد]

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

وجزى الله استاذنا الكبير عبد الله وأدامه ذخرا لنا

[نــــ حلمي ــوّار]

جزاك الله خيرا فكرة رائعة وممتازة

[abdelmoneeim]

جزاك الله خيرا فكرة رائعة وممتازة

[إبراهيم محمد]

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

حقا انه منتدى العلماء فزادكم الله من فضله وبارك لكم فى علمكم

[احمد فضيله]

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

[alisal]

نسجل لكم عظيم الشكر على هذا الكود ونسأل الله ان يجعلك من اهل الجنة

[عمر أبو صهيب]

جزاك الله خيرا أخي محمدي عبد السميع على الحركة الجميلة و الشرح الذي يجعل المبتدئين من أمثالي يستفيدون منه

أحسن الله إليك

و حبذا لو تنجز تجميعة لهذه الأكواد و بذات الشرح ستكون موسوعة مرجعية لكل متعلم

أحسن الله إليك

تم تعديل فبراير 23, 2013 بواسطه عمر أبو صهيب

[عبد الحميد شقير]

جعل الله عملك هذا في ميزان حسناتك

[قصي]

جزاك الله خيرا استاذ محمدي عبد السميع

وها كود مع اختصار بعض الاسطر

Sub SheetList_CP()
    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
  On Error GoTo 0
End Sub

[اسلام سيد]

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

كود رووووووووووعه

[سما محمد]

جزاك الله خيرا أخي الكريم
وجزاء الله استاذنا الكبير عبد الله وأدامة ذخرا لنا
 

[وليد فتحي]

جزاك الله كل خير جعله في ميزان حسناتك

[عبدالله باقشير]

السلام عليكم

هذا الكود ليس من اعمالي وانما استخدمته كثيرا في اعمالي

 

ملحوظة:

يكفي هذا السطر من الكود ليقوم بذلك

Sub SheetList_CP()
    Application.CommandBars("Workbook Tabs").ShowPopup
End Sub

تحياتي

[megonil]

بارك الله فيكم 
على هذا المجهود 
وهذه المعلومات القيمه 

[على حسن]

 هل يمكننى تحديد بعض الصفحات فقط

تم تعديل يوليو 23, 2013 بواسطه على حسن

[ا بو سليمان]

شكرا لكم 

 

 

.

[حمادة عمر]

[منياوى]

شكراً الف شكر