Передача массива в процедуру

Sub test()

Dim arr1() As String
ReDim arr1(3)
arr1(0) = "51"
arr1(1) = "91.02"
arr1(2) = "60.01"

Call test2(arr1)
End Sub


Sub test2(ByRef arr() As String)
For i = 1 To 100
   For i0 = 0 To UBound(arr, 1) - 1
     If Range("E" & i) = arr(i0) Then Range("E" & i).Font.Bold = True
   Next i0
Next i
End Sub


Добавить комментарий

Ваш адрес email не будет опубликован.