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

関連記事

: 乱数を生成する（Rnd 関数）

Rnd 関数の使い方 Rnd 関数は、0 以上、1 未満の範囲の乱数を単精度浮動 …

: RGB 値一覧表（XlRgbColor 列挙型）

RGB 値（XlRgbColor 列挙型）一覧表 RGB 関数を使用して、出力さ …

: データをクリアする（ClearContents メソッド）

ClearContents メソッド対象がセル範囲（Range オブジェクト） …

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

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

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

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

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

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

: テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

Stream オブジェクト ADO（ActiveX Database Objec …

: カレントフォルダの取得・設定（DefaultFilePath プロパティ）

DefaultFilePath プロパティカレントフォルダとは、ブックを開いた …

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

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

: オートシェイプの種類を表す定数（MsoAutoShapeType 列挙型）

MsoAutoShapeType 列挙型オートシェイプオブジェクトの図形の種類 …

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