'--- 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
More than 3 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme