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

[عبدالحليم حافظ]

الى الامام .. وكل عام والجميع بخير

[م/ مغترب]

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

[ناصر سعيد]

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

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

Sub kh_PageSelect()
Dim P As Integer
Dim Adr As String
On Error GoTo 1
P = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
Adr = ActiveSheet.HPageBreaks(P - 1).Location.Address
Range(Adr).Select

1:
If Err Then Err.Clear: Range("a2").Select
End Sub

التنقل الى صفحات الطباعة.rar

تم تعديل نوفمبر 20, 2013 بواسطه nasersaeed

[جلال الجمال_ابو أدهم]

جزاك الله خيرا_كود جميل

[جلال الجمال_ابو أدهم]

استاذ / محمدى

يرجى الاطلاع على

ملف _ فورم اضافة شيتات ملف اكسيل و التنقل بين الصفحات تم تعديل ديسمبر 4, 2013 بواسطه galal elgammal

[قنديل الصياد]

واضيف كود للتنقل من خلال فورم اقتبسته من اساتذة المنتدى

الاستاذ الكبير / عبد الله باقشير

الاستاذ الجميل الاستاذ / حمادة عمر

 

 

قنديل.rar

 

 

قنديل.rar

[جلال الجمال_ابو أدهم]

أ/ قنديل الصياد

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

[قنديل الصياد]

[محمود_الشريف]

[قصي]

ارجو من السادة الكرام كبار المنتدى العظيم ان يتم

ادراج الكود الموجود بالمشاركة رقم 20

مكان  الكود الموجود بالمشاركة رقم 1

لقلة عدد الاسطر فيها وتؤدي نفس العمل

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

[ناصر سعيد]

جزيل الشكر .. بارك الله بك .. وفقك الله دائما

[أبو إيمان]

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

[ابوصلاح]

كود رائع عالمنا عبدالله بقشير

[محمد فاروق محمود]

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

[ابو يحي]

ما شاء الله لا قوة الا بالله الف الف شكر لكل اساتذتنا الكرام

[محمد لطفى]

السلام عليكم

استاذ عبد الله

لا اجد من الكلمات ما تعبر عن سعادتى ان اكون تلميذ صغير في مدرستكم

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

[سيد الأكرت]

 

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

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

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

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

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

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

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

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

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

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

أما بعد:

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

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

ولهذا ساقدم

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

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

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

إن شاء الله

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

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

هذا

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

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

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

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

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

عند الضغط على الزر

ستنسدل قائمة بأسماء كل الصفحات الموجوده بالملف

اختر منها الورقة التي تبعاها

ودمتم في حفظ الله

 

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

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

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

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

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

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

لدي سؤال في أكواد التنقل بين الصفحات من خلال مراجعة الأكواد السابقة نجد أن عدد الصفحات تصل إلى 15 صفحة وأحيانا نجد في الملف الواحد أكثر من 20 صفحة فهل يمكن استعاب 20 صفحة في زر واحد للتنقل بينهم ؟

[Mahmoud Hussein 0]

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

اريد ان اطلب شئ بخصوص فكره الكود لو تكرمتم

الطلب هو : اريد كود او تعديل على الكود الحالى يمكن من خلاله الانتقال الى الشيت الموجود به اسم العميل الموجود فى الصفحه الرئيسيه فى الخليه b1 كما موضح بالملف المرفق

الانتقال.rar

[ناصر سعيد]

في ٢٢‏/٧‏/٢٠١٣ at 22:14, عبدالله باقشير said:

السلام عليكم

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

 

ملحوظة:

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

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

تحياتي

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

وبارك فيك عالمنا الكبير

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

[lerby-7]

شكرااااااااااااااا لك

[عمر ضاحى]

هل يمكن لهذا الكود تطويره بحيث يظهر ايضا فى القائمة الصفحات المخفيه ؟ والصفحات المخفيه تظهر مثلا بشكل مائل بحيث تكون مميزه عن الصفحات الظاهره 

[مرزوقي26]

شكري لكم تقديرا لمجهوداتكم