Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

列挙型変数（Enum ステートメント）

2016/02/10

列挙型変数を使う

列挙型変数を使用するには、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ソース

　
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

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基本 Enum ステートメント, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 画面の更新を停止（ScreenUpdating プロパティ）

画面の更新を停止マクロを実行すると、画面が更新されます。これにより、実行速度が …

: 変数がオブジェクト型かどうかをチェックする（ IsObject 関数）

IsObject 関数の使い方【書式】 result = IsObject ( …

: 配列（宣言・要素数の変更について）

配列の宣言【書式】※ 配列の宣言＜Type 型の静的配列（固定長配列）の宣言 …

: 日付時刻：日付から曜日を取得（ Weekday 関数、WeekdayName 関数）

Weekday 関数（日付から曜日を表す数値を返す）の使い方【書式】 week …

: エラー（CVErr 関数・IsError 関数・Error 関数）

CVErr 関数（エラー番号をエラー値に変換する）の使い方【書式】 retur …

: 出力位置、書き込み位置を設定（Tab 関数）

出力位置、書き込み位置を設定 Tab 関数は、Print メソッド、または P …

: コレクション（Collection）オブジェクト「連想配列」

コレクション（Collection）オブジェクトの使い方【書式】 Dim my …

: 乱数ジェネレータを初期化 (乱数系列を再設定) する（Randomize ステートメント）

Randomize ステートメントの使い方 Rnd 関数を使用する前に使用しま …

: ある数値が、複数の範囲のどの範囲に含まれるかを示す文字列を返す（Partition 関数）

Partition 関数の使い方 Partition 関数は、ある数値が、区切 …

: ユーザー設定リストを使って並べ替える（Sort）

VBAでリスト、テーブルを並べ替える（Sort） VBAで、ソートを行うには、S …

PREV: ユーザー定義定数（Const ステートメント）
NEXT: イミディエイトウィンドウに出力（Debug.Print メソッド）