VBA:在VBA用户表单框架上显示复选框网格

Question

我坚持创建复选框，就像复选框网格一样。基本上，我有一个要创建的工作表列表，方法是，当我选中复选框时，应在活动工作簿中创建相应的工作表。我已经完成了它，但是由于我想在表单中利用空置空间，因此我坚持创建复选框网格。

例如

Checkbox1             Checkbox2  
Checkbox3             Checkbox4 

下面是我编码的代码。

For Each varItem In InfantDataQuerySheets
    checkboxInc = checkboxInc + 1
    Set chkbox = SelectDataQuerySheet.Controls.Add("Forms.CheckBox.1", "CheckBox" &      checkboxInc, True)
    With chkbox
        .Left = 10
        .Top = (checkboxInc - 1) * (chkbox.Height + 3)
        .Caption = varItem
    End With
Next varItem

提前谢谢。

Answer 1

For Each varItem In InfantDataQuerySheets
    checkboxInc = checkboxInc + 1
    Set chkbox = SelectDataQuerySheet.Controls.Add( _
                  "Forms.CheckBox.1", "CheckBox" &  checkboxInc, True)
    With chkbox
        .Left = IIf(checkboxInc Mod 2 = 1, 10, 40) 'edited
        .Top = Application.Floor((checkboxInc - 1)/2, 1) * (chkbox.Height + 3)
        .Caption = varItem
    End With
Next varItem

Answer 2

For Each varItem In InfantDataQuerySheets
    checkboxInc = checkboxInc + 1
    Set chkbox = SelectDataQuerySheet.Controls.Add( _
                  "Forms.CheckBox.1", "CheckBox" &  checkboxInc, True)
    With chkbox
        .Left = IIf((checkboxInc - (2 * (checkboxInc  2))) = 1, 10, 40)
        .Top = Application.Floor((checkboxInc - 1)/2, 1) * (chkbox.Height + 3)
        .Caption = varItem
    End With
Next varItem

添加了 Mod 公式，因为 IIF 给出了错误 需要表达式