連想配列を使う
Dictionaryで商品コードをキーにして、数量を取得・更新します。
実行前に確認
- Windows版Excel向けです。参照設定は不要ですが、Mac版や組織の制限下ではCreateObjectできない場合があります。
- キーの重複をAddするとエラーです。Existsを確認し、CompareModeはデータ追加前に設定します。
- Excel実機での動作は未確認です。コピーした練習用ブックで試してください。
1サンプルコード
Option Explicit
Sub Example7009()
Dim quantities As Object
On Error GoTo Failed
Set quantities = CreateObject("Scripting.Dictionary")
quantities.CompareMode = vbTextCompare
quantities.Add "PN-01", 8
If quantities.Exists("pn-01") Then
quantities("pn-01") = quantities("pn-01") + 2
End If
MsgBox quantities("PN-01")
Exit Sub
Failed:
MsgBox "Dictionaryを利用できません：" & Err.Description
End Sub図で見る連想配列を使うの流れ
イメージ図Dictionaryで商品コードをキーにして、数量を取得・更新します。
入力・開始時
キーPN-01の数量8
実行する処理
文字大小を区別しないDictionaryでpn-01に2を加算
結果
PN-01の数量は10
WindowsのScripting.Dictionaryが利用できる環境向けです。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
デスクトップ版Excelで練習用ブックを.xlsm形式で保存します。Alt＋F11→［挿入］→［標準モジュール］を選び、空のモジュールの先頭にこの例全体を貼り付けます。
- 2
書き換えは不要です。まず例の値のままで試し、値や変数名を変える場合は同じ名前の箇所も揃えます。
- 3
Example7009のSub内にカーソルを置き、F5キーで実行します。
- 4
大文字・小文字を区別せず同じキーを更新し、数量10が表示されます。