高分请教:2010版本EXCEL显示或隐藏①行、列;②工作表

发布网友发布时间：2022-05-14 07:55

我来回答

共3个回答

热心网友时间：2023-10-10 15:04

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

热心网友时间：2023-10-10 15:04

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

热心网友时间：2023-10-10 15:04

在EXCEL中，按钮是通过宏来控制的。宏是根据用户操作步骤自动生成VBA代码，保存后通过快捷键或者按钮运行。只要将宏录制好保存起来，并将其赋值给按钮，则点击按钮，可以运行宏，实现你要的功能。提高工作效率。