الباحث عن كل جدي قام بنشر سبتمبر 6, 2008 قام بنشر سبتمبر 6, 2008 ارجو من اصحاب الخبر كود لاجبار اكسل لفتح صفحة معينة مع الشرح
NooN2 قام بنشر سبتمبر 6, 2008 قام بنشر سبتمبر 6, 2008 ارجو من اصحاب الخبر كود لاجبار اكسل لفتح صفحة معينة مع الشرح في المنتدى تكرر هذا السوال ابحث وستجد الحل
يحيى حسين قام بنشر سبتمبر 6, 2008 قام بنشر سبتمبر 6, 2008 أخي الباحث هذا هو الكود Private Sub Workbook_Open() Sheets("sheet3").Activate Range("a1").Select End Sub و لاحظ انه تم وضعه في الحدث Private Sub Workbook_Open() و شرحه بسيط جدا Sheets("sheet3").Activate كلمة Sheets كلمة محجوزة في الاكسيل و تستخدم عند الاشارة لصفحة معينة و كل ما عليك هو تغيير اسم الصفحة بين القوسين و بين علامتي التخصيص و هي هنا ("sheet3") و ضع مكانها اسم الصفحة التي ترغب في ان تكون صفحة البداية الخاصة بك مثلاً صفحتك اسمها البداية ("البداية ") و هكذا يصبح شكل الكود Sheets("البداية").Activate و نهاية الامر Activate و هو الامر الذي يقوم الاكسيل بناءاً عليه بتفعيل هذه الصفحة عند كل بداية للملف أتمنى ان تكون قد وضحت الصورة لك و دمت في حفظ الله و رعايته Sheet3.rar
الباحث عن كل جدي قام بنشر سبتمبر 8, 2008 الكاتب قام بنشر سبتمبر 8, 2008 شكرا لاخ justic ولكن يأ خي لم يتم تنفيذ المطلوب عندما وضعت الكود حيث ان اكسيل يفتح على اخر صفة كنت تعمل فيها ارجو الرد
يحيى حسين قام بنشر سبتمبر 8, 2008 قام بنشر سبتمبر 8, 2008 أخي الباحث من الطبيعي ان يفتح على اخر صفحة إقرأ ما كتبته لك كلمة Sheets كلمة محجوزة في الاكسيل و تستخدم عند الاشارة لصفحة معينة و كل ما عليك هو تغيير اسم الصفحة بين القوسين و بين علامتي التخصيص و هي هنا ("sheet3") و ضع مكانها اسم الصفحة التي ترغب في ان تكون صفحة البداية الخاصة بك مثلاً صفحتك اسمها البداية ("البداية ") عليك تغيير اسم الصفحة بالصفحة التي ترغب ان تكون صفحة البداية بالنسبة لك و دمت بود
omar elhosseini قام بنشر سبتمبر 8, 2008 قام بنشر سبتمبر 8, 2008 (معدل) مشكور اخى يحيى لن تكون مشكلة الاخ الباحث عن كل جدي اسم الورقة والا اعطى الكود خطأ ( Error 9 ) واخبرنا به الاخ الباحث عن كل جدي وعلى ذلك ستكون المشكلة كالعادة هى مكان الكود من المعتاد ان يتوقع الاخوة ان الكود يكون فى اى موديول ولذلك اخى يحيي انصح فى هذه الحالات التى يمكن الاستغناء عن استخدام الاحداث بأستخدام الماكرو ( Auto_Open ) ليتم وضعة فى الموديل فهو افضل فى الحلول بالنسبة لغير المتمرسين بالاكواد ويكون بذلك الكود كالتالى Sub Auto_Open() Sheets("Omar_1").Select End Sub مؤفق مثال omar_1.rar تم تعديل سبتمبر 8, 2008 بواسطه أبو تامر
الباحث عن كل جدي قام بنشر سبتمبر 8, 2008 الكاتب قام بنشر سبتمبر 8, 2008 شكرا للاخ ابو تامر وابويحيى وقد تم المطلوب وجزاكم الله خير ارجو النظر في موضوع اخر وهو نقل خلايا معينة او اي خلايا اخرى بدون استخدام اللصق والنسخ ارجو الافادة
يحيى حسين قام بنشر سبتمبر 9, 2008 قام بنشر سبتمبر 9, 2008 أخي الحبيب أبو تامر شكراً لك على توضيح الامور و دمت في حفظ الله و رعايته
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.