列挙型変数(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 |
実行結果
関連記事
-
-
オートシェイプの種類を表す定数(MsoAutoShapeType 列挙型)
MsoAutoShapeType 列挙型 オートシェイプオブジェクトの図形の種類 …
-
-
乱数を生成する(Rnd 関数)
Rnd 関数の使い方 Rnd 関数は、0 以上、1 未満の範囲の乱数を単精度浮動 …
-
-
VBA で正規表現を使う(RegExp オブジェクトのメソッド)
RegExp オブジェクトのメソッド RegExp オブジェクトの詳細に関しては …
-
-
VBA で正規表現を使う(RegExp オブジェクト)
RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …
-
-
セルのデータを固定長形式で複数のセルに分割する(TextToColumns メソッド・Parse メソッド)
固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …
-
-
エラー(CVErr 関数・IsError 関数・Error 関数)
CVErr 関数(エラー番号をエラー値に変換する)の使い方 【書式】 retur …
-
-
文字列:文字列変数内の一部を置き換える(Mid・MidB ステートメント)
Mid・MidB ステートメントの使い方 【書式】 { Mid | MidB } …
-
-
日付時刻:時・分・秒を取得(Hour、Minute、Second 関数)
日付時刻から時・分・秒を取得する関数 【書式】 time_hour = Hour …
-
-
ポイント単位の値に変換(CentimetersToPoints,InchesToPoints)
CentimetersToPoints メソッド センチメートル単位の値をポイン …
-
-
文字列:指定した数の空白(スペース)からなる文字列を返す(Space 関数)
Space 関数 【書式】 result = Space ( number ) …