أساتذتي الكرام .. هل يوجد كود لتحديد خلية معينة عند فتح الملف

[ماكس]

السلام عليكم أخواني واساتذتي

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

وهل يوجد كود يحدد نطاق الصفحة عند فتح ملف في صفحة رئيسية محددة مسبقا بحيث لا تتحرك الصفحة للأسفل عند فتح الملف في كل مرة

وكود آخر لإخفاء مؤشر الماوس في بعض الشيتات .

أعرف أنني طلبت الكثير ولكن للاهمية ولتعم الفائدة للجميع من وجهة نظري هذه اشياء مهمة يجب أن نعرفها لنطبقها

أشكر كل من يساهم في بناء هذا الصرح الرائع ..

[ابو علي و سدرة]

حسب ما فهمت دا المطلوب الاول : كل ما هاتفتح الشيت هتلاقى الخلية النشطة هى اللى متحددة فى الكود

Sheet1 : zz3000

Sheet2 : AS20

Sheet3 :  A7

 

sss.rar

[Guest محمد ابو صهيب]

 

Option Explicit
Dim ws As Worksheet
Private Sub Workbook_Open()
For Each ws In ThisWorkbook.Sheets
ws.ScrollArea = "$A$1:$S$24"
Next ws
Range("A1").Select
End Sub


Option Explicit

Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "A1:S24"
End Sub

Scrollarea.rar

تم تعديل مارس 24, 2016 بواسطه محمد ابو صهيب

[ماكس]

أخي rasboten بالضبط هذا ما أقصده

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

شكرا لكم أخواني والله انكم اختصرتوا على البحث عن هذه الاكواد لانها مهم بالنسبة لي كثيراً

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

بارك الله فيكم

[Guest محمد ابو صهيب]

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

لا داعي للألقاب المغرورة ..من كلمة استاذي ...والله أفضل كلمة يتقرب بها المرء لأخيه وهي كلمة اخي.....

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

"   اللهم لا تؤخذني بما يقولون واغفرما لا يعلمون واجعلني خير مما يظنون  "

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

تم تعديل مارس 24, 2016 بواسطه محمد ابو صهيب

[وائل يونس سلامي]

أخواني الأحبة كما يمكن تنفيذ المطلوب بالكود التالي والذي وللأسف لا أذكر من أفادني به من إخواني وأساتذتي الأحبة في هذا المنتدى المميز 

له أيا كان كل الدعاء بالتوفيق والشكر 

ولكم كذلك 

هذا الكود يلزم ملف الإكسل أن يفتح على صفحة محددة - في هذا الكود اسم الصفحة welcome 

ويحدد الخلية A1  و هذا هو الكود      

كل شكري وتقديري لكم جميعا

 

()Sub Auto_open

showWelcome

End Sub

()Sub showWelcome

Sheets("Welcome").Select

Range("A1").Select

End Sub

تم تعديل مارس 24, 2016 بواسطه wael salami