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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Прописать формулы макросом. (Макросы/Sub)
Прописать формулы макросом.
_Igor_61 Дата: Понедельник, 20.11.2017, 23:06 | Сообщение № 21
Группа: Проверенные
Ранг: Ветеран
Сообщений: 504
Репутация: 90 ±
Замечаний: 0% ±

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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 738
Репутация: 3 ±
Замечаний: 0% ±

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

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

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