LoginSignup
0
0

More than 5 years have passed since last update.

@areanoblog

配列をdictionaryのkeyに格納

Posted at 
Public Function setArraytoDic(ByRef strArray As Variant) As Dictionary
    Dim i As Long
    Set setArraytoDic = CreateObject("Scripting.Dictionary")
    For i = 0 To UBound(strArray)
        setArraytoDic.Add strArray(i), i + 1
    Next i

End Function
0
0
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
Sign upLogin
0
0