VBA ComboBox

[SAS888]

как UserForm переименовать?

В окне свойств формы измените значение свойства Name на требуемое.
P.S.Или Вы имеете ввиду заголовок окна формы? тогда это свойство Caption.

[qert]

Спасибооо)

[seregin2014]

Привет форумчанам, совсем недавно занялся программированием и не могу решить проблему. Имею такой код:

If TextBox21.Text <> "" Then
Dim Выбор = MsgBox("Хотите добавить данные?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question Or MsgBoxStyle.DefaultButton1, "Ввод новых данных")
If Выбор = MsgBoxResult.Yes Then
ComboBox5.Items.Add(TextBox21.Text) 'добавляем новые данные в список
k = ComboBox5.Items.Count 'считаем сколько строк в списке Combo

Dim Экс As Microsoft.Office.Interop.Excel.Appl ication = CreateObject("Excel.Application")
Экс.Workbooks.Open("D:\программа\Да нные.xlsx")
Dim Лист As Microsoft.Office.Interop.Excel.Work sheet = Экс.Workbooks("Данные.xlsx").Worksh eets("Лист1")

'Потом добавляю данные в Excel и закрываю его.


Экс.SaveWorkspace() : Экс.Quit()
End If
End If

Так вот, не срабатывает строка ComboBox5.Items.Add(TextBox21.Text) , т.е. при пошаговом просмотре видно, что она добавляется, а когда завершаю программу, то в Excel данные заносятся как положено, а в Combo изменений нет. Как так, подскажите?

[doober]

Первое.
Совсем не по теме.
Второе.
Зачем некрологией заниматься?

'Потом добавляю данные в Excel и закрываю его.

В этом коде ищите очистку комбобокса.

[seregin2014]

Сообщение от doober

Первое.
Совсем не по теме.
Второе.
Зачем некрологией заниматься?

В этом коде ищите очистку комбобокса.

Извиняюсь, что не по теме, не подскажите куда обратиться?
и как в этом коде искать ошибку? для чайника........

[Aqil_f]

Сообщение от qert

как UserForm переименовать?

Properteis-Name

[doober]

Сообщение от seregin2014

Извиняюсь, что не по теме, не подскажите куда обратиться?
и как в этом коде искать ошибку? для чайника........

Мыло есть в профиле,высылайте проект,посмотрю