есть такой код (см ниже)
не пойму как в Подпрограмме Sub test() получить коллекцию сформированную функцией Function create_collection
объясните, пожалуйста, что не так.
не пойму как в Подпрограмме Sub test() получить коллекцию сформированную функцией Function create_collection
объясните, пожалуйста, что не так.
Код |
---|
Sub test()Dim a As New Collection Set a = create_collection("Sales", "E") MsgBox a.Count End Sub |
Код |
---|
Function create_collection(ByVal page As String, ByVal column As String) As Collection ' формирование массива уникальных элементов 'Объявляем переменные 'myRange - диапазон ячеек, заполненный исходным списком элементов 'myCell - отдельная ячейка диапазона Dim myRange As Range, myCell As Range, LastRow As Long Sheets(page).Select LastRow = Cells(Rows.Count, 1).End(xlUp).Row 'присваиваем переменной myRange диапазон ячеек с исходным списком элементов Set myRange = Sheets(page).Range(column & "2").Resize(LastRow - 1, 1) 'заполняем новую коллекцию уникальными элементами On Error Resume Next For Each myCell In myRange create_collection.Add CStr(myCell.Value), CStr(myCell.Value) Next myCell On Error GoTo 0 End Function |