Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Прописать формулы макросом. - Страница 2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 2 из 2«12
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Прописать формулы макросом. (Макросы/Sub)
Прописать формулы макросом.
_Igor_61 Дата: Понедельник, 20.11.2017, 23:06 | Сообщение № 21
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 238
Репутация: 44 ±
Замечаний: 20% ±

Excel 2007
[vba]
Код
Sub Формулы()
    Dim lCount As Long
    lCount = Cells(Rows.Count, 1).End(xlUp).Row
    Range("G1:G" & lCount).FormulaR1C1 = "=RC[-4]*RC[-5]"
    Range("H1:H" & lCount).FormulaR1C1 = "=RC[-3]*RC[-6]"
    Cells(lCount + 1, 7).FormulaR1C1 = "=SUM(R1C:R[-1]C)"
    Cells(lCount + 1, 8).FormulaR1C1 = "=SUM(R1C:R[-1]C)"
    Cells(lCount + 1, 9).FormulaR1C1 = "=RC[-2]-RC[-1]"
End Sub
[/vba]
Вот так вроде все правильно
 
Ответить
Сообщение[vba]
Код
Sub Формулы()
    Dim lCount As Long
    lCount = Cells(Rows.Count, 1).End(xlUp).Row
    Range("G1:G" & lCount).FormulaR1C1 = "=RC[-4]*RC[-5]"
    Range("H1:H" & lCount).FormulaR1C1 = "=RC[-3]*RC[-6]"
    Cells(lCount + 1, 7).FormulaR1C1 = "=SUM(R1C:R[-1]C)"
    Cells(lCount + 1, 8).FormulaR1C1 = "=SUM(R1C:R[-1]C)"
    Cells(lCount + 1, 9).FormulaR1C1 = "=RC[-2]-RC[-1]"
End Sub
[/vba]
Вот так вроде все правильно

Автор - _Igor_61
Дата добавления - 20.11.2017 в 23:06
Mark1976 Дата: Понедельник, 20.11.2017, 23:13 | Сообщение № 22
Группа: Проверенные
Ранг: Обитатель
Сообщений: 433
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
_Igor_61, красота !!!
 
Ответить
Сообщение_Igor_61, красота !!!

Автор - Mark1976
Дата добавления - 20.11.2017 в 23:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Прописать формулы макросом. (Макросы/Sub)
Страница 2 из 2«12
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!