Excel - 如何使用 VBA 添加复选框并链接到其旁边的单元格？

Question

我正在 Excel 中编写一个包含大量条件格式的计划，如果有人有重叠的任务，它会提醒我。如果有人没有出现，其他人必须在同一天占据多个位置，那么我想将其添加到电子表格中以记住这一点。

问题是，如果我这样做，我会收到红细胞警报，而我不希望在已过的日期出现这种情况。我想我可以添加一个名为“ignoreErrors”的列，或者类似的东西，带有复选框，如果我选中其中任何一个，Excel 都会忽略其余的格式规则。

我在这里找到了以下脚本（我稍微编辑了一下）：

Sub AddCheckBoxes()
    On Error Resume Next
    Dim c As Range, myRange As Range
    Set myRange = Selection
    For Each c In myRange.Cells
        ActiveSheet.checkboxes.Add(c.Left, c.Top, c.Width, c.Height).Select
        With Selection
            .LinkedCell = c.Address
            .Characters.Text = ""
            .Name = c.Address
        End With
        c.Select
    Next
    myRange.Select
End Sub

当我添加复选框时，我会得到一系列复选框，但单元格值（TRUE 或 FALSE）位于背景中。我不想要这样。我想我应该将复选框链接到旁边列中的单元格，然后隐藏它。那可能吗？

Answer 1

如果您删除该行（或注释它）

.LinkedCell = c.Address

它不会显示真或假。

要将其链接到下一列，请执行以下操作

.LinkedCell = c.Offset(0, 1).Address

希望这可以帮助。