Передача массива в другую процедуру - VBA

Формулировка задачи:

Как передать массив в другую процедуру вот мой код выбивает ошибку Type mistmach

Public Sub vvod()
Dim i As Integer
Dim p As Integer
Dim n As Integer
p = 2
Dim b() As Integer
ReDim b(1 To 10)
For i = 1 To 10
b(i) = Worksheets("Лист1").Cells(i, 1)
Next i
lili (b())
End Sub
 
Public Sub lili(b1() As Integer)
Dim b1() As Double
ReDim b1(1 To 10)
For i = 1 To 10
Worksheets("Лист1").Range("B" & i) = b1(i)
Next i
End Sub

Решение задачи: «Передача массива в другую процедуру»

textual
                            Листинг программы 
                        

                            Sub Main()
Dim Массив(1 To 10) As Double
Массив(1) = 1
Call P1(Массив)
Debug.Print Массив(1)
End Sub
Sub P1(ByVal Массив)
Массив(1) = 2
End Sub
                        

Оцени полезность:

15 голосов , оценка 3.8 из 5

Похожие ответы