VBA モデルに当てはまる概念を作成するにはどうしたらよいですか。

Question

VBAにて開発をしており、現在下記要件を満たしつつ、
定数を構造化（？）したいと考えております。

前提①
ある標準モジュール内でのみ使用される定数は、
その標準モジュール内で宣言する。

現在のコードの宣言部を一部を抜粋します。

'メッセージ出力用文字列
Private Const ERROR_MESSAGE_HOGE As String = "~が設定されていません。"
Private Const INFO_MESSAGE_HOGE As String = "~が完了しました"
'-- 略
Private Const QUESTION_MESSAGE_HOGE As String  = "~を出力しますか？"

'セル番地の定義
Private Const HOGESHEET_TITLE As String  = "$B$2"
Private Const HOGESHEET_HEADER_NO As String = "$C$3"
Private Const HOGESHEET_HEADER_NAME AS String = "$D$3"
'--略
Private Const HUGESHEET_HEADER_SKILL As String = "$I$3"

• やりたいこと

メッセージ出力用文字列のための定数と
セル番地の定義用文字列を構造体として持ち、
下記のような実装にしたい。

Private Type MessageString
    Const ERROR_MESSAGE_HOGE As String = "~が設定されていません。"
    Const INFO_MESSAGE_HOGE As String = "~が完了しました"
    Const QUESTION_MESSAGE_HOGE As String  = "~を出力しますか？"
End Type

Private Type HogeSellAddress
    Const TITLE As String  = "$B$2"
    Const HEADER_NO As String = "$C$3"
    Const HEADER_NAME AS String = "$D$3"
End Type

Private Type HugeSellAddress
    Const HEADER_SKILL As String = "$I$3"
End Typr


Private Sub setString()
    Dim hogeSA As HogeSellAddress
    HogeSheet.Range(hogeSA.TITLE).Value = "title"

    Dim hugeSA As HugeSellAddress
    HugeSheet.Range(hugeSA.HEADER_SKILL).Value = "skill"
End Sub

上記、書くには書きましたが、実際にはConstの定義は構造体で持てないのか、
Dim hogeSA As HogeSellAddressの宣言直後に
hogeSAを入力し、ctr + spaceによる入力補完で候補の出力がされません。

Type内の宣言で定数以外（変数）を定義した場合は入力補完にて候補が出るため、
定数であることが要因でしょうが、このような記述をしたいと考えた場合は
どのような対処が必要でしょうか。

よろしくお願いいたします。

Answer 1

VBE画面 ＞ デバッグ　＞ VBAProjectのコンパイル を実行してみてください。
提示の定義（Type内にConst）は不正として検出されます。

対応策としては以下の３点があげられるかと。
１．Typeを定義し、Typeを生成する関数を作成
２．クラスを定義し、プロパティで定義を返す
３．Constの変数名を、構造体っぽく書く(MESSAGE_HOGE_ERROR)

自分は今回のようなケースだと、３で対応してます。

また、アドレスについては、基本的には Enum で行・列番号を定義して使っています。

Comments

[退会済みユーザー]

実務では私も3番を使うところですね。小難しくしてコーディング量を増やしても仕方ないですし。

[jawa]

「入力補完をしたい」というニーズがあるようですので、自分なら今回は２番にしそうです。
もしくはTypeで宣言だけしておいて初期化時に定数を代入するとか。

[ExcelVBAer]

コメントありがとうございます！
人と状況によりけりですよねぇ

Answer 2

クラスモジュールならそれっぽいことができるかな。

参考：ExcelVBAのクラスモジュールって何？という人向けの使い方まとめ *Ateitexe

読み出し専用プロパティとして定義すれば、という感じです。