Здравствуйте, 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 |
[ '\(_) /`]
\___/
