Разное - Пользовательская функция в Excel с параметром

okshef · Конфигурация компьютера

=СУММ((A2:D4-$F$2)^2)
Вводится как формула массива

P.S. ParamArray

Доярка · Отправлено: **10:38, 31-12-2011** | #3

Насчёт формулы массива - спасибо за подсказку! Можно и так. Но всё равно тот пример демонстрационный.
Вопрос же в принципиальном плане остаётся открытым.
С наступающим! В моём регионе уже около 18 часов, скоро солнце сядет, а там через 6 часов и Новый Год! Так что скоро сойдё в оффлайн.

okshef · Конфигурация компьютера

Я не силен в макросах, но, по-моему, нужно использовать 2 переменные для обозначения массива и делать через вложенный цикл (по строкам и столбцам)

ИМХО, формула массива в данном случае вполне достаточна.

или как-то так

Код:

SUMSQ=0
Set range=Ваш_массив
skalar=[F2].value 'здесь могу ошибиться
for each c in range
SUMSQ = SUMSQ + (Scalar - c.Value) ^ 2
Next

Доярка · Отправлено: **10:59, 31-12-2011** | #5

1. Если переменная есть массив, то у неё дожны быть свойства типа rows и columns, т.е. вложеные циклы должны идти по обоим индексам. Вся документация, что я видела, говорит только о ParamArray - с его использованием и привела пример абсурдной формулы.
2. В данном случае формула массива - вполне. Но возможны более сложные случаи.

Цитата okshef:

или как-то так
Код: »

Явно можно описать диапазоны и в коде. Например,
Scalar=Cells(2,6).Value (буква F 6-я по счёту) и т.д.
Но снижается гибкость. Хотелось бы, чтобы какой-то один аргумент функции был массивом сразу весь, у которого можно определить число строк и столбцов. Мало ли какие операции необходимо проделать, например, только со строками, а оператор вида For Each... Next работает просто с каждым элементом объекта.

okshef · Конфигурация компьютера

Передавайте массив ячеек как Range

Код:

Function SUMSQ(Scalar, Interval As Range)
SUMSQ = 0
For Each c In Interval
SUMSQ = SUMSQ + (Scalar - c) ^ 2
Next
End Function

Проверил - работает!

Доярка · Отправлено: **08:05, 02-01-2012** | #7

Отлично!!! Есть!!!
Дальше – больше. Если аргумент Interval описан как Range, есть ли у него свойства типа Rows и Columns (т.е. сколько у него строк и столбцов)?
С наступившим Новым Годом и больше хороших деяний во благо продвинутых юзеров – и не только!

okshef · Конфигурация компьютера

Доярка, вы же знаете ответ на свой вопрос. Зачем спрашиваете?
Конечно есть.

Доярка · Отправлено: **10:46, 02-01-2012** | #9

Что имею?
Во-первых, если у меня в Excel 2007 в модуле VBA сидит не процедура (Sub), а функция (Function), то через меню «Вид -> Макросы -> Макросы» уже доступа к ней нет. Хорошо, что помню комбинацию Alt+F11 для быстрого вызова редактора VBA, которая и здесь имеет силу!
Во-вторых, при попытке в том коде вычислить значение типа Interval.Rows при повторном вычислении ячейки с этой вставленной функцией выдаётся сообщение об ошибке «#ЗНАЧ!» - т.е. просто не знаю, как это значение грамотно узнать.

Возьмём такую вот задачу. Пусть в некотором интервале размещена матрица. Требуется создать функцию, которая вычислила бы сумму элементов, находящихся в строке с указанным номером (2-ой аргумент) этой матрицы (1-ый аргумент). Причём если номер строки задан ошибочно, то и выводилось бы сообщение о какой-нибудь ошибке.
Как делаю с помощью формул рабочего листа? Пусть в этом же примере номер строки явно указан в ячейке C11. В A12 пишу формулу
=ИНДЕКС($A$2:$D$4;$C$11;СТОЛБЕЦ())
и растягиваю по D12. В E12 формула
=СУММ(A12:D12)
Коряво, не правда ли?

okshef · Конфигурация компьютера

Доярка, во-первых, давайте подходить к вопросу согласно общих правил форума: одна проблема - одна тема, поэтому, если хотите, создайте новую тему и приложите файл.
Во-вторых, в рамках исходной темы приложите файл с кодом, в котором вы хотите вычислить Interval.rows