ゆっくり開発

思いついた便利コードを気ままにアップしていきます。公開しているソースコードはすべてMITライセンスです。

【VBA】設定一覧シートから設定情報を取得する

f:id:yukkuri_kame3:20210912183752g:plain
設定シートイメージ
f:id:yukkuri_kame3:20210912183749g:plain
構成イメージ
設定の取得コード

Property Get val(ByRef ParamName As String) As String
    Dim L As ListObject
    For Each L In shSetting.ListObjects
        If L.Name = "設定一覧" Then
            val = Cells(L.ListColumns("設定値").Range.Column, _
                        L.ListColumns("設定名").Range.Find(ParamName).Row _
                        )
            GoTo Finally
        End If
    Next
    MsgBox "指定の設定が存在しないか、当ファイルの設定一覧が破損している可能性があります"
Finally:
End Property

設定取得の例

Sub test()
    Dim p As clsProperty
    Set p = New clsProperty
    Debug.Print p.val("監視フォルダ")
End Sub

実行結果

C:\Users\ユーザ名\Desktop\監視対象のフォルダ