Здравствуйте, Q2Baklan, Вы писали:
QB>Здравствуйте, leer, Вы писали:
L>>сделал UserForm на VBA Excell, Где в комбобоксе выбираю нужное значение, и оно вставляется в определенную ячейку. Проблема в том, что все значения из которых выбираем прописаны в программе. Как же добавлять непосредственно из UserForm новые значения, и как их вводить. Помогите советом,а?
QB>QB> :user:
QB>Private i As Long
QB>Private Sub CommandButton2_Click()
QB>'добовляем новый эелементв в ComboBox
QB>For i = Me.ComboBox1.ListCount To Me.ComboBox1.ListCount
QB> ComboBox1.AddItem InputBox("введите Новое значение", "Ввод", Default)
QB>Next
QB>End Sub
QB>Private Sub UserForm_Activate()
QB> ComboBox1.AddItem "Left Top" 'ListIndex = 0
QB> ComboBox1.AddItem "Left Center" 'ListIndex = 1
QB> ComboBox1.AddItem "Left Bottom" 'ListIndex = 2
QB>End Sub
QB> :super:
QB>
программа выдает ошибку, что не понимает переменную i, наверное она стоит перед SUB
