搜档网
当前位置:搜档网 › EXCEL文档编程

EXCEL文档编程

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("d4").Value = "产院内派发" Or Range("d4").Value = "产院外派发" Or Range("d4").Value = "商品培训" Or Range("d4").Value = "妈妈教室" Or Range("d4").Value = "SPA馆" Then
Columns("p:p").EntireColumn.Hidden = False
Columns("q:q").EntireColumn.Hidden = False
Columns("r:r").EntireColumn.Hidden = False
Else

Columns("p:p").EntireColumn.Hidden = True
Columns("q:q").EntireColumn.Hidden = True
Columns("r:r").EntireColumn.Hidden = True

End If

If Range("g4").Value = "是" Then
Columns("k:k").EntireColumn.Hidden = False
Columns("h:h").EntireColumn.Hidden = False
Columns("i:i").EntireColumn.Hidden = False
Columns("l:l").EntireColumn.Hidden = False
Columns("m:m").EntireColumn.Hidden = False
Columns("n:n").EntireColumn.Hidden = False
Else

Columns("k:k").EntireColumn.Hidden = True
Columns("h:h").EntireColumn.Hidden = True
Columns("i:i").EntireColumn.Hidden = True
Columns("l:l").EntireColumn.Hidden = True
Columns("m:m").EntireColumn.Hidden = True
Columns("n:n").EntireColumn.Hidden = True

End If
End Sub

相关主题