إخفاء عمود بناءً على ناتج معادلة

[ايمن ريا]

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

 

الأخوة الأفاضل : برجاء التكرم بالاطلاع على المرفق والمساعدة فيه قدر الإمكان ، ولكم كل الشكر والتقدير .

Hide Column.rar

[احمد عبد الناصر]

السلام عليكم

 

كمحاولة ممكن ان تستبدله بهذا الكود (لكن مشكله عدم التراجع ما زالت قائمة)

 

Private Sub Worksheet_Activate()
On Error Resume Next
If Range("k1").Value > 0 Then
Columns("E").Hidden = False
Else
Columns("E").Hidden = True
End If
End Sub

 

 

تحياتي

[ايمن ريا]

شكراً أخي الكريم / أحمد ، هذا ما أردت ، وكل الأمل فى الوصول لحل مشكلة عدم التراجع .

[عبدالله باقشير]

السلام عليكم

الشكر واصل لاخي احمد  حفظه الله

 

بهذا الكود تقريب لن تلاحظ اي اهتزاز

 

Private Sub Worksheet_Calculate()
On Error Resume Next

    If Range("k1").Value = 0 Then
        Columns("E").EntireColumn.Hidden = True
    Else
        Columns("E").EntireColumn.Hidden = False
    End If
    
    On Error GoTo 0
End Sub

 

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

 

تحياتي

[ايمن ريا]

كل الشكر للأستاذ / عبد الله ، وأعتذر لعدم منطقية الطلب ، ولكنها الحاجة ، ولا يفتى ومالك فى المدينة .