لماذا لا يعمل الكود التالى

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

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

اسعد الله اوقاتكم

لدى فى حدث الشيت كود لتنفيذ أمر وكود للزووم لماذا لا يعمل كود الزووم 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("s3")) Is Nothing Then
         Tarhil
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$s$1" Then
    ActiveWindow.Zoom = 120
ElseIf Target.Address = "$s$2" Then
    ActiveWindow.Zoom = 120
ElseIf Target.Address = "$s$3" Then
    ActiveWindow.Zoom = 120
         Else
    ActiveWindow.Zoom = 80
  End If
End Sub

الزووم لا يعمل.rar

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

أخي الغالي صلاح

حل مشكلتك بسيط للغاية ..خلي حرف الـ s المكتوب بالـ Small خليه Capital حرف كبير

بمعنى آخر يكون الكود بهذا الشكل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$S$1" Then
        ActiveWindow.Zoom = 120
    ElseIf Target.Address = "$S$2" Then
        ActiveWindow.Zoom = 120
    ElseIf Target.Address = "$S$3" Then
        ActiveWindow.Zoom = 120
    Else
        ActiveWindow.Zoom = 80
    End If
End Sub

تقبل تحياتي

 

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

فعلا الحل بسيط لم يأتى على بالى    .. بارك الله فيك اخى ابو البراء.. شكراً لك

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

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

بالفعل مشكلة غريبة ..من المفترض أن يعمل الكود سواء الحرف كابيتال أو صمول .. ولكن يبدو أن سبب المشكلة كما تبين لك

تقبل تحياتي