Question

我搜索过但无法找到我想象的简单解决方案的答案。我有多行列表框（基本上是一个是/否问卷）我想要一个宏来改变同一行中的其他单元格，具体取决于从列A中的列表中选择的内容。我认为它需要是一个更改事件我可以为单行做我想做的事，但无法弄清楚如何将它应用到整个列。这就是我到目前为止所做的：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(True, True) = "A2" Then
    Select Case Target
        Case "list option one"
            call Macro1
        Case "list option 2"
            'Call Macro2
        Case Else
            'Do nothing
    End Select
End If

End Sub

显然，我不想硬编码每一行A3，A4，A5 ......

Answer 1

尝试

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
    If Target.Value = True Then 'If target = true (This can be what ever you want)
        Cells(Target.Row, 2).Value = True 'Then put true on same row but column 2 e.g. B
    End If
End If

End Sub

用于多行列表验证的一个宏

1 个答案: