ناصر سعيد قام بنشر نوفمبر 20, 2013 قام بنشر نوفمبر 20, 2013 (معدل) كود التنقل بين الصفحات داخل الشيت الواحد ياخذ رقم الصفحة من الرقم الذي مكتوب في الزر للاستاذ عبد الله باقشبر 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 1
جلال الجمال_ابو أدهم قام بنشر ديسمبر 4, 2013 قام بنشر ديسمبر 4, 2013 (معدل) استاذ / محمدى يرجى الاطلاع على ملف _ فورم اضافة شيتات ملف اكسيل و التنقل بين الصفحات تم تعديل ديسمبر 4, 2013 بواسطه galal elgammal
قنديل الصياد قام بنشر ديسمبر 4, 2013 قام بنشر ديسمبر 4, 2013 واضيف كود للتنقل من خلال فورم اقتبسته من اساتذة المنتدى الاستاذ الكبير / عبد الله باقشير الاستاذ الجميل الاستاذ / حمادة عمر قنديل.rar قنديل.rar 1
جلال الجمال_ابو أدهم قام بنشر ديسمبر 5, 2013 قام بنشر ديسمبر 5, 2013 أ/ قنديل الصياد بارك الله فيك _ فعلا تعدد الاقتراحات للموضوع الواحد فيه اثراء لاعضاء المنتدى
قصي قام بنشر يناير 30, 2014 قام بنشر يناير 30, 2014 ارجو من السادة الكرام كبار المنتدى العظيم ان يتم ادراج الكود الموجود بالمشاركة رقم 20 مكان الكود الموجود بالمشاركة رقم 1 لقلة عدد الاسطر فيها وتؤدي نفس العمل وجزاكم الله خيرا
ناصر سعيد قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 جزيل الشكر .. بارك الله بك .. وفقك الله دائما
محمد فاروق محمود قام بنشر يوليو 23, 2014 قام بنشر يوليو 23, 2014 اشكر كل من شارك في هذا العمل المميز وفققم الله جميعاً ولكن عندي سؤال هل يمكن اضافة ورقة جديدة تكون كوبي من ورقة اخري ولكن اسمها ممكن اكتبة بنفسي من الخارج
ابو يحي قام بنشر ديسمبر 25, 2014 قام بنشر ديسمبر 25, 2014 ما شاء الله لا قوة الا بالله الف الف شكر لكل اساتذتنا الكرام
محمد لطفى قام بنشر ديسمبر 27, 2014 قام بنشر ديسمبر 27, 2014 السلام عليكم استاذ عبد الله لا اجد من الكلمات ما تعبر عن سعادتى ان اكون تلميذ صغير في مدرستكم وجزاك الله خيرا
سيد الأكرت قام بنشر يونيو 16, 2015 قام بنشر يونيو 16, 2015 بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والاذكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود التنقل الى اي صفحة في ملف اكسيل طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز 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 في هذا الكود البسيط والمفيد عند الضغط على الزر ستنسدل قائمة بأسماء كل الصفحات الموجوده بالملف اختر منها الورقة التي تبعاها ودمتم في حفظ الله أخى الكريم هل من الممكن تعديل الكود ليخفى الصفحات الباقية بدلا من أن تتجاور الصفحات في الشريط من أسفل وبدلا من ذلك تظهر الصفحة التى تم الضغط عليها واخفاء الباقي
عبدالعزيز محمد قام بنشر يونيو 17, 2015 قام بنشر يونيو 17, 2015 السلام عليكم ورحمة بارك الله فيكم لدي سؤال في أكواد التنقل بين الصفحات من خلال مراجعة الأكواد السابقة نجد أن عدد الصفحات تصل إلى 15 صفحة وأحيانا نجد في الملف الواحد أكثر من 20 صفحة فهل يمكن استعاب 20 صفحة في زر واحد للتنقل بينهم ؟
Mahmoud Hussein 0 قام بنشر أغسطس 9, 2016 قام بنشر أغسطس 9, 2016 بارك الله فى كل من قام باعداد ونشر هذا الكود وجذاكم الله خيرا و جعله فى ميزان حسناتكم اريد ان اطلب شئ بخصوص فكره الكود لو تكرمتم الطلب هو : اريد كود او تعديل على الكود الحالى يمكن من خلاله الانتقال الى الشيت الموجود به اسم العميل الموجود فى الصفحه الرئيسيه فى الخليه b1 كما موضح بالملف المرفق الانتقال.rar
ناصر سعيد قام بنشر يونيو 20, 2017 قام بنشر يونيو 20, 2017 في ٢٢/٧/٢٠١٣ at 22:14, عبدالله باقشير said: السلام عليكم هذا الكود ليس من اعمالي وانما استخدمته كثيرا في اعمالي ملحوظة: يكفي هذا السطر من الكود ليقوم بذلك Sub SheetList_CP() Application.CommandBars("Workbook Tabs").ShowPopup End Sub تحياتي جزاك الله كل خير وبارك فيك عالمنا الكبير عبد الله باقشير
عمر ضاحى قام بنشر أكتوبر 20, 2018 قام بنشر أكتوبر 20, 2018 هل يمكن لهذا الكود تطويره بحيث يظهر ايضا فى القائمة الصفحات المخفيه ؟ والصفحات المخفيه تظهر مثلا بشكل مائل بحيث تكون مميزه عن الصفحات الظاهره
الردود الموصى بها