macros：为VBA表单生成dynamiccheckbox

有没有什么办法来创build单元格标题的VBA表单中的checkbox？ 这就是所有的列标题名称应该是checkbox。

例如 ..

One Two Three Four 1 2 3 4 1 2 3 4 1 2 3 4 

在vba的forms，它应该包含

 One Two Three Four 

作为checkbox..我是否期待正确？ 或请解释任何其他方式..在此先感谢..

注意：应该没有软件或工具。

Answer 1

将下面的代码放在您的用户窗体中：

 Option Explicit Private Sub UserForm_Initialize() Dim LastColumn As Long Dim i As Long Dim chkBox As MSForms.CheckBox LastColumn = Worksheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To LastColumn Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i) chkBox.Caption = Worksheets("Sheet1").Cells(1, i).Value chkBox.Left = 5 chkBox.Top = 5 + ((i - 1) * 20) Next i End Sub 

您将需要修改代码以满足您的特定需求，但是这将使您开始。

Answer 2

像这样的frmABC模块（可以在Sub UserForm_Initialize（）或其他任何你希望这个运行）：

 frmABC.chkX.Caption=worksheets("tab_name").range("A2")