mnbn.net
当前位置:首页 >> ExCEl中隐藏指定的行的宏编程怎么写? >>

ExCEl中隐藏指定的行的宏编程怎么写?

用按钮的方法较好,代码如下,详见附件 Private Sub CommandButton1_Click() If CommandButton1.Caption = "隐藏列" The...

隐藏5行:rows(5).hidden=true 隐藏8行:rows(8).hidden=true 显示5行,rows(5).hidden=false 显示8行,rows(8).hidden=false

Range("L:R").EntireColumn.Hidden = True Columns("C:J").EntireColumn.Hidden = False 这样就可以的了。 你是想L到R隐藏,C到J显示。

Private Sub Worksheet_Calculate() 换成 Private Sub Worksheet_Change(ByVal Target As Range) -------- 整个程序可以换成: Private Sub Worksheet_Change(ByVal Target As Range) For Each c In Target If c.Address = [A1].Address Then Go...

Sub 隐藏行() Dim i Rows("33:35").EntireRow.Hidden = True '33-35全隐藏 For i = 33 To 35 '判断第33行到第35行的A列数据 If Cells(i, 1) "" Then Rows(i).Hidden = False '如果不为空,取消隐藏 Next i End Sub 要自动调,那么空的单元格首先你...

VBA程序代码如下: SUB 宏1() IF SHEET1.RANGE("A1")="联络" THEN RANGE("4:6").HIDDEN IF SHEET1.RANGE("A1")="单位" THEN RANGE("11:12").HIDDENEND SUB

自己录个宏,改改就好了 Private Sub Worksheet_Change(ByVal Target As Range) for i=1 to range("a65536").end(xlup).row If range("k"&i)=range("l"&i) Then Rows(i).EntireRow.Hidden = True End If next End Sub如果不会可以联系。

Sub 隐藏行() Dim i% For i = 2 To 2000 '2000代表总行数,可以替换成你需要的数值 If Cells(i, 7) = "" Then Exit Sub Else If Cells(i, 7) = 0 Then Rows(i).EntireRow.Hidden = True End If End If Next End Sub 测试过是可以的

循环for 与判断if 如果数据量大装入数组判断;不过,你这只一行就没这必要了。

这个只需要 扩展一下就行了,你说的隐藏和显示功能都有了: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$3" Then If Target.Value = "╳" Then Rows("7:15").Hidden = True Else Rows("7:15").Hidden = False ...

网站首页 | 网站地图
All rights reserved Powered by www.mnbn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com