Массив в качестве параметра в процедуру - VB

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

При передаче массива в качестве параметра в процедуру, в этой самой процедуре видны не все элементы массива.
Имеется такой вот код:

butt_ok_Click()
 arrData()  Variant
......

j = 
 Worksheets().Range()
     c = .Find(Kod_val.Column(), LookIn:=xlValues)
      c   
        FirstAddress = c.Address
        
            arrData(  j,   )  Variant
           arrData(j, ) = c.Offset(, ).Value
           arrData(j, ) = c.Offset(, ).Value
            c = .FindNext(c)
           j = j + 
          c.Address = FirstAddress

  opis(Otd_From.Value, Otd_To.Value, Kod_val.Column(), Kod_val.Column(), Range(), Range(), arrData)
...

 opis(nameOtdFrom, nameOtdTo, kodVal, nameVal, dateOp, curscb,  arrData  Variant)
...
[color=red]
 i = LBound(arrData, )  UBound(arrData, )
    MsgBox i &  & arrData(i, ) &  & arrData(i, )

 

Решение задачи: «Массив в качестве параметра в процедуру»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> butt_ok_Click()
<font color="blue">Dim</font> arrData() <font color="blue">As</font> Variant
<font color="00AA00">' Процедура находится в модуле Module1</font>
<font color="blue">Sub</font> opis(nameOtdFrom, nameOtdTo, kodVal, nameVal, dateOp, curscb, <font color="blue">ByRef</font> arrData[b]()[/b] <font color="blue">As</font> Variant)
...
<font color="blue">End</font> <font color="blue">Sub</font>
                        

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

10 голосов , оценка 4.1 из 5

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