Вставка формул
Вставка формул в VBA очень похожа на вставку в ООО. Формула в отдельную ячейку вставляется примером следующего кода:
Sub F1()
Worksheets("Sheet1").Range("C1").Formula = "=Sum(C2:C65536) "
End Sub
Это командой мы получили сумму столбца "Сумма" Реестра документов в первой его ячейке вместо заголовка.
Задача: получите максимальное значение номера документа в файле Реестр документов в ячейке А1. Для поиска наибольшего значения используйте функцию MAX.
Протягивание формулы сверху низ до конца может осуществлятся несколькими способами. Одним их них - протянуть на количество заполненных строк соседнего стоблца, но нужно быть уверенным что он заполнен без пропусков до нужной строки:
Sub F2()
Range("R2").Formula = "=(C2*18)/118"
n = Sheets("Sheet1").Range("Q1").CurrentRegion.Rows.Count
Range("R2").AutoFill Destination:=Range("R2:R" & n), Type:=xlFillDefault
Range("R1").String = "НДС"
End Sub
Этим кодом мы вставили в последний пустой столбец Реестра документов расчет НДС столбца "Сумма". Как видно из примера - подсчет кол-ва столбцов к заполнению формулами производится по соседнему столбцу Q.
Задача: В Файле Реестр документов найдите сумму операций без НДС построчно по каждой операции, с протягиванием.
Sub F1()
Worksheets("Sheet1").Range("C1").Formula = "=Sum(C2:C65536) "
End Sub
Это командой мы получили сумму столбца "Сумма" Реестра документов в первой его ячейке вместо заголовка.
Задача: получите максимальное значение номера документа в файле Реестр документов в ячейке А1. Для поиска наибольшего значения используйте функцию MAX.
Протягивание формулы сверху низ до конца может осуществлятся несколькими способами. Одним их них - протянуть на количество заполненных строк соседнего стоблца, но нужно быть уверенным что он заполнен без пропусков до нужной строки:
Sub F2()
Range("R2").Formula = "=(C2*18)/118"
n = Sheets("Sheet1").Range("Q1").CurrentRegion.Rows.Count
Range("R2").AutoFill Destination:=Range("R2:R" & n), Type:=xlFillDefault
Range("R1").String = "НДС"
End Sub
Этим кодом мы вставили в последний пустой столбец Реестра документов расчет НДС столбца "Сумма". Как видно из примера - подсчет кол-ва столбцов к заполнению формулами производится по соседнему столбцу Q.
Задача: В Файле Реестр документов найдите сумму операций без НДС построчно по каждой операции, с протягиванием.
Комментарии
Отправить комментарий