下記コードは実行可能です。
約10年ほど前、私がVBAの勉強し始めたばかりのころ、経験のあった他言語(C#,VB.net)のように
Enumのメンバ名を文字列で取得したく思い、知恵を絞って作ったToStrting()です。
質問は、この時に定義したEnumの使い方になります。
Option Explicit
Enum System
TypeA = 0
TypeB
TypeC
[_END] = -1
End Enum
Enum Area
West = 0
East
[_END] = -1
End Enum
Enum Time
[09:00] = 0
[10:00]
[11:00]
[12:00]
[13:00]
[_END] = -1
End Enum
Function ToString(Optional ByVal s As System = System.[_END], Optional ByVal A As Area = Area.[_END], Optional ByVal T As Time = Time.[_END]) As String
Dim w As String
w = ""
If Not s = System.[_END] Then
Select Case s
Case System.TypeA
w = "TypeA"
Case System.TypeB
w = "TypeB"
Case System.TypeC
w = "TypeC"
End Select
End If
If Not A = Area.[_END] Then
If Not w = "" Then w = w & " "
Select Case A
Case Area.East
w = w & "East"
Case Area.West
w = w & "West"
End Select
End If
If Not T = Time.[_END] Then
If Not w = "" Then w = w & " "
Select Case T
Case Time.[09:00]
w = w & "09:00"
Case Time.[10:00]
w = w & "10:00"
Case Time.[11:00]
w = w & "11:00"
Case Time.[12:00]
w = w & "12:00"
Case Time.[13:00]
w = w & "13:00"
End Select
End If
ToString = w
End Function
Sub test()
Dim E1 As System
Dim E2 As Area
Dim E3 As Time
For E1 = System.TypeA To System.TypeC
For E2 = Area.West To Area.East
For E3 = Time.[09:00] To Time.[13:00]
Debug.Print ToString(E1, E2, E3)
Next E3
Next E2
Next E1
End Sub
●質問1
本コードでEnum定義時に[](角カッコ)を使うとコンパイルエラーを回避できるのは、予約語のエスケープが効いているからでしょうか?
類似と思われる理由をMSのサイト(*1)から見つけましたが、とくにTimeでの使い方 [09:00]が、記載内容の趣旨と異なると感じ、疑問に思っています。
*1:
https://docs.microsoft.com/ja-jp/dotnet/visual-basic/language-reference/keywords/
次のキーワードは 予約済み であり、プログラミングの要素 (変数やプロシージャなど) の名前として
使用できません。
ただし、名前を角かっこ ([]) で囲むと、この制約を回避できます。 詳細については、
「宣言された要素の名前」の「エスケープされた名前」を参照してください。
●質問2 MSからの注意喚起(*2)のように、あまり使わないほうが良いのでしょうか?
エスケープされた名前
一般に、要素名は、Visual Basic によって予約されているキーワード (Case や Friend など)
と一致しないようにする必要があります。 ただし、エスケープされた名前 を定義できます。これは、
角かっこ ([ ]) で囲まれています。 エスケープされた名前は、角かっこによってあいまいさが解消されるため、
どの Visual Basic キーワードとも一致させることができます。
また、コード内で後で名前を参照するときにも、角かっこを使用します。
通常、エスケープされた名前は、次の場合にのみ使用してください。
コードが、名前として使用されるキーワードを予約しなかった以前のバージョンの
Visual Basic から移行された。または、指定されたキーワードが予約されていない別の言語で
記述されたコードを操作している。
それ以外の場合、名前がキーワードと競合する場合は、要素の名前を変更することを検討してください。
統合開発環境 (IDE) を使用すると、この操作を簡単に 実行できます。
詳細については、リファクタリングに関するページを参照してください。
参考:Enumステートメントの説明文書
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/enum-statement
このコードを作成した当時は、VBA初心者でしたので、コードが動くことに感動し、理由(知識)を深めず終わっていました。(お恥ずかしい限りです。)
最近になって自分のコードを見直した時、なぜ角かっこ ([ ]) が有効だったのか、これでよかったのかを知りたくなりました。
ご存じの方いらっしゃれば教えていただけると幸いです。