сделал UserForm на VBA Excell, Где в комбобоксе выбираю нужное значение, и оно вставляется в определенную ячейку. Проблема в том, что все значения из которых выбираем прописаны в программе. Как же добавлять непосредственно из UserForm новые значения, и как их вводить. Помогите советом,а?
Здравствуйте, leer, Вы писали:
L>сделал UserForm на VBA Excell, Где в комбобоксе выбираю нужное значение, и оно вставляется в определенную ячейку. Проблема в том, что все значения из которых выбираем прописаны в программе. Как же добавлять непосредственно из UserForm новые значения, и как их вводить. Помогите советом,а?
:user:
Private i As Long
Private Sub CommandButton2_Click()
'добовляем новый эелементв в ComboBox
For i = Me.ComboBox1.ListCount To Me.ComboBox1.ListCount
ComboBox1.AddItem InputBox("введите Новое значение", "Ввод", Default)
Next
End Sub
Private Sub UserForm_Activate()
ComboBox1.AddItem "Left Top" 'ListIndex = 0
ComboBox1.AddItem "Left Center" 'ListIndex = 1
ComboBox1.AddItem "Left Bottom" 'ListIndex = 2
End Sub
:super:
Нельзя смеяться над патриархами.
"Патриархи"
nnnnn
| — _ |
| O o |
[ '\(_) /`]
\___/
Здравствуйте, 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
Здравствуйте, 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>
Но теперь новая запись не сохраняется в листе после закрыития формы. как сделать, чтобы навсегда прописывалось?
