2,462
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub CommandButton1_Click()
' 按选定的月份进行 显示/隐藏 相应列
Dim i As Long, vs As Boolean
For i = 0& To 11
vs = Not ListBox1.Selected(i)
Sheet2.Columns(1& + i).EntireColumn.Hidden = vs
Sheet3.Columns(1& + i).EntireColumn.Hidden = vs
Sheet4.Columns(1& + i).EntireColumn.Hidden = vs
Next
End Sub
Private Sub CommandButton2_Click()
' 添加列表数据。可以写在别的过程中,“打开文档”时执行一次。
Dim i As Long
Call ListBox1.Clear
ListBox1.MultiSelect = 1
For i = 1 To 12
ListBox1.AddItem i & "月份"
Next
End Sub