第109回.列挙型（列挙体）Enum
列挙体は、数値限定のConst定数をひとまとめにして参照しやすくしたものになります、
マクロVBAの中で数値を固定で記述することは、メンテナンスが大変になります。
VBA内で何度も3と記述しては、これを変更することが大変になります。
このような固定数値を連なって列挙される場合は、Enumステートメントで列挙型を定義すると便利です。
Enumステートメント
Enumステートメントを宣言セクションに記述して使用します。
membername [= constantexpression]
membername [= constantexpression]
・・・
End Enum
| Public | 省略可能です。列挙型 (Enum) が、プロジェクト全体から参照可能であることを指定します。 列挙型の既定値は、Public です。 |
| Private | 省略可能です。列挙型 (Enum) が、宣言されているモジュール内でのみ参照可能であることを指定します。 |
| name | 必ず指定します。列挙型 (Enum) の名前を指定します。 引数 name は Visual Basic において有効な識別子でなければなりません。 この名前は、列挙型の変数またはパラメータの宣言において、データ型として指定されます。 |
| membername | 必ず指定します。定数の名前を指定する Visual Basic において有効な識別子です。 この名前により、列挙型 (Enum) の構成要素であることが認識されます。 |
| constantexpression | 省略可能です。 長整数型 (Long) として評価される、要素の値を指定します。 ほかの列挙型 (Enum) と同じ値も指定できます。 先頭の membername に対して引数 constantexpression を指定しないと、0 が割り当てられます。 2 番目以降の membername に対して引数 constantexpression を指定しないと、直前の membername の値より 1 だけ大きな値が割り当てられます。 |
Enum ステートメントは、モジュール レベルでのみ記述できます。
正の値と負の値のどちらでも含むことができます。
変更する必要がない複数値をグループ化するときは、とても有効的です。
列挙型 (Enum) の名前 まで入力すると、メンバーが自動表示されます。
これにより、コーディングが楽になり、また、可読性も向上します。
列挙型（Enumステートメント）の使用例
Enum 列位置
A列 = 1
B列 = 2
C列 = 3
End Enum
Enum 支店番号
A支店 = 101
b支店 = 102
c支店 = 103
End Enum
Sub sample()
Cells(1, 列位置.A列) = 支店番号.A支店
Cells(1, 列位置.B列) = 支店番号.b支店
Cells(1, 列位置.C列) = 支店番号.c支店
End Sub
使い方はいろいろです。
正数値で、グループ化出来る場合は、Constではなく、Enumを使った方が、
より効率的なコーディングが可能です。
列挙型（Enumステートメント）の活用について
しかし、後々に修正する必要が出たとき、
列位置の数値がどこで指定されているかを探すことは、とても大変な作業になります。
数値の2を3に変更するためには、
2を検索したとしても、検索された2が列数なのか行数なのか、
ひとつずつ前後のVBAコードの確認が必要になります。
そして、列がずれるという事は、B列だけではなくその後ろの列が全て変わるという事になり、
これらを全て正しく変更することは、多大な時間を要することになります。
そして、インテリセンスによって非常に効率的にVBAを書くこともできます。
このようにとても便利な機能ですので、ぜひ列挙体を活用してみてください。
同じテーマ「マクロVBA入門」の記事
第102回.Intersectメソッド
第103回.UnionメソッドとAreasプロパティ
第104回.GetPhoneticメソッドとSetPhoneticメソッド（フリガナ）
第109回.列挙型（列挙体）Enum
第110回.ユーザー定義型・構造体（Type）
第111回.静的配列
第112回.動的配列（Redim）
第113回.配列に関連する関数
第114回.セル範囲⇔配列（マクロVBA高速化必須テクニック）
第115回.Split関数
第116回.ファイル操作Ⅱ（OpenとClose）
新着記事NEW ・・・新着記事一覧を見る
PropertyのSetはLetでも良い｜VBA技術解説(2021-03-31)
エクセル麻雀ミニゲーム｜VBAサンプル集(2021-03-09)
VBA100本ノック 100本目：WEBから100本ノックのリストを取得｜VBA練習問題(2021-03-03)
VBA100本ノック 魔球編：2桁の最小公倍数｜VBA練習問題(2021-02-02)
Select Caseでの短絡評価（ショートサーキット）の使い方｜VBA技術解説(2021-01-03)
VBA100本ノック 迷宮編：巡回セル問題｜VBA練習問題(2020-12-31)
VBA100本ノック 魔球編：閉領域の塗り潰し｜VBA練習問題(2020-12-16)
VBA100本ノック 魔球編：組み合わせ問題｜VBA練習問題(2020-12-02)
将棋とプログラミングについて～そこには型がある～｜エクセル雑感(2020-11-22)
VBA100本ノック 1本目：セルのコピー｜VBA練習問題(2020-10-19)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Excelショートカットキー一覧｜Excelリファレンス
6.繰り返し処理（For Next)｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
9.セルに文字を入れるとは（Range,Value）｜VBA入門
10.とにかく書いてみよう（Sub,End Sub）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。