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