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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: Erase ステートメント（配列の初期化・動的配列のメモリ解放）

Erase ステートメントの使い方【書式】 Erase myArray [, …

: 指定したセル範囲のサイズを変更（Resize プロパティ）

Resize プロパティ指定したセル範囲のサイズ（行数や列数）を変更します。 …

: Array 関数（バリアント型の配列を作成）

Array 関数の使い方【書式】 myArray = Array ( elem …

: 配列（多次元配列・配列の次元の変更）

多次元配列【書式】　多次元配列の宣言＜静的配列（固定長配列）＞ Dim my …

: 文字列：文字列左から指定文字数取得（Left 関数,LeftB 関数）

Left 関数・LeftB 関数の使い方【書式】 result_left = …

: オブジェクトの書式をクリアする（ClearFormats メソッド）

ClearFormats メソッド対象となるオブジェクトの書式（スタイル）を初 …

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

: 変数がEmpty 値かどうかをチェックする（ IsEmpty 関数）

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

: 指定した値を16進数で表記した文字列に変換する（Hex 関数）

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

: Split 関数（文字列型の一次配列を作成）

Split 関数の使い方【書式】 myArray = Split ( expr …

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