كيف يفتح الأكسل على شيت معين

[waelac27]

السلام عليكم

الاخوة الكرام تحية طيبة

اريد من حضراتكم سؤالين في الاكسل

1- كيف اجعل الاكسل يفتح على شيت معين عند بدأ التشغيل

2- كيف اجعل خلية معينة= اسم الشيت اي يظهر بها اسم الشيت

[طارق محمود]

السلام عليكم

مرحبا بك أخي الكريم بين إخوانك

أولا لتجعل الاكسل يفتح على شيت معين عند بدأ التشغيل ، مثلا الشيت الثالث 3

ضع الكود التالي في حدث الملف Workbook

Private Sub Workbook_Open()

Sheets(3).Select

End Sub

ثانيا لتجعل خلية معينة= اسم الشيت أكتب بها هذه المعادلة

=RIGHT(CELL("filename"),LEN(CELL("filename"))-SEARCH("]",CELL("filename")))

تم تعديل سبتمبر 27, 2010 بواسطه TareQ M

[طارق محمود]

المرفق به ماسبق

يحتوي علي 3 شيتات

بكل شييت بالخلية B2 المعادلة السابقة لكتابة اسم الشيت

وبه كود يجعل فتحه دائما علي الشيت3

try.rar

[waelac27]

السلام عليكم

شكراً اخوتي في الله وجزاكم الله خيرا ونفع بكم المسلمين

[abuhoba]

بارك الله فيكم فكم استفدت منكم 

[مجدى يونس]

الاخ طارق
بارك الله فيك

[اسلام سيد]

السلام عليكم ورحمة الله وبركاته

 

استاذنا العزيز طارق محمود ، بارك الله فيكم  ونفع بكم

 

لى استفسار بخصوص معادلة كتابه اسم الشيت

 

عند تغير اسم شيت معين وليكن sheet3

 

يسمع اسم الشيت الجديد فى الخليه التى بها معادله فى جميع الشيتات

 

فهل من طريقه تجعل كل خاليه تختص بتغير شيتها فقط ؟

 

وجزاكم الله خيرا.

[طارق محمود]

السلام عليكم

أخي العزيز

لم أفهم السؤال جيدا

بخصوص معادلة كتابه اسم الشيت ، عند تغير اسم شيت معين وليكن sheet3

يسمع اسم الشيت الجديد فى الخليه التى بها معادله فى جميع الشيتات

فهل من طريقه تجعل كل خاليه تختص بتغير شيتها فقط ؟

المعادلة الحالية في المشاركة #2

=RIGHT(CELL("filename"),LEN(CELL("filename"))-SEARCH("]",CELL("filename")))

تأتي بإسم الورقة التي فيها المعادلة فقط

جرب مرة أخري أو إشرح أكثر ماالمشكلة

[اسلام سيد]

السلام عليكم

 

استاذ طارق جزاكم الله خيرا

 

اليك ملف به 3 اسماء مختلفة لكل شيت ، ومع ذالك الاسم الموجود مكان المعادله ( اسم واحد فقط) فى 3 شيتات

 

ثم عند غلق الملف يتطلب  ( الحفظ او عدم حفظ ) من غير سبب

 

فلو اخترت  الحفظ فغلق الملف ثم افتحه مره اخرى يتم عند الفتح تغير الاسم مكان المعادله ( فلو كان اسلام ستجده تغير الى محمد ثم الى احمد)

 

اما لو اخترت عدم الحفظ فغلق الملف ثم اعد فتح الملف مرة اخرى ستجد ان الاسم (لم يتغير فى 3 شيتات  وهو اسم واحد)

 

           try.rar

 

 

 

 

[طارق محمود]

السلام عليكم

أخي العزيز

غير المعادلة بالتالية

=RIGHT(CELL("filename",D1),LEN(CELL("filename"))-SEARCH("]",CELL("filename")))

أو تفضل المرفق

try2.rar

[احمد فضيله]

جزاكم الله كل خير

[اسلام سيد]

السلام عليكم

 

استاذى المهندس / طارق محمود بارك الله فيكم وجزاكم عنا خيرا

 

تم حل المشكله ، ولكن ماذا كان السبب ؟ رجاءا التوضيح لتعم الفائده

 

لفت انتباهى الاختلاف بين المعادلاتين فى زياده الاخيره عن الاولى D1

 

الكود الاول :

=RIGHT(CELL("filename"),LEN(CELL("filename"))-SEARCH("]",CELL("filename")))

الكود الاخير:

=RIGHT(CELL("filename",D1),LEN(CELL("filename"))-SEARCH("]",CELL("filename")))

[طارق محمود]

هذه الدالة CELL يعقبها جزئين أحدهما إلزامي والثاني إختياري

كان الخطأ في الحالة الأولي أننا لم نستخدم الجزء الثاني الإختياري

CELL("filename")

والذي يجعل الدالة ترجع لخلية في نفس الشييت

لكن في الحالة الأولي (الخطأ)

يرجع لآخر خلية نشطة (شاملا الشيت التي به تلك الخلية النشطة)

[اسلام سيد]

هذه الدالة CELL يعقبها جزئين أحدهما إلزامي والثاني إختياري

كان الخطأ في الحالة الأولي أننا لم نستخدم الجزء الثاني الإختياري

CELL("filename")

والذي يجعل الدالة ترجع لخلية في نفس الشييت

لكن في الحالة الأولي (الخطأ)

يرجع لآخر خلية نشطة (شاملا الشيت التي به تلك الخلية النشطة)

 

جزاكم الله خيرا

[nasr144]

اين اضع 

 

Private Sub Workbook_Open()

Sheets(3).Select

End Sub

في الملف الجاهز

[nasr144]

برجاء الرد سريعاً علشان انا عندي ملف عايز ابعته

[احمد ابوزيزو]

بعد اذن السادة الاعضاء

طريقة وضع الكود ومكانة

1/ اضغط كليك يمين علي اي ورقة من اوراق الملف واختار عرض التعليمات البرمجية

2/ اضغط علي thisworkbook

3/ افتح الصندوق علي اليسار واختار workbook

4/ في الحدث open اكتب الكود

Private Sub Workbook_Open()
Sheets(3).Select
End Sub
 

[هاشم بركات]

احسنت استاذ طارق بارك الله فيك ونفع بك الامة