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

[ilyha93]

Значения диапазона, модуль которых больше заданного числа, разделить на заданное
число, остальные значения оставить без изменений. Поместить новый диапазон снизу
от выделенного диапазона.

[alex77755]

Именно функцию?
Процедура не подойдёт?
Формулу массива не все знают как вводить.
Проще создать процедуру, а часть вычислений вынести в функции

[ilyha93]

На основе значений выделенного диапазона сформировать значения нового диапазона по указанному в задании

[ilyha93]

скорее вы правы

[ilyha93]

На основе значений выделенного диапазона сформировать значения нового диапазона по указанному в задании
Значения диапазона, модуль которых больше заданного числа, разделить на заданное
число, остальные значения оставить без изменений. Поместить новый диапазон снизу
от выделенного диапазона.

[ilyha93]

да процедуру нужно

[Hugo121]

Так?

Option Explicit

Sub tt()
ttt 2, 3
End Sub

Sub ttt(x, y)
    Dim a(), i&, ii&
    a = Selection.Value
    For i = 1 To UBound(a, 1)
        For ii = 1 To UBound(a, 2)
            If a(i, ii) Mod x = 0 Then
                a(i, ii) = a(i, ii) / y
            End If
        Next
    Next
    Selection.Offset(Selection.Rows.Count + 1).Value = a
End Sub

[alex77755]

с массивом и функцией:

Dim T
Dim N
Dim M()
Private Sub CommandButton1_Click()
Dim R, C
Randomize
'считывание в массив
M = Range(Cells(1, 1), _
Cells(ActiveSheet.Cells.Find("*", , , , xlByRows, xlPrevious).Row, _
ActiveSheet.Cells.Find("*", , , , xlByColumns, xlPrevious).Column))

'запрос числа
T = InputBox("Введите заданное число", "Запрос числа", Int(40 * Rnd + 10))
If T = "" Then Exit Sub

N = Val(T)
For R = 1 To UBound(M, 1)
    For C = 1 To UBound(M, 2)
        M(R, C) = VOPR(M(R, C), N) ' вызов функции рассчёта
Next C, R
'выгрузка результата
Range(Cells(UBound(M, 1) + 2, 1), Cells(2 * UBound(M, 1) + 1, UBound(M, 2))) = M

End Sub

Function VOPR(A, B)
VOPR = IIf(Abs(A) > B, A / B, A)
End Function

[ilyha93]

а если только процедуру? программа так же будет выглядеть или нет?

[Hugo121]

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