إخفاء الاعمده بناءا على قيمة

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim c As Range

    If Target.Cells.CountLarge > 1 Then Exit Sub

    If Target.Row > 2 And Target.Column = 2 Then

        Cancel = True

        Application.ScreenUpdating = False

            Columns("E:R").Hidden = False

            For Each c In Range("E" & Target.Row & ":R" & Target.Row).Cells

                If c.Value = Empty Or c.Value = 0 Then c.EntireColumn.Hidden = True

            Next c

        Application.ScreenUpdating = True

    End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim c As Range

    If Target.Cells.CountLarge > 1 Then Exit Sub

    If Target.Row > 2 And Target.Column = 2 Then

        Cancel = True

        Application.ScreenUpdating = False

        Columns("E:R").Hidden = False

        For Each a In Range("E" & Target.Row & ":R" & Target.Row).Cells

            If a.Value = Empty Or a.Value = 0 Or a.EntireColumn.Hidden = True Then

                a.EntireColumn.Hidden = True

            Else

                a.EntireColumn.Offset(0, 1).EntireColumn.Hidden = True

            End If

        Next a

        Application.ScreenUpdating = True

    End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim c As Range, S As Long

    If Target.Cells.CountLarge > 1 Then Exit Sub

    If Target.Row > 2 And Target.Column = 2 Then

        Cancel = True

        Application.ScreenUpdating = False

        Columns("E:R").Hidden = False

        S = MsgBox("هل تريد الكمية والنسبة؟", 36, "")

        For Each A In Range("E" & Target.Row & ":R" & Target.Row).Cells

            If S = 7 Then

                If A.Value = Empty Or A.Value = 0 Or A.EntireColumn.Hidden = True Then

                    A.EntireColumn.Hidden = True

                Else

                    A.EntireColumn.Offset(0, 1).EntireColumn.Hidden = True

                End If

            Else

                If A.Value = Empty Or A.Value = 0 Then A.EntireColumn.Hidden = True

            End If

        Next A

        Application.ScreenUpdating = True

    End If

End Su