如何根据两列中的值隐藏Excel中的行

Question

在这里的第一篇文章，我对 Excel-VBA 的世界非常陌生。

我正在尝试自动化一些报告，但遇到了一些障碍。我正在尝试根据 2 个单独列中单元格的值隐藏 Excel 工作表上的行。我在下面给出了一个例子。 （真实文档在给定时间和几乎任何日期最多可以包含 50 个名称。）

对于此示例，我需要隐藏 A 列中没有 JIM 值且日期大于 B 列中今天日期的所有行。（04/05/2014）

A       B
JIM     04/05/2014
JIM     04/05/2014
BOB     05/05/2014
BOB     04/05/2014
TED     07/05/2014
TED     04/05/2014
BOB     09/05/2014
JIM     04/05/2014
JIM     11/05/2014
TED     12/05/2014

我现在正在使用下面的代码，但在添加第二个参数时遇到了一些问题。

Sub Delete_Name_Date()

Dim rng As Range, cell As Range

For Each cell In Range("A1:F15")
If cell.Value = "JIM" Then
cell.EntireRow.Hidden = False
Else: cell.EntireRow.Hidden = True

End If
Next


End Sub

任何帮助都会很棒。

谢谢

亚当

Answer 1

试试这个：

Sub Delete_Name_Date()
    Dim cell As Range

    For Each cell In Range("A1:A15")
        With cell
            .EntireRow.Hidden = _
                (.Value <> "JIM" And CDate(.Offset(, 1).Value) > Date)
        End With
    Next
End Sub

为了可靠性，我建议您使用ThisWorkbook.Sheets("SheetName").Range("A1:A15") 而不是Range("A1:A15")