Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автоматическое добавление строк с формулами в таблицу
 
#1
19.05.2023 08:46:54
Добрый день.
Прошу помощи.
Есть таблица с формулами. (Пример вложил).
При вводе данных в столбец А и Б, формулы выводят результат в столбцах C,D,E. Данной таблицей пользуется несколько пользователей.
Итого заполнив последнюю строку таблицы, не протянув заранее ее, формулы приходится вводить вручную. Либо откатывать действие назад ( если пользователь сообразит это сделать ).
Что хотелось бы сделать: При вводе предпоследней строки в таблице, она бы автоматически протягивалась на 1-2 строки в низ. Тем самым исключить возможность полного заполнения таблицы.
Может есть какой то простой способ это реализовать например с помощью VBA.
Заранее спасибо!
 
 
 
#2
19.05.2023 09:12:06
Виталий, Выделите свою таблицу. и нажмите ctrl+T.
Умные таблицы в excel
Изменено: Wild.Godlike - 19.05.2023 09:14:45
 
 
 
#3
19.05.2023 09:18:23
Не совсем подходит. В таблице есть макрос, который после ввод данных в таблицу и расчёта формул, убирает их оттуда, оставляя только значение. Тоесть если заполнить последнюю строку, формулы в следующую не перенесутся, так как в предыдущей строке их уже нет. Нужно продливать таблицу при вводе предпоследний строки, что бы в последней еще оставалась формула.
 
 
 
#4
23.05.2023 16:15:05
Нашел выход в таком макросе.
Где при изменении в столбце "С" добавляется строка в таблицу с столбца "А" по столбец "J". Высота строки - 25. Формулы сохраняются.

Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C:C")) Is Nothing Then
    If Target <> "" Then
    Dim LRow As Long: LRow = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A" & LRow & ":J" & LRow + 1).FillDown
    Range("A" & LRow & ":J" & LRow + 1).RowHeight = 25
    Application.ScreenUpdating = True
End If
End If
End Sub
 
 
 
Страницы: 1
Наверх