返回目录：excel表格制作
Sub abc()
Sheet2.Visible = xlSheetVisible
Sheet2.Activate
Sheet1.Visible = xlSheetHidden
End Sub
Sub abcd()
Sheet1.Visible = xlSheetVisible
Sheet1.Activate
Sheet2.Visible = xlSheetHidden
End Sub
Sub 激活隐藏e5a48de588b6e799bee5baa6e997aee7ad94337()
Dim St As Worksheet
Dim Sht As Worksheet
Dim arr, i%
Set St = Sheets("目录")
arr = St.Range("B2:C6")
For i = 2 To UBound(arr)
Set Sht = Sheets(arr(i, 1))
If arr(i, 2) = "是" Then
Sht.Visible = xlSheetVisible
ElseIf arr(i, 2) = "否" Then
Sht.Visible = xlSheetHidden
End If
Next
End Sub
用VBA在excel中添加一个工作表并且对其命名的实现方法和操作步骤如下：
1、首先，在Excel中按抄快捷键“Alt + F11”，如下图所示。
2、其次，在VBA编辑器中依次单击“插入”-->“模块”，如下图所示。
3、然后，在“模块”中输入如下代码：
Option Explicit
Sub addwork()
Sheets.Add after:=Sheets(Sheets.Count)
End Sub
4、接着，在VBA编辑器的左侧输入模块的名称，如下图所示。
5、随后，关闭VBA编辑器，返回到Excel工作表，然zhidao后依次单击“视图”-->“宏”-->“查看宏”，如下图所示。
6、最后，在弹出的窗口中单击宏名称，然后单击“执行”按钮即可，如下图所示。这样就实现了用VBA在excel中添加一个工作表并且对其命名的功能了。
1、如下图所示，我想将桌面上第一章中的每个工作百簿名称放置到工作表中。
2、新建一个工作簿，将其命名为“第一章目录”度，按alt+f11组合键，打开宏界面。
3、在VBA中，单击插入按钮，点击插入菜单下的模块，问即可新建模块，系统默认为模块1，当然也可以根据需要重命名。
4、使用do~~loop循环语句，在VBA中输入如下图所示代码：
5、返回名为“第一章目录”的工作答簿中，按alt+f8组合键，弹出宏对话框专。
6、点击宏对话框中的执行按钮，宏对话框自动关闭，代码自动执行，即第一章中属的每个文件夹名称全部显示在工作表sheet1中。最后根据自己的需要调整格式。
Sub 宏1()
Dim i
For i = 1 To 5
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=15, Top:=25 * i, Width:=180, Height:= _
20).Object.Caption = "按钮copy" & i
Next i
End Sub
程序代知码：
执行效果道：