Как быть, если полученный массив Excel VBA имеет всего одно значение

Posted by obzor under VBA

Получаю массив данных для комбобокс так

With Sheets("Список")
        arrЗаказОпл = .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(xlUp)).Value
    End With
ComboBox_НЗ.List = arrЗаказОпл

все работает без нареканий, но вот столкнулся со случаем, когда в массив попадает всего одно значение и тогда эта конструкция не работает.
как можно и нужно здесь сделать, чтобы получить это одно значение для комбобокса?

pashulka

ComboBox_НЗ.List = IIf(IsArray(arrЗаказОпл), arrЗаказОпл, Array(arrЗаказОпл))

Aleksandr H.

А если обработать ошибку, может быть?

Sub fa()
    Dim arrЗаказОпл
    On Error GoTo Errors1
    With Sheets("Список")
        arrЗаказОпл = .Range(.Cells(1, 2), .Cells(Rows.Count, 2).End(xlUp)).Value
    End With

    ComboBox1.List = arrЗаказОпл
    Exit Sub
Errors1:
    ComboBox1.Clear
    ComboBox1.AddItem arrЗаказОпл
End Sub

тема на форуме

Похожие статьи

• Удалить повторяющиеся элементы из массива (VBA в Excel)
• Сортировка кучей на языке Си
• Pascal — Заполнить массив случайными числами
• Реализация процедуры поиска max элемента одномерного массива
• PascalABC.net — Заполнить массив случайными числами и найти сумму элементов
• Удаление элементов из одномерного массива
• Замена элементов в двумерном массиве
• Считывание двумерного массива из потока данных
• Есть ли в массиве А[n] числа В и С и определить, какое из чисел встречается в массиве чаще
• Обнуления массива слов на Ассемблере