セルのバリデーションと配列

Question

2つの質問は、まず、多次元配列を割り当てるときにそれをポレーションする方法を私に思い出させることができますか？私はいつもforループでやっていますし、どうやって静かにそれを逃れるようですか？

私が実際に探しているのは、配列を使用してセルの内容を検証することです。以下の例では、第2次元の最初の要素のみを使用したいと考えています。
0,0
1,0
2,0
3,0
4,0

すなわち

は.Addタイプを更新する方法はあります：= xlValidateList、Formula1： = Join（ary、 "、"）行は5行4列の配列からこれら5つの値を返すだけですか？

Cheeers

アーロン

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 

Answer 1

1Dに2Dアレイのサイズ変更が迅速である

コードは、次のサンプルデータを、第二のループのみを抽出してください5 * 4配列を移入新しい1D配列の最初の次元は、最初の配列と同じ行の長さです。

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 " & lngRow & " and dimension " & 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