اريد كود لجعل اكسل يبدأ بفتح صفحة معينة

[الباحث عن كل جدي]

ارجو من اصحاب الخبر كود لاجبار اكسل لفتح صفحة معينة مع الشرح

[NooN2]

ارجو من اصحاب الخبر كود لاجبار اكسل لفتح صفحة معينة مع الشرح

في المنتدى تكرر هذا السوال

ابحث وستجد الحل

[يحيى حسين]

أخي الباحث

هذا هو الكود

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

[الباحث عن كل جدي]

شكرا لاخ justic

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

[يحيى حسين]

أخي الباحث من الطبيعي ان يفتح على اخر صفحة

إقرأ ما كتبته لك

كلمة Sheets كلمة محجوزة في الاكسيل و تستخدم عند الاشارة لصفحة معينة

و كل ما عليك هو تغيير اسم الصفحة بين القوسين و بين علامتي التخصيص

و هي هنا ("sheet3")

و ضع مكانها اسم الصفحة التي ترغب في ان تكون صفحة البداية الخاصة بك

مثلاً صفحتك اسمها البداية ("البداية ")

عليك تغيير اسم الصفحة بالصفحة التي ترغب ان تكون صفحة البداية بالنسبة لك

و دمت بود

[omar elhosseini]

مشكور اخى يحيى

لن تكون مشكلة الاخ الباحث عن كل جدي اسم الورقة

والا اعطى الكود خطأ ( Error 9 ) واخبرنا به الاخ الباحث عن كل جدي

وعلى ذلك ستكون المشكلة كالعادة هى مكان الكود

من المعتاد ان يتوقع الاخوة ان الكود يكون فى اى موديول

ولذلك اخى يحيي انصح فى هذه الحالات التى يمكن الاستغناء عن استخدام الاحداث بأستخدام الماكرو ( Auto_Open )

ليتم وضعة فى الموديل

فهو افضل فى الحلول بالنسبة لغير المتمرسين بالاكواد

ويكون بذلك الكود كالتالى

Sub Auto_Open()
Sheets("Omar_1").Select
End Sub

مؤفق مثال

omar_1.rar

تم تعديل سبتمبر 8, 2008 بواسطه أبو تامر

[محمدي عبد السميع]

جعله الله في ميزان حسناتك

[الباحث عن كل جدي]

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

[يحيى حسين]

أخي الحبيب أبو تامر

شكراً لك على توضيح الامور

و دمت في حفظ الله و رعايته