VBAで定数が取得できない

Question

お疲れ様です。
表題の通りですが、以下のコードでエラーがでます。

Option Explicit

#Const MODE = 0

'------------------------------
' モード取得
'------------------------------
Public Function GetMode() As Integer
    
    #If (MODE = 1) Then
        GetMode = Mode
    #ElseIf (MODE = 2) Then
        GetAppMode = Mode
    #Else
        GetMode = Mode
    #End If
End Function

この場合に、0を返してほしいのですが、
定数をそのまま使用できないのでしょうか。

Option Explicitを消さない方法でなにか解決策はありますでしょうか。

Answer 1

無理だと思います。条件付きコンパイルは「実行するコードを選択する」というものなので
条件付きコンパイル定数を実プログラム側で取得、変更するというのは思想的に矛盾を感じます。
使い方が間違っているような気がします。

上記の書き方だと実行するプログラム側からはこんな風にしか見えていないはずなので…

Option Explicit
'------------------------------
' モード取得
'------------------------------
Public Function GetMode() As Integer
        GetMode = MODE
End Function

Comments

[Chandler_Bing]

ありがとうございます。
まさにその通りでした。

また、知識が広がりました。
ありがとうございました。

[Chandler_Bing]

#MODE
のように#をつけて取得できたりはしないのでしょうか。

[sousuke]

取得というのがどういう行為をさすのかわかりませんが
定数以外を代入できないので無理だと思います。
私の感覚では条件付きコンパイルは定数の設定と比較しかできないです。
そもそも想定している使い方において取得をする必要がないです。

[Chandler_Bing]

ありがとうございます。