"Протянуть" формулу в Excel через COMОбъект
Необходимо в 1С "протянуть" формулу как это делает эксель.
В экселе мы тянем за край ячейки и протягиваем формулу, она автоматически привязывается к нужным ячейкам для новых ячеек с формулой
Посмотрел в записи макроса выдает такой код:
Range("C4287").Select
Selection.AutoFill Destination:=Range("C4287:C4302"), Type:=xlFillDefault
Range("C4287:C4302").Select
Попробовал сделать так, не помогло:
ЛистПрайс.Range(ЛистПрайс.Cells(2,8),ЛистПрайс.Cells(2,11)).AutoFill()
кто-нибудь сталкивался? Очень не хочется парсить формулу и в зависимости от направления протягивания менять формулы R1C1
В экселе мы тянем за край ячейки и протягиваем формулу, она автоматически привязывается к нужным ячейкам для новых ячеек с формулой
Посмотрел в записи макроса выдает такой код:
Range("C4287").Select
Selection.AutoFill Destination:=Range("C4287:C4302"), Type:=xlFillDefault
Range("C4287:C4302").Select
Попробовал сделать так, не помогло:
ЛистПрайс.Range(ЛистПрайс.Cells(2,8),ЛистПрайс.Cells(2,11)).AutoFill()
кто-нибудь сталкивался? Очень не хочется парсить формулу и в зависимости от направления протягивания менять формулы R1C1
Найденные решения
(2) отлично перевел в целом, оказалось, что не тот Range в начале выбрал
Сначала выбираем Range с клеткой, которую хотим протянуть, а в параметре AutoFill указываем на какой Range это будем протягивать
Типа такого:
ЛистПрайс.Range(ЛистПрайс.Cells(2,8),ЛистПрайс.Cells(2,8)).AutoFill(ЛистПрайс.Range(ЛистПрайс.Cells(2,8),ЛистПрайс.Cells(2,11)))
т.е. тут мы от клетки 2,8 протягиваем до 2,11
Сначала выбираем Range с клеткой, которую хотим протянуть, а в параметре AutoFill указываем на какой Range это будем протягивать
Типа такого:
ЛистПрайс.Range(ЛистПрайс.Cells(2,8),ЛистПрайс.Cells(2,8)).AutoFill(ЛистПрайс.Range(ЛистПрайс.Cells(2,8),ЛистПрайс.Cells(2,11)))
т.е. тут мы от клетки 2,8 протягиваем до 2,11
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(2) отлично перевел в целом, оказалось, что не тот Range в начале выбрал
Сначала выбираем Range с клеткой, которую хотим протянуть, а в параметре AutoFill указываем на какой Range это будем протягивать
Типа такого:
ЛистПрайс.Range(ЛистПрайс.Cells(2,8),ЛистПрайс.Cells(2,8)).AutoFill(ЛистПрайс.Range(ЛистПрайс.Cells(2,8),ЛистПрайс.Cells(2,11)))
т.е. тут мы от клетки 2,8 протягиваем до 2,11
Сначала выбираем Range с клеткой, которую хотим протянуть, а в параметре AutoFill указываем на какой Range это будем протягивать
Типа такого:
ЛистПрайс.Range(ЛистПрайс.Cells(2,8),ЛистПрайс.Cells(2,8)).AutoFill(ЛистПрайс.Range(ЛистПрайс.Cells(2,8),ЛистПрайс.Cells(2,11)))
т.е. тут мы от клетки 2,8 протягиваем до 2,11
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот