الاخفاء
Private Sub CommandButton1_Click()
For i = 1 To 255
If Cells(2, i) = "مج" Or Cells(2, i) = "مج كلى" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
End Sub
الاظهار
Private Sub CommandButton2_Click()
For i = 1 To 255
If Cells(2, i) = "مج" Or Cells(2, i) = "مج كلى" Then
Columns(i).EntireColumn.Hidden = False
End If
Next
End Sub
شيت1.rar