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

Question

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

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

复选框1和3被选中，该按钮被点击时，则输出到细胞将如下所示：[检查BOX1] [检查BOX3]

然而，如果盒1 2 3 9检查，它会显示： [检查BOX1] [查看BOX2] [查看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