プロパティーを読み込むクラスモジュール

Private properties As Collection ' プロパティコレクション

' プロパティーに値を設定する。
Public Sub load(sht As Worksheet)
Dim r As Range
Dim c As Range
Set properties = New Collection
Set r = sht.Range(Range("A1"), Range("A60000").End(xlUp))
For Each c In r
If c.Value <> "" Then
properties.Add c.Offset(0, 1).Value, c.Value
End If
Next
End Sub

' プロパティーから値を取得する。
Public Function getPrp(key As String) As String
getPrp = properties.Item(key)
End Function