根据复选框状态在单元格之间移动

Question

我试图在一个工作表上单击一个按钮时生成一个唯一的输出，该输出取决于一组复选框的状态。

有一组十个框，其中任何一个最多可以选择十个。单击按钮时，每个复选框的名称将依次出现。比如：

复选框 1 和 3 被选中，按钮被点击，然后输出到单元格将如下所示：[Check Box1] [Check Box3]

但是，如果选中框 1 2 3 9，它将显示： [复选框1] [复选框2] [复选框3] 等等......

我的主要问题是，如果复选框被选中，我只希望复选框的名称显示为标题。

Answer 1

假设“表单”复选框（与 ActiveX 类型相比）

dim i, n, s

n = 0
for i = 1 to 10
    s = "Check Box " & i
    if activesheet.checkboxes(s).Value = 1 then
        Activesheet.range("A1").offset(0, n).value = s
        n = n + 1
    end if
next i