Суммирование ячеек содержащих определенные формулы

@Bujhm1 · Регистрация: 12.02.2014

Студворк — интернет-сервис помощи студентам

Я опять обращаюсь к вам со своим глупым вопросом надеюсь на помощь в очередной раз!!!!

Мне необходимо составить пользовательскую функцию, которая из выбранного диапазона суммировала результаты вычисления в ячейках содержащих формулы двух типов например "=RC[-5]" и "=RC[-5]/3".
И прошу посоветовать книгу по VBA в Microsoft Office Excel.

@Казанский · 24.02.2014, 11:54

Пробуйте

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Bujhm1(r As Range)
  Dim f(), i&, j&
  f = r.FormulaR1C1
  ReDim v(1 To UBound(f), 1 To UBound(f, 2))
  For i = 1 To UBound(f)
    For j = 1 To UBound(f, 2)
      Select Case f(i, j)
      Case "=RC[-5]", "=RC[-5]/3" 'список формул
        v(i, j) = 1
      End Select
    Next
  Next
  Bujhm1 = Application.SumProduct(r, v)
End Function

Книги тут: Учебники, справочники, самоучители

@Bujhm1 · 24.02.2014, 12:56 **[ТС]**

Спасибо за ответ, но я подставил более сложную функцию и VBA выдает ошибку

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Qy_ФАЗА_А(r As Range)
  Dim f(), i&, j&
  f = r.FormulaR1C1
  ReDim v(1 To UBound(f), 1 To UBound(f, 2))
  For i = 1 To UBound(f)
    For j = 1 To UBound(f, 2)
      Select Case f(i, j)
      Case "=ЕСЛИ(RC[-3]=0;" ";RC[-8]*RC[-5])", "=ЕСЛИ(RC[-3]=0;" ";RC[-3]*RC[-4])" 'список формул
        v(i, j) = 1
      End Select
    Next
  Next
  Qy_ФАЗА_А = Application.SumProduct(r, v)
End Function

После замены " " в искомых функциях ("=ЕСЛИ(RC[-3]=0;" ";RC[-8]*RC[-5])", "=ЕСЛИ(RC[-3]=0;" ";RC[-3]*RC[-4])") на 0 и замены соответствующих формул в ячейках вычисления не производится.
Прошу помощи

@Bujhm1 · 24.02.2014, 13:12 **[ТС]**

Добавляю файл где используется эта функция

Новые блоги и статьи Все статьи Все блоги /
Гайд по современным СУБД (небесспорный) Codd 26.06.2025 Когда я только начинал свой путь в IT как рядовой программист, база данных казалась мне чем-то простым и понятным. Ну, серьезно — это же просто место, где лежат данные, верно? Напиши SELECT * FROM. . .	Использование C# с AWS S3: Примеры с AWS SDK для .NET stackOverflow 26.06.2025 Amazon S3 (Simple Storage Service) уже давно стал стандартом де-факто в мире облачного хранения данных. Особенно приятно, что для разработчиков . NET предусмотрен отличный SDK, который значительно. . .	Веб-автоматизация с Python и Selenium AI_Generated 25.06.2025 Selenium с Python — это комбинация, которая выдержала проверку временем. Несмотря на появление новых инструментов вроде Playwright или Puppeteer, связка Python-Selenium остаётся золотым стандартом. . .	CQRS и Event Sourcing на C# ArchitectMsa 25.06.2025 За последние несколько лет сложность корпоративных приложений выросла в геометрической прогрессии. Простые монолитные системы уступили место распределенным микросервисам, а нагрузка на корпоративные. . .	Хак домофона или как открыть дверь по номеру yariko 25.06.2025 Забыли дома ключ. Не проблема. Можно открыть дверь домофона, просто позвонив на свой номер квартиры. Идея состоит в следующем. Внутрь трубки абонента встраивается контроллер, который по звонку сам. . .
Как украсить новогоднюю елку с Q# и Qiskit EggHead 24.06.2025 Что может быть необычнее, чем применить законы квантовой механики для украшения новогодней елки? Пока другие развешивают обычные гирлянды, я решил объединить свою страсть к квантовым вычислениям с. . .	Системы нулевого доверия на C# UnmanagedCoder 24.06.2025 Традиционная архитектура безопасности работает по принципу средневекового замка: создаём высокие стены вокруг корпоративной сети, укрепляем ворота межсетевыми экранами и системами обнаружения. . .	Снова не мой путь. Циклическое среднее, я обеими руками за проверку условия, в ракурсе данной задачи - циклическое среднее в топку. Hrethgir 24.06.2025 Привет. Такой вопрос - нужно выводить среднее математическое между двумя направлениями, интервал значений которых может лежать в диапазоне одного оборота по кругу. Проблема заключается в том, что. . .	Деплой Flask приложения py-thonny 23.06.2025 За годы работы с Flask я натыкался на одни и те же грабли достаточно часто, чтобы наконец научится их обходить. И сегодня хочу поделится опытом, который сбережет вам немало нервных клеток. Начнем с. . .	WebAssembly и контейнеры в .NET Aspire для оркестрации распределенных архитектур ArchitectMsa 23.06.2025 Я наблюдаю, как WebAssembly (или просто WASM) постепенно выходит за рамки своего первоначального предназначения — исполнения кода на стороне браузера. Теперь эта технология проникает в серверную. . .

@Bujhm1 0 / 0 / 0 Регистрация: 12.02.2014 Сообщений: 9

	Суммирование ячеек содержащих определенные формулы 24.02.2014, 11:10. Показов 1179. Ответов 3 Метки нет (Все метки) Я опять обращаюсь к вам со своим глупым вопросом надеюсь на помощь в очередной раз!!!! Мне необходимо составить пользовательскую функцию, которая из выбранного диапазона суммировала результаты вычисления в ячейках содержащих формулы двух типов например "=RC[-5]" и "=RC[-5]/3". И прошу посоветовать книгу по VBA в Microsoft Office Excel. 0

Суммирование ячеек содержащих определенные формулы

Решение