مشكلة في ScrollArea

[skyblue]

الاساتذة الافاضل :

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

بخصوص SCROLL AREA

عندما استخدمها في الكود بهذا الشكل

Sheets("sheet1").ScrollArea = "c3:j3"

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

Sheets("sheet3").ScrollArea = "d6:i9,d9:i22,k13:m17"

فهل عندي خطأ في الكود ام انها لاتقبل الا مجال واحد .

مرفق ملف امل التكرم بالتعديل عليه

[علي السحيب]

لا يمكن تحديد أكثر من نطاق داخال خاصية ScrollArea

ولكن يمكن التنقل بين النطاقات حسب قائمة منسدلة إذا أحببت.

[skyblue]

اولا شكرا لك على الرد .

ثانيا : هل توجد اي طريقة تحل محل scroll Area واحدد لها اكثر من نطاق ؟؟

وماهي طريقة التنقل بين النطاقات عن طريقة قائمة منسدلة ..

تحياتي لك

[علي السحيب]

ثانيا : هل توجد اي طريقة تحل محل scroll Area واحدد لها اكثر من نطاق ؟؟

نعم يمكن اللجوء إلى جعل خلايا النطاقات التي تريد التنقل خلالها غير مؤمنة .. ثم حماية ورقة العمل .. وبهذا تسطيع التنقل بين النطاقات والورقة محمية .. ولمعلومات أكثر حول هذا الموضوع راجع الرابط التالي:

http://www.officena.net/ib/index.php?showtopic=2350

وماهي طريقة التنقل بين النطاقات عن طريقة قائمة منسدلة ..

شاهد المرفق،

________________________________________.rar

[skyblue]

استاذ ي علي السحيب شكرا لك اولا طبقت اللي قلته لي حيث قمت بعمل scroll area لكامل الصففحة ثم قمت بعمل حماية لبعض النطاقات وضبطت معي مئة في المئة .

ثانيا : ايضا الملف الخاص بتحديد النطاقات عن طريق القائمة المنسدلة في حد ذاته اضافة جديدة وطريقة ممتازة .

لك مني كل الشكر والتقدير

تحياتي لك ...