基于单元格填充及同行下拉选项的跨Sheet行显示控制VBA适配需求

修改后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 可根据实际需求修改以下配置参数
    Const TRIGGER_CELL As String = "B11"       ' 触发行显示/隐藏逻辑的单元格地址
    Const CHECK_COLUMN As String = "A"         ' 下拉列表所在的列标（如A、C等）
    Const TARGET_OPTION As String = "success"  ' 下拉列表需要匹配的特定选项
    
    ' 避免多单元格批量修改时触发错误
    If Target.Cells.Count > 1 Then Exit Sub
    
    ' 仅当修改的是指定触发单元格时执行后续逻辑
    If Target.Address = TRIGGER_CELL Then
        ' 获取触发单元格所在行的下拉列表单元格值
        Dim checkValue As String
        checkValue = Me.Range(CHECK_COLUMN & Target.Row).Value
        
        ' 仅当下拉列表选中目标选项时，执行行显示/隐藏操作
        If checkValue = TARGET_OPTION Then
            Sheets("Sheet2").Rows(9).EntireRow.Hidden = (Target.Value = "")
        End If
    End If
End Sub

核心逻辑说明 #

• 参数化配置：代码开头用常量定义了关键参数，你可以直接修改TRIGGER_CELL、CHECK_COLUMN、TARGET_OPTION来适配自己的工作表结构，无需改动核心逻辑。
• 批量操作防护：加入Target.Cells.Count > 1的判断，防止用户批量粘贴或修改多个单元格时触发运行错误。
• 简化条件判断：用(Target.Value = "")直接赋值给Hidden属性，替代原有的If-Else分支，让代码更简洁。

如果你的下拉列表不在A列，比如在D列，只需把CHECK_COLUMN的值改成"D"；若需要匹配的选项不是"success"，修改TARGET_OPTION即可。

内容的提问来源于stack exchange，提问作者Clara Monspiette