在表1里添加按钮,再指定到到相应的宏
Sub 显隐表2()
ThisWorkbook.Worksheets(2).Visible = Not ThisWorkbook.Worksheets(2).Visible
End Sub
Sub 显隐表2行1()
ThisWorkbook.Worksheets(2).Rows("1:1").Hidden = Not ThisWorkbook.Worksheets(2).Rows("1:1").Hidden
End Sub
Sub 显隐表2行1到行10()
ThisWorkbook.Worksheets(2).Rows("1:10").Hidden = Not ThisWorkbook.Worksheets(2).Rows("1:10").Hidden
End Sub
Sub 显隐表2列A()
ThisWorkbook.Worksheets(2).Columns("A").Hidden = Not ThisWorkbook.Worksheets(2).Columns("A").Hidden
End Sub
Sub 显隐表2列A到列J()
ThisWorkbook.Worksheets(2).Columns("A:J").Hidden = Not ThisWorkbook.Worksheets(2).Columns("A:J").Hidden
End Sub
'ThisWorkbook.Worksheets(2)表示第2个工作表,如果表的位置经常有变动时最好用ThisWorkbook.Worksheets("工作表名")表示