在表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("工作表名")表示