Итак, у меня есть этот код в пользовательской форме
Sub UserForm_Initialize()
Dim i As Long
Dim chkBox As MSForms.CheckBox
On Error GoTo Error:
LastRow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To LastRow
Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i)
chkBox.Caption = Worksheets("Sheet1").Cells(i, 1).Value
chkBox.Left = ((i - 1) Mod 4) * 100 + 5
chkBox.Top = 5 + Fix((i - 1) / 4) * 30
Next i
Error:
End Sub
Когда я запускаю этот код, я получаю флажки на основе значений из строки в Excel. Похоже, это Снимок экрана с флажками
Я хочу сделать текстовое поле для флажка выше, чтобы сделать все поле видимым, но я не могу этого понять. Я новичок в VBA и действительно новичок в UserForms. Любая помощь будет оценена. Спасибо ADS