Question

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

有一组十个盒子，其中任何一个盒子最多可以选择十个盒子。单击该按钮时，将按顺序显示每个复选框的名称。例如：

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

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

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

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

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

1 个答案: