VBA 定数も一度に宣言できる

知っている方からすると、いまさら何をという話かもしれないが、私は定数がカンマ区切りで一度に宣言できることをさっき知った。

これまで定数は以下のように個別に宣言していた。

Const 行数 As Long = 100
Const 列数 As Long = 50
Const 実行回数 As Integer = 4
Const 対象モジュール As String = "出力シート"
Const 画面更新 As Boolean = False
Const 自動計算 As Boolean = False
Const 詳細出力 As Boolean = False

それで、モジュール分割する際にPublicをつける羽目になったが、一つずつPublicをつけるのは面倒くさい。

ひょっとして、Dimと同じようにカンマで一度に宣言できるのでは。。

Const 行数 As Long = 100, 列数 As Long = 50

できた。
考えてみればDimで普段やっていることを、Constで今まで思いつかなかったことが不自然だ。

これで、以下のようにPublic Const宣言は１か所にまとめることができた。

Public Const _
    行数 As Long = 100, _
    列数  As Long = 50, _
    実行回数  As Integer = 4, _
    対象モジュール  As String = "出力シート", _
    画面更新 As Boolean = False, _
    自動計算 As Boolean = False, _
    詳細出力 As Boolean = False

ただ全部まとめてしまうのも考え物で、ある程度グルーピングはした方が良いかもしれない。

'===シート定義===
Public Const _
    対象モジュール  As String = "出力シート", _
    行数 As Long = 100, _
    列数  As Long = 50
    
'===ベンチマーク設定===
Public Const _
    実行回数  As Integer = 4, _
    画面更新 As Boolean = False, _
    自動計算 As Boolean = False, _
    詳細出力 As Boolean = False

以上。