在excel VBA中自动选择复选框

Question

我已经维护了一个 Excel 表，其中 A 列中列出了特定产品的所有参数，并且在 D 列中，我需要从 A 列中的所有参数集中选择的参数很少。

是否有可能在 vba 中触发点击事件，它应该在 A 列和 D 列之间进行比较，并在找到参数时自动选中复选框。

感谢任何帮助！

Answer 1

好的，你可以这样做：

将复选框（确保它们是格式控制复选框）放在C列中。（确保复选框完全在单元格中）

在 Worksheetmodul 中发布：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim chk As CheckBox
Dim check As Boolean
Dim rng As Range

For Each chk In ActiveSheet.CheckBoxes

    Set rng = Range("D:D").Find(what:=chk.TopLeftCell.Offset(0, -2).Value, _
    LookIn:=xlValues, _
    lookat:=xlWhole, _
    searchorder:=xlByRows, _
    searchdirection:=xlNext, _
    MatchCase:=False)

    If Not rng Is Nothing Then

        chk.Value = True

    End If

Next chk

End Sub

每次在工作表中更改值时，都会触发 sub。