زووم للشيت فى حالة الضغط على اى خلية فى العمود

[ابوحمزه المصرى]

السلام عليكم اخوانى أعضاء منتدى أوفيسنا العملاق هل من الممكن عمل زووم للشيت 120% فى حالة الضغط على اى خلية فى العمود E أو F أ, G وعودة الزووم عند الضغط على باقى خلايا الشيت

رجاء من الاخوة  تطبيق المثال فى شيت فارغ 2010

[ياسر خليل أبو البراء]

أخي الفاضل صلاح

إليك الملف التالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Then
        ActiveWindow.Zoom = 120
    Else
        ActiveWindow.Zoom = 100
    End If
End Sub

Zoom If Columns Selected.rar

[ابوحمزه المصرى]

^{بارك الله فيك اخى الكريم ياسر وأعزك الله جمايلك كثرة عليا ياغالى} 

[ياسر خليل أبو البراء]

أخي الكريم صلاح

أين الالتزام بالتوجيهات ؟؟؟

 

أفضل إجابة ..

[أبو أية]

تحياتى لجميع الأخوة الأعزاء بهذا المنتدى

الأستاذ الحبيب ياسر/ هل يمكن تعديل هذا الكود بحيث يمكن تطبيقه على نطاق معين (مثلا من العمود E إلى العمود AA )

تم تعديل أبريل 14, 2015 بواسطه أبو أية