excel等于某个值自动 隐藏/显示 整行 求教VBA代码 excel怎么使用vba代码隐藏行

EXCEL\u67d0\u4e00\u5217\u5355\u5143\u683c\u4e3a\u67d0\u503c\u65f6\u81ea\u52a8\u9690\u85cf\u8be5\u884c\uff0c\u6c42\u6559VBA\u4ee3\u7801

Sub a() Dim rg As RangeDim n As Integer Application.ScreenUpdating = False n = 1 For Each rg In Application.Intersect(ActiveSheet.UsedRange, Columns("I")) If rg.Value = "N" Then rg.SelectWith Selection.EntireRow.Hidden = TrueEnd WithNext rg Application.ScreenUpdating = True End Sub

\u3000\u4eca\u5929\u4e3a\u5927\u5bb6\u5206\u4eabexcel\u4e2d\u4f7f\u7528vba\u9690\u85cf\u884c\u7684\u65b9\u6cd5\uff0c\u4e0d\u4f1a\u7684\u670b\u53cb\u53ef\u4ee5\u53c2\u8003\u672c\u6587\uff0c\u6765\u770b\u770b\u5427!


\u6b65\u9aa4
1\u3001\u9996\u5148\u6211\u4eec\u6253\u5f00\u4e00\u4e2a\u5de5\u4f5c\u6837\u8868\u4f5c\u4e3a\u4f8b\u5b50\u3002
2\u3001\u9690\u85cf\u884c\u7684\u65b9\u6cd5\u5f88\u7b80\u5355\uff0c\u5728\u5de5\u4f5c\u8868\u7684\u884c\u5e8f\u5217\u4e0a\u70b9\u51fb\u9f20\u6807\u53f3\u952e\uff0c\u9009\u62e9\u9690\u85cf\u884c\u5373\u53ef\u9690\u85cf\u3002\u4f46\u662f\u8fd9\u79cd\u65b9\u6cd5\u9700\u8981\u81ea\u5df1\u53bb\u5bfb\u627e\u7d22\u8981\u9690\u85cf\u5355\u5143\u683c\u6240\u5728\u7684\u884c\u9996\u3002
3\u3001\u4f7f\u7528vba\u5219\u4e0d\u9700\u8981\u8fd9\u4e48\u9ebb\u70e6\uff0c\u53ef\u4ee5\u5728\u4efb\u610f\u9009\u62e9\u5355\u5143\u683c\u540e\uff0c\u76f4\u63a5\u70b9\u51fb\u8fd0\u884c\u4ee3\u7801\uff0c\u5219\u53ef\u4ee5\u9690\u85cf\u8be5\u5355\u5143\u683c\u6240\u5728\u7684\u884c\u3002
4\u3001\u6211\u4eec\u4f7f\u7528alt+f11\u7ec4\u5408\u5feb\u6377\u952e\u8fdb\u5165vbe\u7f16\u8f91\u5668\uff0c\u63d2\u5165\u4e00\u4e2a\u65b0\u7684\u6a21\u5757\uff0c\u5e76\u5728\u6a21\u5757\u4e2d\u8f93\u5165\u4ee5\u4e0b\u4ee3\u7801\uff1a
Sub HideRow()
Dim iRow As Long
iRow = ActiveCell.Row
ActiveSheet.Rows(iRow).Hidden = True
ActiveSheet.Rows(iRow).Hidden = False
End Sub
5\u3001\u6211\u5148\u5c06\u663e\u793a\u9690\u85cf\u884c\u53d6\u6d88\uff0c\u7136\u540e\u8fd0\u884c\u8fd9\u6bb5\u4ee3\u7801\uff0c\u521a\u624d\u6211\u4eec\u6240\u5904\u7684\u662f\u7b2c10\u884c\uff0c\u8fd0\u884c\u4ee3\u7801\u540e\u3002\u7b2c10\u884c\u88ab\u9690\u85cf\u8d77\u6765\u4e86\u3002
6\u3001\u5355\u5143\u683c\u88ab\u9690\u85cf\uff0c\u4f46\u662f\u4ecd\u7136\u53ef\u4ee5\u9009\u53d6\u3002\u6211\u4eec\u5c06\u4ee3\u7801\u4e2d\u7684\u6ce8\u91ca\u7b26’\u53bb\u6389\uff0c\u91cd\u65b0\u8fd0\u884c\u4ee3\u7801\uff0c\u53ef\u4ee5\u5c0610\u884c\u91cd\u65b0\u663e\u793a\u3002\u8fd9\u91cc\u53ef\u4ee5\u770b\u5230activesheet.rows(irow)\u662f\u5bf9\u8c61\u3002hidden\u662f\u65b9\u6cd5\uff0c\u53c2\u6570\u662ftrue\u6216false\u3002true\u4e3a\u9690\u85cf\u3002false\u4e3a\u663e\u793a\u3002
\u6559\u7a0b\u7ed3\u675f\uff0c\u4ee5\u4e0a\u5c31\u662fexcel\u7528vba\u4ee3\u7801\u9690\u85cf\u884c\u7684\u65b9\u6cd5\u4ecb\u7ecd\uff0c\u64cd\u4f5c\u5f88\u7b80\u5355\u7684\uff0c\u5927\u5bb6\u5b66\u4f1a\u4e86\u5417?\u5e0c\u671b\u80fd\u5bf9\u5927\u5bb6\u6709\u6240\u5e2e\u52a9!

excel如何使用vba代码隐藏行

　　今天为大家分享excel中使用vba隐藏行的方法，不会的朋友可以参考本文，来看看吧!

　　步骤

　　1、首先我们打开一个工作样表作为例子。

　　2、隐藏行的方法很简单，在工作表的行序列上点击鼠标右键，选择隐藏行即可隐藏。但是这种方法需要自己去寻找索要隐藏单元格所在的行首。

　　3、使用vba则不需要这么麻烦，可以在任意选择单元格后，直接点击运行代码，则可以隐藏该单元格所在的行。

　　4、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

　　Sub HideRow()

　　Dim iRow As Long

　　iRow = ActiveCell.Row

　　ActiveSheet.Rows(iRow).Hidden = True

　　ActiveSheet.Rows(iRow).Hidden = False

　　End Sub

　　5、我先将显示隐藏行取消，然后运行这段代码，刚才我们所处的是第10行，运行代码后。第10行被隐藏起来了。

　　6、单元格被隐藏，但是仍然可以选取。我们将代码中的注释符’去掉，重新运行代码，可以将10行重新显示。这里可以看到activesheet.rows(irow)是对象。hidden是方法，参数是true或false。true为隐藏。false为显示。

Sub test()
For Each Rng In Range(Cells(1, 7), Cells(Cells(1048576, 7).End(xlUp).Row, 7))
If Rng = 0 Then
Rows(Rng.Row).Hidden = True
Else
Rows(Rng.Row).Hidden = False
End If
Next
End Sub

扩展阅读：excel 重复人名 计数 ... excel如果大于 则显示 ... 表格如何生成自动计算 ... 方框内点一下自动打勾 ... 表格自动隐藏行 怎么办 ... 如何隐藏表格中的数字 ... 当满足条件自动隐藏行 ... excel表隐藏身份证8位 ... 怎样将身份证后六位隐藏 ...