اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

  • 3 months later...

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

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

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

تم تعديل بواسطه nasersaeed
  • Like 1
رابط هذا التعليق
شارك

  • 2 weeks later...

استاذ / محمدى

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

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

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

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

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

 

 

قنديل.rar

 

 

قنديل.rar

  • Like 1
رابط هذا التعليق
شارك

  • 1 month later...
  • 4 weeks later...

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

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

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

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

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

رابط هذا التعليق
شارك

  • 3 months later...
  • 2 months later...

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

  • 5 months later...

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

رابط هذا التعليق
شارك

  • 5 months later...

 

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

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

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

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

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

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

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

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

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

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

أما بعد:

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

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

ولهذا ساقدم

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

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

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

إن شاء الله

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

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

هذا

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

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

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

اضغط على الرز 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 صفحة في زر واحد للتنقل بينهم ؟
رابط هذا التعليق
شارك

  • 1 year later...

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

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

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

الانتقال.rar

رابط هذا التعليق
شارك

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

السلام عليكم

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

 

ملحوظة:

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


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

تحياتي

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

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

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

رابط هذا التعليق
شارك

  • 1 year later...

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

رابط هذا التعليق
شارك

  • 3 months later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information