如何为来自不同位置和特定条件的隐藏行创建循环？

Question

很难将它变成一个循环。我不知道做循环。

我需要创建一个循环，如果我选择“高”或“低”，那么指示高或低的状态将被取消隐藏。

因此，如果我选择“高”，则只有指示“高”的状态才会被隐藏。指示“低”的状态将被隐藏。 反之亦然。

我已经为所涉及的范围提供了名称，每个州将有一个名称。

每个状态的高位和低位指示器位于不同的位置，例如下面的代码。

我只是使用了 If 语句，因为我真的不知道其他方式。

If Range("H9").Value = "High" Then         'where I select either High or Low'
    If Range("Q74").Value = "High" Then    'location of indicator for AL state'
        Range("AL").EntireRow.Hidden = False   'rows associated with the state'
    Else
        If Range("Q99").Value = "High" Then
            Range("AK").EntireRow.Hidden = False
        Else
            If Range("Q124").Value = "High" Then
                Range("AZ").EntireRow.Hidden = False
            Else
                If Range("Q149").Value = "High" Then
                    Range("AR").EntireRow.Hidden = False
                Else
                    If Range("Q174").Value = "High" Then
                        Range("CA").EntireRow.Hidden = False
                    End If
                End If
            End If
        End If
    End If
Else
    If Range("H9").Value = "Low" Then
        If Range("Q74").Value = "Low" Then
            Range("AL").EntireRow.Hidden = False
        Else
            If Range("Q99").Value = "Low" Then
                Range("AK").EntireRow.Hidden = False
            Else
                If Range("Q124").Value = "Low" Then
                    Range("AZ").EntireRow.Hidden = False
                Else
                    If Range("Q149").Value = "Low" Then
                        Range("AR").EntireRow.Hidden = False
                    Else
                        If Range("Q174").Value = "Low" Then
                            Range("CA").EntireRow.Hidden = False
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

样本数据： [![选择指标][1]][1] [![样本状态1][2]][2] [![样本状态2][3]][3]

这里是我选择指标的地方： [1]：https://i.stack.imgur.com/Xy3oB.png

这里是需要隐藏或不隐藏的示例状态，实际上有 4 个指标，High、Moderate、Low 和 None。 [2]：https://i.stack.imgur.com/Uhur0.png [3]：https://i.stack.imgur.com/qwUpf.png

而且每个状态都是相互独立的，指标也会根据给定的数据而变化。

Answer 1

我会使用配置数组并对其进行迭代。 如果您在工作表上有一个包含所有国家/地区（具有相应范围）的列表，那么您可以使用它来填写 arrConfig。

只要 Range("H9") 发生变化，您就会调用 sub 并提供新值作为参数。

编辑：期望每个风险单元的名称具有命名约定 risk_[Countrycode]，例如risk_AL、risk_AK 等。

Sub hideShowCountries(checkValue As String)

Dim ws As Worksheet: Set ws = ActiveSheet   'adjust to your needs

Dim arrConfig(2) As String
arrConfig(0) = "AL"
arrConfig(1) = "AK"
arrConfig(2) = "AZ"
'extend this list to your needs

Dim rgCountry As Range, strRisk As String
Dim i As Long

For i = 0 To UBound(arrConfig)
    With ws
        Set rgCountry = .Range(arrConfig(i))
        'strRisk = getRiskForCountry(rgCountry)
        strRisk = .range("risk_" & arrConfig(i))
    End With
    
    rgCountry.EntireRow.Hidden = CBool(strRisk <> checkValue)
Next

End Sub


Private Function getRiskForCountry(rgCountry As Range) As String
getRiskForCountry = rgCountry.Cells(1, 1).value 'adjust this to your needs
End Function