0

Какой использовать макрос для автозаполнения формы в таблице с формулами?

Есть связанный запрос на обновление данных из файла, есть таблица, в которой происходит рефреш данных, в таблице есть расчетные столбцы, которые приходится вручную протягивать для заполнения.

Есть ли какой нибудь код для подобной операции в VBA?

6
  • Запускаешь макрорекордер, протягиваешь вручную - вот тебе и код.
    – Akina
    Commented 23 дек. 2019 в 11:26
  • >> Есть связанный запрос... есть таблица - нет ничего... Commented 23 дек. 2019 в 11:36
  • VBA самоучка, многого еще незнаю подскажите, что же указать чтобы макрос работал с таблицей а не с определенным диапазоном: Range("M1527:Z1527").Select Selection.AutoFill Destination:=Range("M1527:Z1534"), Type:=xlFillDefault Range("M1527:Z1534").Select Application.Goto Reference:="Макрос1" End Sub Commented 23 дек. 2019 в 12:02
  • Я же не зря писал, что нет ничего... Покажите пример таблиц в файле, где что нужно заполнить. Commented 23 дек. 2019 в 12:53
  • Коммерческая тайна не позволит выложить сам файл, но вид такой - есть столбцы : Дата,Сумма,Назначение платежа,Контрагент, которые через запрос с файла выгружаются с 1с, а также расчетные формулы по взаимодействию с этими столбцами. При открытии файл рефрешает запрос и дополняет строки, но таблица не заполняет новые строки таблицы формулами Commented 23 дек. 2019 в 13:29

1 ответ 1

0

Примера нет, танцуем свободный танец.

Данные обновляются на листе Sheet1. В столбце С формула. Строки ниже вставляемых данных пустые (пользовательский диапазон ограничен последней строкой с новыми даннми).

Вешаем макрос на какую-нибудь кнопулю. Жмем и...

Определяем номер последней строки с формулой (lRwOld), находим последнюю строку с данными (lRwNew) - после обновления данных она будет ниже строки с формулой. Все. Заполняем пустой диапазон столбца С.

Sub CopyFormula()
    Dim lRwOld As Long, lRwNew As Long

    With Worksheets("Sheet1")
        lRwOld = .Cells(.Rows.Count, "C").End(xlUp).row
        lRwNew = .UsedRange.Rows.Count + .UsedRange.row - 1
        .Range(.Cells(lRwOld, 3), .Cells(lRwNew, 3)).FillDown
    End With
End Sub

Если столбцов с формулами больше (например, C:E):

.Range(.Cells(lRwOld, 3), .Cells(lRwNew, 5)).FillDown
' или'
.Cells(lRwOld, 3).Resize(lRwNew - lRwOld + 1, 3).FillDown

Строку с FillDown можно заменить на вставку формул (.Formula, .FormulaLocal, .FormulaR1C1...)

1
  • Спасибо! Помогло Commented 24 дек. 2019 в 14:15

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.