【ExcelVBA】連想配列（Dictionaryオブジェクト）をマスターしよう

ねぇもりさん、VBAで、配列とはちがう「連想配列」ってあるよね？

連想配列ってなぁに？

もり

「キー」と「値」をペアにしたリストのことだよ

Contents

連想配列（Dictionaryオブジェクト）とは？
連想配列を作ってみる
【実践編】Dictionaryオブジェクトを利用して星座判定関数を作ってみる
まとめ：連想配列は「リスト」として使える

連想配列（Dictionaryオブジェクト）とは？

連想配列とは「キー」と「値」をセットで格納するオブジェクトのことです。Dictionaryオブジェクトを利用して連想配列を作ります。

連想配列を作ってみる

連想配列を作るためには、参照設定で「Microsoft Scripting Runtime」の参照が必要です。

DictionaryオブジェクトのAddメソッドで「キー」と「アイテム」を追加します。

Dictionaryオブジェクト.Add キー, アイテム

Dictionaryオブジェクトにキーとアイテムを追加する

シンプルな「連想配列」を作ってみます。このような人物情報を「リスト」にするイメージです。

Key	Item
name	Bob
age	25
hobby	tennis

Dictionaryオブジェクトを作成し、「キー」と「アイテム」を追加します。変数名はpersonとします。

Sub sample1()

    Dim person As Dictionary
    Set person = New Dictionary
    
    'Dictionaryオブジェクトにキーとアイテムを追加する
    person.Add "name", "Bob"
    person.Add "age", 25
    person.Add "hobby", "tennis"
    
End Sub

Sub sample1()

Dim person As Dictionary

Set person = New Dictionary

'Dictionaryオブジェクトにキーとアイテムを追加する

person.Add "name", "Bob"

person.Add "age", 25

person.Add "hobby", "tennis"

End Sub

ローカルウィンドウで変数personの中身を確認します。Dictionary型で3つのアイテム（値）が追加されています。

Dictionaryオブジェクトのメソッドを使ってみる

2つのメソッドを紹介します。

Keysメソッド　すべてのキーの配列を返す

Itemsメソッド　すべてのアイテムの配列を返す

コードで確認してみましょう。

Dim arrKeys As Variant
arrKeys = person.Keys
    
Dim arrItems As Variant
arrItems = person.Items

Dim arrKeys As Variant

arrKeys = person.Keys

Dim arrItems As Variant

arrItems = person.Items

ローカルウィンドウで変数の中身を確認します。インデックス 0 ~ 2 の配列が作成されました。

配列の要素番号を指定して、中身を確認することもできます。

'インデックス=1の Key は？ ※インデックスは0からはじまる
Debug.Print person.Keys(1) ' => age
    
'インデックス=2の Item は？
Debug.Print person.Items(2) ' => tennis

'インデックス=1の Key は？ ※インデックスは0からはじまる

Debug.Print person.Keys(1) ' => age

'インデックス=2の Item は？

Debug.Print person.Items(2) ' => tennis

連想配列をExcelシートに書き出す

Dictionaryオブジェクトにキーとアイテムを追加し、その内容をExcelシートに書き出すサンプルコードです。

Sub sample2()

    Dim person As Dictionary
    Set person = New Dictionary
    
    'Dictionaryオブジェクトにキーとアイテムを追加する
    person.Add "name", "Bob"
    person.Add "age", 25
    person.Add "hobby", "tennis"
    
    'personの中身をシートの2行目以降に書き出す
    Dim i As Long
    For i = 0 To person.Count - 1
    
        Cells(i + 2, 1).Value = person.Keys(i)
        Cells(i + 2, 2).Value = person.Items(i)
    
    Next i

End Sub

Sub sample2()

Dim person As Dictionary

Set person = New Dictionary

'Dictionaryオブジェクトにキーとアイテムを追加する

person.Add "name", "Bob"

person.Add "age", 25

person.Add "hobby", "tennis"

'personの中身をシートの2行目以降に書き出す

Dim i As Long

For i = 0 To person.Count - 1

Cells(i + 2, 1).Value = person.Keys(i)

Cells(i + 2, 2).Value = person.Items(i)

Next i

End Sub

実行結果です。アクティブシートの2行目以降に書き込まれます。

For～Nextステートメントで、personオブジェクトの要素数、処理を繰り返すのがポイントです。Countプロパティで要素数を取得します。

Countプロパティ

→Dictionaryオブジェクトのキーとアイテムの「組み合わせの数」を返す

Countプロパティの値は3です。

Debug.Print person.Count ' => 3

1	Debug.Print person.Count ' => 3

インデックス0～2の処理を繰り返したいので、For～Nextステートメントの繰り返し条件は0 To person.Count - 1となります。

Excelシートのデータから連想配列を作る

今度は逆のパターンです。Excelシートのデータから連想配列を作ります。

Sub sample3()

    Dim person As Dictionary
    Set person = New Dictionary
    
    Dim key As String, item As String
    
    Dim lastRow As Long
    lastRow = Cells(1, 1).End(xlDown).Row
    
    Dim i As Long
    For i = 2 To lastRow '2行目～最終行
    
        key = Cells(i, 1).Value
        item = Cells(i, 2).Value
        
        'Dictionaryオブジェクトにキーとアイテムを追加する
        person.Add key, item
    
    Next i

End Sub

Sub sample3()

Dim person As Dictionary

Set person = New Dictionary

Dim key As String, item As String

Dim lastRow As Long

lastRow = Cells(1, 1).End(xlDown).Row

Dim i As Long

For i = 2 To lastRow '2行目～最終行

key = Cells(i, 1).Value

item = Cells(i, 2).Value

'Dictionaryオブジェクトにキーとアイテムを追加する

person.Add key, item

Next i

End Sub

実行結果です。変数person（Dictionaryオブジェクト）にItem１～3 が作成されました。

【実践編】Dictionaryオブジェクトを利用して星座判定関数を作ってみる

へぇ～。「キー」と「値」がペアになった「リスト」なんだね。

でも、これって、どういう時に役立つのかな？

もり

それじゃあ実践してみよう！お題は「星座判定関数を作る」だよ！

たとえば、2月19日～3月20日は「うお座」、3月21日～4月19日は「おひつじ座」のように、星座ごとに日付の範囲が決まっています。

日付を与えると星座を返す関数を作ってみます。

Sub main()

    Debug.Print SeizaCheck(DateSerial(2019, 4, 5)) ' => おひつじ座

End Sub

Function SeizaCheck(ByVal checkdate As Date) As String

    Dim mmdd As Long
    mmdd = Format(checkdate, "mmdd") '日付を数値に変換
    
    Debug.Print mmdd ' => 405
    
    Dim seiza As Dictionary
    Set seiza = New Dictionary
    
    'Dictionaryオブジェクトにキーとアイテムを追加する
    seiza.Add 119, "やぎ座"
    seiza.Add 218, "みずがめ座"
    seiza.Add 320, "うお座"
    seiza.Add 419, "おひつじ座"
    seiza.Add 520, "おうし座"
    seiza.Add 621, "ふたご座"
    seiza.Add 722, "かに座"
    seiza.Add 822, "しし座"
    seiza.Add 922, "おとめ座"
    seiza.Add 1023, "てんびん座"
    seiza.Add 1122, "さそり座"
    seiza.Add 1221, "いて座"
    seiza.Add 1231, "やぎ座"
    
    '判定
    Dim i As Long
    For i = 0 To seiza.Count - 1
    
        If mmdd <= seiza.Keys(i) Then
            
            SeizaCheck = seiza.Items(i)
            Exit Function
        
        End If
    
    Next i

End Function