第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 ・・・新着記事一覧を見る
VBA100本ノック 61本目:「ふりがな」の取得と設定|VBA練習問題(1月6日)
VBA100本ノック 60本目:「株式会社」の表記ゆれ置換|VBA練習問題(1月5日)
VBA100本ノック 59本目:12ヶ月分のシートを四半期で分割|VBA練習問題(1月4日)
Select Caseでの短絡評価(ショートサーキット)の使い方|VBA技術解説(1月3日)
VBA100本ノック 迷宮編:巡回セル問題|VBA練習問題(12月31日)
VBA100本ノック 58本目:番号リストを簡潔にした文字列で返す|VBA練習問題(12月30日)
VBA100本ノック 57本目:ファイルの更新日時|VBA練習問題(12月29日)
VBA100本ノック 56本目:数式内の自身のシート名を消す|VBA練習問題(12月28日)
VBA100本ノック 55本目:他ブックのマクロを起動|VBA練習問題(12月26日)
VBA100本ノック 54本目:シートのChangeイベント|VBA練習問題(12月25日)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.繰り返し処理(For Next)|VBA入門
7.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.繰り返し処理(Do Loop)|VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。