• Масиви VBA

    2016-04-18 08:53:55

    Поділитися в Facebook Поділитися ВКонтакте Поділитися в Однокласниках

    Робота з масивами у Visual Basic for Applications.

    Масиви можуть бути одновимірними, двовимірними та динамічними:

    • Dim Array1(4) - одновимірний масив,
    • Dim Array2(6,1) - двовимірний масив,
    • Dim Array3() - динамічний масив.

    Приклади роботи з масивом:

    example = Array("one","two","three") 'явне визначення масиву
    
    Dim array_example(10)
    array_example(8) = Range("A10") '02.04.16
    array_example(8) = Year(array_example(8))
    MsgBox array_example(8) '2016

    Заповнення масиву у циклі:

    Dim array_example(10)
    For i=0 To 10
     array_example(i) = Range("A"&i+2)
    Next

    Ubound(array_example) - повертає найбільший номер в масиві для вибраного виміру:

    Dim array_example(10,2)
    MsgBox Ubound(array_example) '=>10
    MsgBox Ubound(array_example,1) '=>10
    MsgBox Ubound(array_example,2) '=>2

    Завантаження діапазону комірок в масив:

    For i=0 To 10
     ar_example(i,0) = Range("A"&i+2)
     ar_example(i,0) = Range("B"&i+2)
     ar_example(i,0) = Range("C"&i+2)
    Next
    
    'аналогічно
    ar_example = Range("A2:C12").Value