Передача массива в функуцию

[tae1980]

Как правильно передать одномерный массив в функцию? Так что бы элементы массива можно было изменить и потом вернуть не только переменную с результатом работы функцию, но и сам массив.

[Skif-F]

это Вам не Pascal, не понимаю сложности:

Sub a()
    Dim dd(3) As Integer
    ss aaa:=dd()
End Sub
Sub ss(aaa() As Integer)
    aaa(1) = 2
End Sub

[tae1980]

Сообщение от Skif-F

это Вам не Pascal, не понимаю сложности:

Sub a()
    Dim dd(3) As Integer
    ss aaa:=dd()
End Sub
Sub ss(aaa() As Integer)
    aaa(1) = 2
End Sub

Точно, не паскаль... А вот с функциями подобное не проходит. Ну и ладно, можно обойтись.

[Skif-F]

А так:

Sub a()
    Dim dd(3) As Integer
    q = ss(aaa:=dd())
    q(1) = 3
End Sub
Function ss(aaa() As Integer) As Variant
    aaa(1) = 2
    ss = aaa()
End Function

[tae1980]

Сообщение от Skif-F

А так:[/CODE]

Вот так работает как нужно

Sub a()
    Dim dd(3) As Integer
    qw = ss(aaa:=dd())
    dd(1) = 3
End Sub
Function ss(aaa() As Integer) As Variant
    aaa(1) = 2
    ss = 234
End Function

Спасибо за ответ!

[EducatedFool]

Есть 2 основных варианта:

Sub Макрос1()
    Dim ИсходныйМассив(3) As Integer
    НовыйМассив = ОбработкаМассива1(ИсходныйМассив)
    MsgBox НовыйМассив(1)
End Sub

Function ОбработкаМассива1(ByVal Массив)  ' функция возвращает массив
    Массив(1) = 111
    ОбработкаМассива1 = Массив
End Function

и

Sub Макрос2()    ' так намного проще - массив передаётся по ссылке
    Dim ИсходныйМассив(3) As Integer
    ОбработкаМассива2 ИсходныйМассив
    MsgBox ИсходныйМассив(1)
End Sub

Function ОбработкаМассива2(ByRef Массив)    ' массив передаётся по ссылке
    Массив(1) = 222    ' изменения вносятся в переданный массив
End Function

Проще всего использовать второй вариант.

То, что вам надо:

Sub Макрос3()
    Dim ИсходныйМассив(3) As Integer, ОбработкаПрошлаУспешно As Boolean
    
    ОбработкаПрошлаУспешно = ОбработкаМассива(ИсходныйМассив)
    
    If ОбработкаПрошлаУспешно Then MsgBox ИсходныйМассив(1) Else MsgBox "error"
End Sub

Function ОбработкаМассива(ByRef Массив) As Boolean
    ' возвращает результат типа Boolean - TRUE, если ошибок не было
    On Error Resume Next: Err.Clear
    
    Массив(1) = 222    ' изменения вносятся в переданный массив
    Массив(2) = 444    ' изменения вносятся в переданный массив
    
    ОбработкаМассива = Err = 0
End Function