Question

我正在开发一个项目，我需要为每个链接到该单元格的单元格添加一个复选框。单击时，它将返回true，如果未选中，则会将false返回到分配给它的单元格中。工作表有数千个单元格，当我手动插入它们时，我意识到必须有一个更好的解决方案。我正在处理的工作表看起来像这样：

Excel Worksheet in Need of Checkboxes

如果我应该运行脚本/宏或其他东西，请告诉我 - 我非常感谢您的帮助！

Answer 1

你去吧，克林顿。

Sub AddCheckBoxes()

Dim cb As CheckBox
Dim myRange As Range, cel As Range
Dim wks As Worksheet

Set wks = Sheets("mySheet") 'adjust sheet to your needs

Set myRange = wks.Range("A1:A10") ' adjust range to your needs

For Each cel In myRange

    Set cb = wks.CheckBoxes.Add(cel.Left, cel.Top, 30, 6) 'you can adjust left, top, height, width to your needs


    With cb

        .Caption = ""
        .LinkedCell = cel.Address

    End With

Next

End Sub

Answer 2

以下是我使用的更通用的VBA宏，为所有选定的单元格添加居中复选框：

<div>
     <span class="BG"><span class="EU"></span></span>
</div>

将复选框插入每个单元格并将其分配给Excel中的该单元格的脚本

2 个答案: