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

関連記事

: 上付き文字・下付き文字（Superscript,Subscript）

上付き文字（Superscript プロパティ） Superscript プロパ …

: 式を評価し、結果（真・偽）に応じた式・値を返す（IIf 関数）

IIf 関数の使い方 IIf（アイイフ）関数は、式を評価してその結果（真・偽） …

: 引数が省略されたかどうかをチェックする（ IsMissing 関数）

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

: フォント太字・斜体（Bold, Italic, FontStyle プロパティ）

太字の設定（Bold プロパティ） Bold プロパティは、フォントを太字にする …

: 日付時刻：日付時刻から情報取得（ DatePart 関数）

DatePart 関数（日付・時刻の値から情報を取得）【書式】 result …

: 日付時刻：現在の日付・時刻を取得・設定（Now、Date、Time）

現在の日付・時刻を取得・設定現在の日付・時刻を取得（Now 関数、Date 関 …

: 日付時刻：文字列から日付・時刻データを取得（ DateValue 関数、TimeValue 関数）

DateValue 関数（文字列から日付データを取得）【書式】 date_va …

: 色の設定（ColorIndex プロパティ・Colors プロパティ）

ColorIndex プロパティ ColorIndex プロパティは、指定したオ …

: 引数の整数部分を取得する（Fix 関数・Int 関数）

Fix 関数・Int 関数の使い方【書式】 number_fix = Fix …

: データ型変換関数

データ型変換関数の使い方【書式】 function ( expression …

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