我坚持创建复选框,例如复选框网格。基本上我有一个要创建的工作表列表,方法是,当我选中复选框时,应该在事件工作簿中创建相应的工作表。我已经完成了它,但是我坚持创建复选框网格,因为我想在我的表单中利用空置空间。
例如,
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
提前致谢。
最佳答案
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
关于VBA:在 VBA 用户窗体框架上显示复选框的网格,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27033259/