1 在sheet1中建立窗体按钮1、按钮2……
2 按Alt+F11,打开VBA窗口,
建立模块1,输入函数
Sub Macro1()
If Sheets("Sheet2").Visible = 0 Then Sheets("Sheet2").Visible = -1 Else Sheets("Sheet2").Visible = 0
End Sub
建立模块2,输入函数
Sub Macro2()
If Sheets("Sheet3").Visible = 0 Then Sheets("Sheet3").Visible = -1 Else Sheets("Sheet3").Visible = 0
End Sub
以此类推,需要操作几个SHEET就建几个吧。
3 回到sheet1中,
右击窗体按钮1----指定宏----Macro1
右击窗体按钮1----指定宏----Macro2
4 功能说明:如果sheet2原来是隐藏的,则点击“按钮1”为显示sheet2,否则隐藏sheet2.
5 显示/隐藏 行列,参考
If Range("a1").Rows.Hidden = True Then Range("a1").Rows.Hidden = False Else Range("a1").Rows.Hidden = True
行:Rows
列:Columns