怎样使用VBA工作表批量显示与隐藏?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub CommandButton1_Click()

Dim i As Byte
For i=0 To ListBox1.ListCount-1
  ListBox1.Selected(i)=True
Next
End Sub

5、单击工作表中的“按钮1”，弹出前面所设计的窗体，在窗体中按图所示。选择并确定，则未选中的工作表“Sheet2”自动隐藏