Получить данные из пользовательской формы в существующую таблицу в Excel

У меня проблема, я пытаюсь добавить данные из пользовательской формы в существующую таблицу, которая содержит разные формулы (таблица 1), но я не знаю, как вставить это в код. Вот код:

(И лист, на котором находится таблица, это Sheet1.)

Private Sub CommandButton2_Click()

Dim wks As Worksheet
Dim AddNew As Range
Set wks = Sheet1

Set AddNew = wks.Range("A65356").End(xlUp).Offset(1, 0)

 AddNew.Offset(0, 0).Value = TextBox1.Text
 AddNew.Offset(0, 1).Value = ComboBox2.Text
 AddNew.Offset(0, 3).Value = ComboBox3.Value
 AddNew.Offset(0, 4).Value = ComboBox4.Value
 AddNew.Offset(0, 2).Value = TextBox8.Text
 AddNew.Offset(0, 6).Value = TextBox11.Text
 AddNew.Offset(0, 7).Value = TextBox6.Text
 AddNew.Offset(0, 8).Value = TextBox7.Text
 AddNew.Offset(0, 15).Value = TextBox9.Text
 AddNew.Offset(0, 16).Value = TextBox10.Text
 AddNew.Offset(0, 14).Value = ComboBox1.Text

 TextBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
TextBox8.Text = ""
TextBox11.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
ComboBox1.Value = ""


End Sub

excel vba data-entry userform excel-tables
person Camelia4    schedule 13.01.2020    source источник
comment
Должен признаться, я не вижу здесь вопроса. Предоставленный код выглядит так, как будто он будет работать без ошибок. Что конкретно идет не так?   -  person tigeravatar    schedule 13.01.2020
comment
Он работает, но добавляет данные в лист1, и я хочу добавить их в определенную таблицу, которая находится в листе1 и называется Таблица1.   -  person Camelia4    schedule 13.01.2020
comment
Вам нужно будет ссылаться на таблицу во время назначения переменной диапазона AddNew (в настоящее время она жестко запрограммирована для столбца A), например: Set AddNew = wks.Cells(wks.Rows.Count, wks.ListObjects("Table1").DataBodyRange.Column).End(xlUp).Offset(1)   -  person tigeravatar    schedule 13.01.2020

Ответы (1)


arrow_upward
0
arrow_downward

@tigeravatar прав, вам нужно поискать документацию для ListObjects.

Таблица отличается от листа в Excel.

По мере изучения VBA вы будете использовать этот сайт, чтобы помочь вам понять происходящее волшебство.

В VBA, как и в .NET, классы переменных имеют разные свойства и методы, на которые вы можете ссылаться. Если вы создаете объект, который представляет собой определенный предварительно созданный класс, скорее всего, в Интернете будет доступна документация и учебные пособия, которые вы сможете прочитать, изучить и использовать.

person Peyter    schedule 13.01.2020