VBA：在VBA UserForm框架上显示checkbox的网格

我坚持创buildcheckbox就像checkbox的网格。 基本上我有一个要创build的工作表的清单，方法是，当我检查checkbox相应的工作表应创build活动工作簿。 我完成了它，但我坚持创build网格的checkbox，因为我想利用我的forms空置空间。

例如，

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给出错误需要expression式