大家好,小鑫来为大家解答以上的问题。全列这个很多人还不知道,现在让我们一起来看看吧！

1、如果B、C、D、E列分别是9/10/11/12月，A1输入几月，其他月便隐藏。

2、用VB编程最方便，只要在A1分别输入9,10,11,12，则只有相应的列出现，其他都隐藏。

3、源码如下： I = Val(Sheet1.Cells(1, 1))If I = 9 Then Columns("B:E").Select Selection.EntireColumn.Hidden = True Columns("B:B").Select Selection.EntireColumn.Hidden = FalseSheet1.Cells(1, 1).Select Else If I = 10 Then Columns("B:E").Select Selection.EntireColumn.Hidden = True Columns("C:C").Select Selection.EntireColumn.Hidden = False Sheet1.Cells(1, 1).Select ElseIf I = 11 Then Columns("B:E").Select Selection.EntireColumn.Hidden = True Columns("D:D").Select Selection.EntireColumn.Hidden = False Sheet1.Cells(1, 1).Select Else Columns("B:E").Select Selection.EntireColumn.Hidden = True Columns("E:E").Select Selection.EntireColumn.Hidden = False Sheet1.Cells(1, 1).Select End IfEnd IfEnd If End Sub 如需完善可继续帮你。

本文到此分享完毕，希望对大家有所帮助。