我有一个 Excel 工作表,我想根据另一个单元格中的值隐藏或取消隐藏某些行。
简而言之:
整个事情应该取决于单元格中的值C2
, D2
, E2
.
If C2
is blank我想rows 31 to 40
被隐藏,如果是的话不为空,他们需要是visible.
其他三个单元格也是如此,始终隐藏/取消隐藏以下 10 行:
D2 --> rows 41 to 50
E2 --> rows 51 to 60
我尝试了这段代码,但它不起作用,而且我也没有收到任何错误:
Sub Hide_rows()
If Range("LS!C2") = 0 Then
Rows("31:40").EntireRow.Hidden = True
Else
If Range("LS!D2") = 0 Then
Rows("41:50").EntireRow.Hidden = True
Else
If Range("LS!E2") = 0 Then
Rows("51:60").EntireRow.Hidden = True
Else
If Range("LS!C2") > 0 Then
Rows("31:40").EntireRow.Hidden = False
Else
If Range("LS!D2") > 0 Then
Rows("41:50").EntireRow.Hidden = False
Else
If Range("LS!E2") > 0 Then
Rows("51:60").EntireRow.Hidden = False
Else
End If
End If
End If
End If
End If
End If
End Sub
谢谢你!
在我看来你只需要以下几行:
With Sheets("LS")
.Rows("31:40").EntireRow.Hidden = (.Range("C2") = 0)
.Rows("41:50").EntireRow.Hidden = (.Range("D2") = 0)
.Rows("51:60").EntireRow.Hidden = (.Range("E2") = 0)
End With
EDIT根据克里斯的观点 - 以下内容就足够了:
With Sheets("LS")
.Rows("31:40").Hidden = (.Range("C2") = 0)
.Rows("41:50").Hidden = (.Range("D2") = 0)
.Rows("51:60").Hidden = (.Range("E2") = 0)
End With
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)