Всем доброго дня.
Не прошло и нескольких десятков лет и пришлось погрузиться в изучение VisulBasic. Но возникают конфликты и ошибки, на которые не всегда получается найти ответы в инете. В связи с чем прошу помощи у форумчан, помочь разобраться, что делаю не так.
Итак, есть Form_1, на ней TextBox_1 и CobmboBox_1, CommboBox2, а также кнопка CommandBattom1
На листе "List1", создана умная таблица "utb_him"
Конопке назначен макрос: а1
В модуле прописываю код:
На этом этапе всё работает отлично. При нажатию на кнопку CommandBattom1 данные из TextBox_1 записываются в умную таблицу "utb_him". Но стоит мне добавить в свойствах CobmboBox: RowSource ссылку на умную таблицу, как возникает ошибка.
А мне нужно вносить новые данные в таблицу через TextBox, если их нет, и считывать ComboBox на этой же форме.
Подскажите как быть?
Не прошло и нескольких десятков лет и пришлось погрузиться в изучение VisulBasic. Но возникают конфликты и ошибки, на которые не всегда получается найти ответы в инете. В связи с чем прошу помощи у форумчан, помочь разобраться, что делаю не так.
Итак, есть Form_1, на ней TextBox_1 и CobmboBox_1, CommboBox2, а также кнопка CommandBattom1
На листе "List1", создана умная таблица "utb_him"
Конопке назначен макрос: а1
Код |
---|
Private Sub CommandBattom1_Click() Call a1 End Sub |
Код |
---|
Option Explicit Dim him_1 As ListRow Sub a1() Set him_1 = ThisWorkbook.Worksheets("List1").ListObjects("utb_him").ListRows.Add him_1.Range(1) = Form_1.TextBox_1.Value End Sub |
А мне нужно вносить новые данные в таблицу через TextBox, если их нет, и считывать ComboBox на этой же форме.
Подскажите как быть?