VBA隐藏显示工作表的行列

Admin | 2010-7-7 12:24:57 | 被阅次数 | 11887

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　想通过VBA来隐藏显示工作表中的行列，请参阅如下的代码：

　　①隐藏、显示行的VBA代码

　　Sub HideMyRow()
　　　Dim iRow As Long
　　　MsgBox "隐藏当前单元格所在的行"
　　　iRow = ActiveCell.Row
　　　ActiveSheet.Rows(iRow).Hidden = True
　　　MsgBox "取消隐藏"
　　　ActiveSheet.Rows(iRow).Hidden = False
　　End Sub

　　②隐藏、显示列的VBA代码

　　Sub HideColumn()
　　　Dim iColumn As Long
　　　MsgBox "隐藏当前单元格所在列"
　　　iColumn = ActiveCell.Column
　　　ActiveSheet.Columns(iColumn).Hidden = True
　　　MsgBox "取消隐藏"
　　　ActiveSheet.Columns(iColumn).Hidden = False
　　End Sub

该杂文来自： Excel杂文

上一篇：VBA通过Visible属性显示与隐藏工作表的代码

下一篇：VBA自行设置Excel工作表行高列宽以及恢复行高列宽