Переменная формула, состоящая из переменных формул - VBA

Узнай цену своей работы

Формулировка задачи:

Подскажите пожалуйста, как написать формулу состоящую из переменных формул (в одну формулу написать можно но не надо - потому что формул много и они большие), т.е. надо в одну ячейку поместить два значения двух разных формул приблизительно должно получится 10 / 15, т.е. из двух разных формул (переменных)
Листинг программы
  1. bb = "COUNTIFS(Лист1!F:F,""Да"",Лист1!G:G,""-"")"
  2. aa = "COUNTIFS(Лист1!F:F,""Да"",Лист1!G:G,""+"")"
  3. cc = "=" & "aa&"" / ""&bb" 'попытался написать так - неполучилось
вообще не получается формулу воткнуть с доп. Даже так не получилось пробел с кассой чертой воткнуть
Листинг программы
  1. bb = "=COUNTIFS(Лист1!F:F,""Да"",Лист1!G:G,""-"")"
  2. aa = "=COUNTIFS(Лист1!F:F,""Да"",Лист1!G:G,""+"")"
  3. cc = "=bb & "" / """
  4. Range("d9") = cc
формулу рассчитывает, а вот чтоб пробел с черточкой нет - сразу ошибку выбивает, что делать?
Листинг программы
  1. Sub trsr1()
  2. bb = "COUNTIFS(ñòåðåòü!F:F,""Г„Г*"",ñòåðåòü!G:G,""-"")"
  3. aa = "COUNTIFS(ñòåðåòü!F:F,""Г„Г*"",ñòåðåòü!G:G,""+"")"
  4. cc = "=ROUND(" & bb & "/" & aa & "*" & 100 & ",)"
  5. Range("d9") = cc
  6. End Sub

Решение задачи: «Переменная формула, состоящая из переменных формул»

textual
Листинг программы
  1. Sub tr()
  2. ' определил номер ячейки из c5:n5, месяц которой совпадает с месяцем ячейки b1
  3. n = [MATCH(MONTH(B1),MONTH(C5:N5),)]
  4.  
  5. bb = "R[-3]C"  ' формула которая тоже участвует в расчете
  6. aa = "COUNTIFS(стереть!C6,""Да"",стереть!C7,""+"")"
  7. cc = "=" & aa & "+" & bb
  8.  
  9. ' поместил формулу в соотв. ячейку диапазона c9:n9
  10. Range("c9:n9").Cells(n) = cc
  11. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.385 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут