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

関連記事

: 文字列：定数（改行・タブ）

改行・タブの定数これらの定数は、使用前に定義する必要はありません。コード中のど …

: ユーザー定義関数：セルを取得する（ThisCell プロパティ）

入力されたセルを取得するワークシート上で使用する Function プロシージ …

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

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

: 文字列：指定した文字コードに対応する文字を返す（Chr 関数）

Chr 関数の使い方【書式】 result = Chr ( code ) 引数 …

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

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

: 文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）

Mid・MidB ステートメントの使い方【書式】 { Mid | MidB } …

: VBA の演算子（論理演算子：And、Eqv、Imp、Not、Or、Xor）

論理演算子論理演算を行うときに使用する演算子で、以下の 6 種類があります。 …

: VBA の演算子（比較演算子）

比較演算子比較演算子による演算の結果は「真」の場合は「True」、「偽」の場合 …

: 日付時刻：日付・時刻の間隔を取得（ DateDiff 関数）

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

: 日付時刻：経過時間を取得（ Timer 関数）

Timer 関数の使い方【書式】 result = Timer () 【戻り値 …

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