'--- 2次元配列の指定した行で文字列を検索して列を返す関数 ---
Private Function Return_Column_From_2Darray(ByVal Item, ByVal row, ByRef arr() As Variant)
Dim i As Long
For i = 1 To UBound(arr(), 2)
If arr(row, i) = Item Then
Return_Column_From_2Darray = i
Exit For
End If
Next i
End Function
↧