محمدي عبد السميع قام بنشر مايو 14, 2012 قام بنشر مايو 14, 2012 بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار، مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والاذكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود التنقل الى اي صفحة في ملف اكسيل طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز 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 8 2
طارق محمود قام بنشر مايو 14, 2012 قام بنشر مايو 14, 2012 السلام عليكم جزاك الله خيرا أخي / محمدي وبارك الله فيك وطبعا هذا ليس بغريب علي أستاذنا الجليل / عبدالله باقشير أدامه الله لنا مرجعا وحفظه من كل سوء
رعد العزاني قام بنشر أكتوبر 10, 2012 قام بنشر أكتوبر 10, 2012 جزاك الله خيرا أخي الكريم وجزاء الله استاذنا الكبير عبد الله وأدامة ذخرا لنا
ناصر سعيد قام بنشر أكتوبر 28, 2012 قام بنشر أكتوبر 28, 2012 جزاك الله خيرا أخي الكريم وجزى الله استاذنا الكبير عبد الله وأدامه ذخرا لنا
إبراهيم محمد قام بنشر يناير 8, 2013 قام بنشر يناير 8, 2013 جزاك الله خيرا فكرة رائعه جدا وقد كنت ابحث فى المنتدي عن شىء من هذا القبيل وسبحان الله وجدته وفرحت جدا به حقا انه منتدى العلماء فزادكم الله من فضله وبارك لكم فى علمكم
alisal قام بنشر فبراير 16, 2013 قام بنشر فبراير 16, 2013 نسجل لكم عظيم الشكر على هذا الكود ونسأل الله ان يجعلك من اهل الجنة
عمر أبو صهيب قام بنشر فبراير 23, 2013 قام بنشر فبراير 23, 2013 (معدل) جزاك الله خيرا أخي محمدي عبد السميع على الحركة الجميلة و الشرح الذي يجعل المبتدئين من أمثالي يستفيدون منه أحسن الله إليك و حبذا لو تنجز تجميعة لهذه الأكواد و بذات الشرح ستكون موسوعة مرجعية لكل متعلم أحسن الله إليك تم تعديل فبراير 23, 2013 بواسطه عمر أبو صهيب 2
قصي قام بنشر أبريل 19, 2013 قام بنشر أبريل 19, 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 2
سما محمد قام بنشر أبريل 19, 2013 قام بنشر أبريل 19, 2013 جزاك الله خيرا أخي الكريم وجزاء الله استاذنا الكبير عبد الله وأدامة ذخرا لنا
عبدالله باقشير قام بنشر يوليو 22, 2013 قام بنشر يوليو 22, 2013 السلام عليكم هذا الكود ليس من اعمالي وانما استخدمته كثيرا في اعمالي ملحوظة: يكفي هذا السطر من الكود ليقوم بذلك Sub SheetList_CP() Application.CommandBars("Workbook Tabs").ShowPopup End Sub تحياتي 9
megonil قام بنشر يوليو 23, 2013 قام بنشر يوليو 23, 2013 بارك الله فيكم على هذا المجهود وهذه المعلومات القيمه
على حسن قام بنشر يوليو 23, 2013 قام بنشر يوليو 23, 2013 (معدل) هل يمكننى تحديد بعض الصفحات فقط تم تعديل يوليو 23, 2013 بواسطه على حسن
الردود الموصى بها