إجبار الاكسل على الدخول من الشيت المحدد

[عبد العزيز البسكري]

رجاء إخواني الأكارم .. هل هناك طريقة تجعلني أدخل إلى ملف الاكسل دائما عبر الشيت الذي أقوم أنا بتحديده..بمعنى إجبار الاكسل على الدخول على شيت معين كالواجهة الرئيسية مثلاً ..و لكم مني فائق الشكر و الاحترام أساتذتي الأفاضل..حاولت مرارًا و تكرارًا أن أعمل واجهة رئيسية تكون هي المدخل الأساسي للبرنامج لكني فشلت و أُصبت بصداع منقطع النظير..ساعدوني على هذه المعضلة فضلاً لا أمرًا إخواني

[ibn_egypt]

اخى الفاضل

 

في حدث فتح الملف Workbook_Open اكتب الكود التالى ... غير اسم الشيت ما بين علامتى التنصيص الى اسم الشيت الذي تريده .. هنا في الكود المرفق عند فتح الملف سيفتح على شيت 2

 

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Sheet2").Activate
End Sub

تحياتي  

[عبد العزيز البسكري]

اخى الفاضل

 

في حدث فتح الملف Workbook_Open اكتب الكود التالى ... غير اسم الشيت ما بين علامتى التنصيص الى اسم الشيت الذي تريده .. هنا في الكود المرفق عند فتح الملف سيفتح على شيت 2

 

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Sheet2").Activate
End Sub

تحياتي  

ألف شكر سيدي الكريم .. جربت و جربت لكنها و الله لم تضبط معي

[ibn_egypt]

 

ألف شكر سيدي الكريم .. جربت و جربت لكنها و الله لم تضبط معي

 

 

أرفق الملف الذي تعمل عليه أخى الكريم .... واخبرنا ما الشيت الذي تريد للإكسل أن يفتح عليه مباشرة

 

تحياتي  

[عبد العزيز البسكري]

 

 

ألف شكر سيدي الكريم .. جربت و جربت لكنها و الله لم تضبط معي

 

 

أرفق الملف الذي تعمل عليه أخى الكريم .... واخبرنا ما الشيت الذي تريد للإكسل أن يفتح عليه مباشرة

 

تحياتي  

 

معذرة أخي الفاضل أتعبتك معي ..جزاك الله خيرًا و بارك الله فيك و لك ..

تم تعديل يناير 7, 2015 بواسطه feteh07

[ibn_egypt]

 

معذرة أخي الفاضل أتعبتك معي ..جزاك الله خيرًا و بارك الله فيك و لك ..تفضل الملف الشخصي الذي بودي أن أفتحه على الشيت ( الواجهة الرئيسية ) :

 

اخى الفاضل

 

اجعل سطر الكود هكذا ستزبط معك ان شاء الله

ThisWorkbook.Sheets("الواجهة الرئيسية").Activate

تحياتي  

[عبد العزيز البسكري]

 

 

معذرة أخي الفاضل أتعبتك معي ..جزاك الله خيرًا و بارك الله فيك و لك ..تفضل الملف الشخصي الذي بودي أن أفتحه على الشيت ( الواجهة الرئيسية ) :

 

اخى الفاضل

 

اجعل سطر الكود هكذا ستزبط معك ان شاء الله

ThisWorkbook.Sheets("الواجهة الرئيسية").Activate

تحياتي  

 

و أخيرًا الحمد لله تم المطلوب..الفضل لله ثم لك أستاذي الغالي ..بارك الله فيك دنيا و آخرة

[وليد زقزوق]

رائع