EXCEL 高手进来看一下。。急 关于隐藏!
我想要在表格顶端加两个按钮!要实现1、当我点这个按钮时,数据中如果某行出现了了完成这两个字。。就把这一行隐藏。2、当隐藏这有完成后。这一列中可能会没有其它有完成这两个字的...
我想要在表格顶端加两个按钮!要实现 1、当我点这个按钮时,数据中如果某行出现了了 完成 这两个字。。就把这一行隐藏。2、当隐藏这有完成后。这一列中可能会没有 其它 有完成 这两个字的。。把这一列也隐藏。这个两个按钮。。大侠们不知道有没有人帮我编一下这个VB程序!在这先谢谢了!
能不能请帮忙把程序再改一下,因为我的列是不固定的。可能这条数据在 C列 下面一条数据就在F列了。请帮忙嵌套一个循环语句。呵呵。。我大学的语法都还给老师了! 展开
能不能请帮忙把程序再改一下,因为我的列是不固定的。可能这条数据在 C列 下面一条数据就在F列了。请帮忙嵌套一个循环语句。呵呵。。我大学的语法都还给老师了! 展开
1个回答
展开全部
修改如下
Private Sub LDSDYINCANG()
Dim YH As Worksheet
Set YH = Worksheets("SHEET1") '改为你的工作表名称 通常为SHEET1
Application.ScreenUpdating = False
For I = 1 To 100
For N = 1 To 80
If YH.Cells(I, N) = "完成" Then
YH.Rows(I).EntireRow.Hidden = True
End If
Next
Next
Application.ScreenUpdating = True
Set YH = Nothing
End Sub
Private Sub LDSDYINCANG()
Dim YH As Worksheet
Set YH = Worksheets("SHEET1") '改为你的工作表名称 通常为SHEET1
Application.ScreenUpdating = False
For I = 1 To 100
For N = 1 To 80
If YH.Cells(I, N) = "完成" Then
YH.Rows(I).EntireRow.Hidden = True
End If
Next
Next
Application.ScreenUpdating = True
Set YH = Nothing
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询