Блог

Я пытаюсь создать список проверки из массива одного измерения. Проблема в том, что этот код создает только один элемент в списке проверки. Одна большая строка с разделителем, и я хотел бы отобразить все элементы, разделенные запятой.

 Sub test4()
    Dim aLineProd() As Variant
    Dim i As Long
    
    ReDim Preserve aLineProd(100)
    
    Do
        aLineProd(i) = ThisWorkbook.Worksheets(LIGNEPRODUCTION_SHEET_NAME).Range(INITIALCELL_ADRESS).Offset(i).Value
        i = i   1
    Loop Until ThisWorkbook.Worksheets(LIGNEPRODUCTION_SHEET_NAME).Range(INITIALCELL_ADRESS).Offset(i).Value = ""
    
    ReDim Preserve aLineProd(i - 1)
    
    Call CreateValidationListGeneric(LINENUMBERABLE_ADRESS, aLineProd(), CHECKPRODUCTCODESHEET_NAME)
End Sub

Sub CreateValidationListGeneric(CellAdress As String, _
aValidationList() As Variant, sWorksheetName As String)

    With Worksheets(sWorksheetName).Range(CellAdress).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:=Join(aValidationList, ",")
    End With
    
End Sub