الخاصية ScrollArea

[أبوعيد]

السلام عليكم : بخصوص الفيجول

عند النقر بالزر الأيمن فوق الورقة 1 واختيار عرض التعليمات البرمجية تظهر كثيرمن خصائص الورقة

ونركز فيه على الخاصية ScrollArea

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

قمت بتغيير الخاصية إلى $A$1:$B$10

وهذا يحصر التحرك في النطاق الموضح

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

سؤالي هذ استطيع حفظ التغيرات عند تغيير الخاصية السابقة بدون كود ؟

[عبد الفتاح كيرة]

هذه خاصية خاصة بالكود

ضع الكود التالى فى حدث تنشيط الورقة

Private Sub Worksheet_Activate()

Sheets(1).ScrollArea = "a1: a10"


End Sub

تم تعديل ديسمبر 6, 2010 بواسطه kemas

[عبدالله المجرب]

هذه خاصية خاصة بالكود

ضع الكود التالى فى حدث تنشيط الورقة

Private Sub Worksheet_Activate()

Sheets(1).ScrollArea = "a1: a10"


End Sub

الاستاذ الغالي Kemas

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

[عبد الفتاح كيرة]

ضع الكود فى حدث فتح المصنف

Private Sub Workbook_Open()

Sheets(1).ScrollArea = "a1: a10"

End Sub

ثم احفظ الملف و أعد فتحه

[عبدالله المجرب]

بارك الله فيك استاذي الفاضل

[خالد القدس]

السلام عليكم

تسلم الأيادي أيها الخبير الفذ كيماس

[عبد الفتاح كيرة]

حيا الله الأستاذ ولد المجرب

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

شكرا للأستاذ خالد