Как создать функцию?

[alex77755]

For R = 1 To UBound(M, 1)
    For C = 1 To UBound(M, 2)
         M(R, C) = IIf(Abs(M(R, C)) > N, M(R, C) / N, M(R, C))
Next C, R

[ilyha93]

Сообщение от Hugo121

Что-то я там с модулем не то сделал Ну это лекго исправить...

это вам а легко а человеку который только начал тяжеловато будет))))


скажите а можете помочь решить эту задачу только если сделать по вот этой мини инструкции
Наберите текст процедуры. Для обработки всех ячеек выделенного диапазона используйте цикл For Each. Для определения ячеек, куда будет записываться результат, используйте свойство Offset. Ячейку, куда будет записываться результат, необходимо сдвинуть относительно исходной ячейки на количество строк выделенного диапазона или количество столбцов выделенного диапазона. Для определения количества строк и столбцов в выделенном диапазоне используйте инструкции Selection.Rows.Count и Selection.Columns.Count. Для того чтобы избежать ошибок, связанных с неверными типами данных, проверьте тип данных ячейки с помощью инструкции VarType(cell.Value) = vbDouble.

[ilyha93]

Сообщение от alex77755

For R = 1 To UBound(M, 1)
    For C = 1 To UBound(M, 2)
         M(R, C) = IIf(Abs(M(R, C)) > N, M(R, C) / N, M(R, C))
Next C, R

а можно с 1 строчки до последней

[Hugo121]

Так у меня практически всё так и сделано.
А с модулем вероятно так (я не математик, так что что такое модуль - понимаю смутно, у alex77755 подсмотрел):

If Abs(a(i, ii)) > x Then

[ilyha93]

скажите я вот набираю а мне вот это выдает ...

[ilyha93]

И люди можете если не сложно помочь еще воот с этими 3

1)ЗАДАЧА:
Составьте функцию, которая проверяет, действительно ли количество положительных
элементов диапазона меньше количества его отрицательных элементов.

2)Разработать функцию, выполняющую указанное задание. Функция должна получать диапазон для обработки, а также, при необходимости, заданное число или заданный интервал, и возвращать массив. Для проверки работоспособности функции использовать её для вставки формулы массива.
ЗАДАЧА:
Составьте функцию, которая находит в каждом столбце диапазона количество элементов, меньших среднего арифметического значения всех элементов диапазона

3)Разработать функцию, выполняющую указанное задание. Функция должна получать диапазон для обработки, а также, при необходимости, заданное число или заданный интервал. Для задания параметров функции разработать пользовательскую форму, которая должна вызываться с помощью пользовательского пункта контекстного меню. Результат функции выводить с помощью стандартной функции MsgBox.
ЗАДАЧА:
Найти сумму элементов, кратных заданному числу.

[EducatedFool]

Ну так уберите строку, которая выделена синим на скриншоте
Зачем вы её вообще добавили?

И люди можете если не сложно помочь еще воот с этими 3

А вот это уже наглость
У нас халявщиков не любят.


Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться.

В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой.

Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно)
Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается. В этом случае вы наверняка получите помочь, и ждать её придётся совсем недолго.

Впрочем, есть ещё раздел Помощь студентам - если хочется халявы, а денег жалко, - можете обратиться туда (есть небольшой шанс, что там кто-нибудь решит ваши задачки)

Ну а если наработок нет, а вы все же надеетесь получить готовое решение от профессионалов, - создавайте новую тему, и сразу указывайте цену, которую Вы готовы заплатить за решение.