Разбираюсь с кодом... Вот это часть кода определяет в какой ячейке, какой строки записывать данные [vba]
Код
Set Tbl = Sheets("Данные").ListObjects("Таблица1") lrow = Tbl.ListRows.Count If lrow = 0 Then Tbl.ListRows.Add With Tbl.DataBodyRange For i = 1 To CDbl(Me.CountRec.Value) .Cells(i + lrow, 1) = lrow + i For j = 2 To 5 .Cells(i + lrow, j).Value = arrRec(i, j - 1).Value Next j Next i End With
[/vba] Таблица состоит из пяти столбцов, в ячейки которых и происходить запись. Но как только я хочу увеличить кол-во столбцов, например, на 10, то выдает 424 ошибку Object required в Module я тоже изменил диапазон до 10 Что у меня не так ? (
Разбираюсь с кодом... Вот это часть кода определяет в какой ячейке, какой строки записывать данные [vba]
Код
Set Tbl = Sheets("Данные").ListObjects("Таблица1") lrow = Tbl.ListRows.Count If lrow = 0 Then Tbl.ListRows.Add With Tbl.DataBodyRange For i = 1 To CDbl(Me.CountRec.Value) .Cells(i + lrow, 1) = lrow + i For j = 2 To 5 .Cells(i + lrow, j).Value = arrRec(i, j - 1).Value Next j Next i End With
[/vba] Таблица состоит из пяти столбцов, в ячейки которых и происходить запись. Но как только я хочу увеличить кол-во столбцов, например, на 10, то выдает 424 ошибку Object required в Module я тоже изменил диапазон до 10 Что у меня не так ? (Born_IN_USSR
Извините, что сразу так и не ответил. Во-первых, у меня не получается смоделировать ситуацию (первый раз когда появилась ошибка от расстройства не сделал сохранение). Во-вторых, я в командировке, как вернусь повторю и сразу отправлю. Заранее спасибо!
Извините, что сразу так и не ответил. Во-первых, у меня не получается смоделировать ситуацию (первый раз когда появилась ошибка от расстройства не сделал сохранение). Во-вторых, я в командировке, как вернусь повторю и сразу отправлю. Заранее спасибо!Born_IN_USSR
Добрый вечер! Продолжаю модернизировать форму) И вот возникла необходимость удалять лишние строки. В настоящий момент вместе с полями добавляются CheckBox. Соответсвенно планирую удалять строки, у которых выделены CheckBox. Вопрос - как удалить эти самые строки. Может потребоваться удалить, например, 3, 7 и 11 строки. Помогите, пожалуйста!
Добрый вечер! Продолжаю модернизировать форму) И вот возникла необходимость удалять лишние строки. В настоящий момент вместе с полями добавляются CheckBox. Соответсвенно планирую удалять строки, у которых выделены CheckBox. Вопрос - как удалить эти самые строки. Может потребоваться удалить, например, 3, 7 и 11 строки. Помогите, пожалуйста!Born_IN_USSR
Добрый день! Давно я здесь никого не беспокоил. Не получается у меня до конца доделать форму "Табельный учет". Прошу помочь. В настоящий момент две проблемы. Первая: Заполняю все поля в форме, нажимаю "Внести данные". Значения добавляются на лист "Данные". Но стоит изменить дату и вновь нажать "Внести данные", то в лист "Данные" попадают значения из полей ФИО, специальность, смена, значение. Все остальные поля в таблице на листе "Данные" остаются пустыми ( Вторая: Не получается удалять лишние поля из формы, которые выделены при помощи CheckBox. Прошу помощи.
Добрый день! Давно я здесь никого не беспокоил. Не получается у меня до конца доделать форму "Табельный учет". Прошу помочь. В настоящий момент две проблемы. Первая: Заполняю все поля в форме, нажимаю "Внести данные". Значения добавляются на лист "Данные". Но стоит изменить дату и вновь нажать "Внести данные", то в лист "Данные" попадают значения из полей ФИО, специальность, смена, значение. Все остальные поля в таблице на листе "Данные" остаются пустыми ( Вторая: Не получается удалять лишние поля из формы, которые выделены при помощи CheckBox. Прошу помощи.Born_IN_USSR
Вы не добавляете, а переписываете первую строку. [vba]
Код
Set Tbl = Sheets("Данные").ListObjects("Таблица1") Dim x x = IIf(Tbl.DataBodyRange Is Nothing, Tbl.Range.Rows.Count - 1, Tbl.Range.Rows.Count) With Tbl.Range.Offset(x) .Item(1) = Application.Max(Tbl.ListColumns(1).Range) + 1 .Item(2) = Company.Text .Item(3) = Object.Text ' далее аналогично
[/vba]
Вы не добавляете, а переписываете первую строку. [vba]
Код
Set Tbl = Sheets("Данные").ListObjects("Таблица1") Dim x x = IIf(Tbl.DataBodyRange Is Nothing, Tbl.Range.Rows.Count - 1, Tbl.Range.Rows.Count) With Tbl.Range.Offset(x) .Item(1) = Application.Max(Tbl.ListColumns(1).Range) + 1 .Item(2) = Company.Text .Item(3) = Object.Text ' далее аналогично