如何创建函数以根据VBA EXCEL中的单元格值隐藏行

Question

我创建了此函数以根据单元格值隐藏一些行。

Function myTest(Unit As String)
ThisWorkbook.Worksheets("TESTING").Rows("15:16").Select
    If Unit = "XXX" Then
        Selection.EntireRow.Hidden = True
    Else
        Selection.EntireRow.Hidden = False
        myTest= "1"
    End If
End Function

当单位值不是“ XXX”时，功能可以正常工作，但是当单位值为“ XXX”时，调用此功能的单元格将获得#VALUE！

Answer 1

如果您关心返回现在是否隐藏了单元格，则可以将其保留为函数。 否则，使其成为Sub并摆脱下面的myTest = ...行。 在VBA中选择单元几乎总是一个糟糕的主意。 这是不可靠的，有故障的，并且速度非常慢。 以下代码是我可以为您提供的最简洁的功能。 它将Unit = "XXX"的True / False评估直接应用于行的Hidden属性。 我添加了一个明确的布尔返回类型。

Function myTest(Unit As String) As Boolean
    ThisWorkbook.Worksheets("Sheet5").Rows("15:16").EntireRow.Hidden = (Unit = "XXX")
    myTest = Not (Unit = "XXX")
End Function

为了更接近您的结构，您可以使用范围对象：

Function myTest(Unit As String) As String
    Dim rng As Range
    rng = ThisWorkbook.Worksheets("TESTING").Rows("15:16")
    If Unit = "XXX" Then
        rng.EntireRow.Hidden = True
        myTest = "0"
    Else
        rng.EntireRow.Hidden = False
        myTest= "1"
    End If
End Function

或者，您可以使用With块：

Function myTest(Unit As String) As String
    With ThisWorkbook.Worksheets("TESTING").Rows("15:16")
        If Unit = "XXX" Then
            .EntireRow.Hidden = True
            myTest = "0"
        Else
            .EntireRow.Hidden = False
            myTest= "1"
        End If
    End With
End Function