تنسيق مقياس الشيت

[ياسر فاروق]

الساده

برجاء المساعده فى إيجاد كود لعمل الاتى:

1- ضبط مقياس الشيتيات بالملف على 75% و إمكانية تغيير المقاس ، ويتم ذلك على كل الشيتيات مره واحده

2- هل من الممكن تغيير اى شىء فى الملفات كـ رأس وتذييل الصفحات بدون فتح الملفات

وشكرا على المساعده

 

[علي المصري]

6 hours ago, YasserOriba said:

1- ضبط مقياس الشيتيات بالملف على 75% و إمكانية تغيير المقاس ، ويتم ذلك على كل الشيتيات مره واحده

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MyRange = ActiveSheet.Range("C3")
    ActiveWindow.Zoom = MyRange
End Sub

لكل شيت على حده

[ياسر فاروق]

25 دقائق مضت, علي المصري said:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MyRange = ActiveSheet.Range("C3")
    ActiveWindow.Zoom = MyRange
End Sub

لكل شيت على حده

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

وأطمع فى فهم الكود

هل يمكن تغيير المقياس

وكشرا على وقتك الثمين

[علي المصري]

MyRange = ActiveSheet.Range("C3")

تحدد الخلية التي سوق تغير فيها المقياس او الزووم للصفحة

وهنا الخلية C3

ActiveWindow.Zoom = MyRange

هذه الدالة التي تعمل عملية الزووم

[ياسر فاروق]

12 ساعات مضت, علي المصري said:

MyRange = ActiveSheet.Range("C3")

تحدد الخلية التي سوق تغير فيها المقياس او الزووم للصفحة

وهنا الخلية C3

ActiveWindow.Zoom = MyRange

هذه الدالة التي تعمل عملية الزووم

أ/على لمصرى

شكرا جزيلا على المساعده التى تقدمها

هذا يعنى إنه إذ تم عمل مفتاح للكود يعمل على الشيتات دفعه واحدة لاى ملف ويجعل مقاسها 75 % أو على حسب

وهل تغيير الخلية لها تأثير أو من عدمه

 

وشكرا

[علي المصري]

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