Блог

два вопроса, во-первых, не могли бы вы напомнить мне, как опрашивать многомерный массив при его назначении? Я всегда делаю это с помощью цикла for и как статически это сделать, кажется, ускользает от меня?

Но то, что я действительно хочу сделать, это использовать массив для проверки содержимого ячеек. однако в приведенном ниже примере я хочу использовать только первый элемент во 2-м измерении.

т.е.
0,0
1,0
2,0
3,0
4,0

Есть ли какой-либо способ обновить .Добавить строку типа:=xlValidateList, Formula1:=Join(ary, «,»), чтобы она возвращала только эти 5 значений из массива размером 5 на 4?

Приветствия

аарон

 Sub test()


Dim ary As Variant
ReDim ary(5,4)


ary = Array("Value1", "Value2", "Value3", "test", "test2", "test3", "test4")

With ActiveSheet.Cells(1, 1).Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:=Join(ary, ",")
    .IgnoreBlank = False
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With
End Sub
 

Изменение размера 2D-массива до 1D происходит быстро

Приведенный ниже код заполняет ваш массив размером 5 * 4 образцами данных, затем второй цикл извлекает только первое измерение в новый одномерный массив с той же длиной строки, что и ваш исходный массив

 Sub test()

    Dim ary As Variant
    Dim X As Variant
    Dim lngRow As Long
    Dim lngCol As Long

    ReDim ary(1 To 5, 1 To 4)
    ReDim X(1 To UBound(ary, 1))

    For lngRow = 1 To UBound(ary, 1)
        For lngCol = 1 To UBound(ary, 2)
            ary(lngRow, lngCol) = "I am row " amp; lngRow amp; "  and dimension " amp; lngCol
        Next
    Next

    For lngRow = 1 To UBound(ary, 1)
    X(lngRow) = ary(lngRow, 1)
    Next

    With ActiveSheet.Cells(1, 1).Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=Join(X, ",")
        .IgnoreBlank = False
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With
End Sub