Excel VBA で曜日の文字で回るループを作成する
自分用の覚書。Const では配列 Array を用いることができないので、文字列をデリミタ(ここではカンマ)で区切って、Split() で配列に分解する。Dictionary オブジェクトで連想配列を作って曜日で参照する For Each ループを作成した。サンプルコード
Const sList曜日 As String = "月,火,水,木,金" Sub test(dic as Object) Dim v曜日 As Variant For Each v曜日 In Split(sList曜日, ",") MsgBox dic.Item(v曜日) Next v End Sub