Здравствуйте. Никак не получается увеличить размер таблицы. Прошу поправить код
| Код |
|---|
Private Sub ДобавитьСтроки_Click()
Dim myTable As ListObject
Dim vRetVal
Dim fcell3 As Variant
Dim b3 As Variant
Dim a3 As Variant
Dim c3 As Variant
'Вписываем количество строк, на которые увеличиваем таблицу
vRetVal = InputBox("Укажите количество строк, которые нужно добавить(целое число):", "Вставка новых строк", "")
c3 = Val(vRetVal)
'Поиск заголовка над таблицей
Set fcell3 = Columns("A:A").Find(ИмяПодраздела.Text)
If Not fcell3 Is Nothing Then
Range("A" & fcell3.Row + 2).Select 'активная ячейка для определения по ней имени таблицы
b3 = ActiveCell.ListObject.Name 'ИМЯ ТАБЛИЦЫ
'Определение количества строк в таблице
Set myTable = Worksheets(ИмяРаздела.Text).ListObjects(b3)
'MsgBox myTable.DataBodyRange.Rows.Count
a3 = myTable.DataBodyRange.Rows.Count
ActiveSheet.ListObjects(b3).Range.Resize (a3 + c3)
If StrPtr(vRetVal) = 0 Then
'MsgBox "Нажата кнопка Отмена. Процедура прервана", vbCritical, "DelCols"
Exit Sub
End If
End If
End Sub
|
