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

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

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

Спасибо за ответ Казанский, но я подставил более сложную функцию и 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 и замены соответствующих формул в ячейках вычисления не производится.
Прошу помощи

@Казанский · 24.02.2014, 13:49

1. Кавычки внутри строки надо удваивать

Visual Basic
1
      Case "=ЕСЛИ(RC[-3]=0;"" "";RC[-8]*RC[-5])", "=ЕСЛИ(RC[-3]=0;"" "";RC[-3]*RC[-4])"

2. Замените 3 строку на

Visual Basic
1
  f = r.FormulaR1C1Local

@Bujhm1 · 24.02.2014, 14:16 **[ТС]**

Все работает, но прошу Вас ткнуть меня носом в литературу где найти эти приемы, именно название книги, где будут описаны все эти функции понятным языком для чайника. Насколько я понял из Вашего ответа проблема была в строке №3 "f = r.FormulaR1C1Local", разница в слове "Local", что оно означает в данном случае.
Я ВАМ ОЧЕНЬ БЛАГОДАРЕН.

@Казанский · 24.02.2014, 15:01

VBA выдавал ошибку из-за кавычек. При удвоение кавычек - в любой книге по Бейсику (не обязательно даже VBA).
FormulaR1C1Local и FormulaR1C1 - это соответственно формула ячейки на языке интерфейса (как Вы ее видите на экране) и формула на "родном" для Excel языке (названия функций по-английски, десятичный разделитель - точка, разделитель списка - запятая).

Конкретно книгу указать не могу, сам осваивал VBA по Справке: поставьте курсор в FormulaR1C1Local или в другое слово и нажмите F1.

Новые блоги и статьи Все статьи Все блоги /
Гайд по современным СУБД (небесспорный) 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, 14:16 [ТС]
	Все работает, но прошу Вас ткнуть меня носом в литературу где найти эти приемы, именно название книги, где будут описаны все эти функции понятным языком для чайника. Насколько я понял из Вашего ответа проблема была в строке №3 "f = r.FormulaR1C1Local", разница в слове "Local", что оно означает в данном случае. Я ВАМ ОЧЕНЬ БЛАГОДАРЕН. 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	24.02.2014, 15:01
	VBA выдавал ошибку из-за кавычек. При удвоение кавычек - в любой книге по Бейсику (не обязательно даже VBA). FormulaR1C1Local и FormulaR1C1 - это соответственно формула ячейки на языке интерфейса (как Вы ее видите на экране) и формула на "родном" для Excel языке (названия функций по-английски, десятичный разделитель - точка, разделитель списка - запятая). Конкретно книгу указать не могу, сам осваивал VBA по Справке: поставьте курсор в FormulaR1C1Local или в другое слово и нажмите F1. 0

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

Решение