Các code trong excel

Ẩn cột theo điều kiện
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = 5 Then
Range("B:D").EntireColumn.Hidden = True
Else
Range("B:B").EntireColumn.Hidden = False
End If
End If
End Sub