列挙型変数(Enum ステートメント)
列挙型変数を使う
列挙型変数を使用するには、Enum ステートメントを使って、宣言をします。
[ Public | Private ] Enum enumname
membername1 [ = long1 ]
membername2 [ = long2 ]
membername3 [ = long3 ]
・・・
End Enum
引数・戻り値
- enumname ・・・ 定義する列挙型変数の名前を指定します(省略不可)。
- membername1,2,3… ・・・ 列挙型 enumname のメンバーとなる定数の名前を指定します(複数指定可、省略不可)。
- long1,2,3… ・・・ 長整数型(Long)の値で指定します。先頭の定数の値(long1)の指定を省略した場合、その値は、0 となります。2 番目以降の定数の値(long2,3,…)の指定を省略した場合、その値は、「直前の membername の値 + 1 」となります。
キーワード Public を指定するとその定数は、すべてのモジュールのどのプロシージャからも参照できます。一方、キーワード Private を指定すると宣言が行われたモジュール内でしか参照できなくなります。Public、Private を省略した場合、Public を指定したものとみなされます。
Enum ステートメント 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
Enum RegData ID = 1 Name = 2 Pref '値の指定を省略すると、ここでは「3」が割り当てられます。 End Enum Sub Sample_Enum() Dim str As String Dim i As Long For i = 1 To Range("A1").CurrentRegion.Rows.Count str = str & Cells(i, RegData.ID) & vbTab _ & Cells(i, RegData.Name) & vbTab _ & Cells(i, RegData.Pref) & vbCrLf Next i MsgBox str End Sub |
実行結果
関連記事
-
-
VBA の演算子(論理演算子:And、Eqv、Imp、Not、Or、Xor)
論理演算子 論理演算を行うときに使用する演算子で、以下の 6 種類があります。 …
-
-
変数が日付型かどうかをチェックする( IsDate 関数 )
IsDate 関数の使い方 【書式】 result = IsDate( expr …
-
-
文字列:文字列の指定した位置から指定文字数取得(Mid 関数,MidB 関数)
Mid 関数・MidB 関数 の使い方 【書式】 result_mid = Mi …
-
-
CPU に制御を移す(DoEvents 関数)
DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …
-
-
変数がNull 値かどうかをチェックする( IsNull 関数 )
IsNull 関数の使い方 【書式】 result = IsNull ( exp …
-
-
指定した値を8進数で表記した文字列に変換する(Oct 関数)
Oct 関数 の使い方 【書式】 result = Oct ( expressi …
-
-
日付時刻:時・分・秒を取得(Hour、Minute、Second 関数)
日付時刻から時・分・秒を取得する関数 【書式】 time_hour = Hour …
-
-
IME の現在の状態を取得します(IMEStatus 関数)
IMEStatus 関数の使い方 【書式】 result = IMEStatus …
-
-
VBA で正規表現を使う(RegExp オブジェクトのプロパティ)
RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …
-
-
日付時刻:日付時刻から情報取得( DatePart 関数 )
DatePart 関数(日付・時刻の値から情報を取得) 【書式】 result …