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