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