Excel

Enum(列挙型)の使い方

投稿日:2020年4月5日 更新日:

今回はEnumの使い方について解説します。(参考元:moug

Excelではいくつかの色にインデックス番号が割り振られており、ColorIndexプロパティに対応した数値を当てはめると、今回ではA1セルに入力した文字が黒色→赤色となります。
以下ソースコードを実行します。


Enum FontColor
    Normal = 0
    Black = 1
    White = 2
    Red = 3
    Green = 4
    Blue = 5
    Yellow = 6
End Enum

Sub 色を付ける()


    Range("A1").Font.ColorIndex = FontColor.Red     '列挙したFontColorのRedを選ぶ(3番)
                                                    'A1の文字を赤色に変える。

End Sub

実行結果として、A1の中身が黒→赤となりました。

実は「FontColor.」まで入力すると、Enumを使って列挙していた選択肢がリストとして表示されます。

ColorIndexプロパティで対応した番号はBlack(1),  White(2),  Red(3) … etcとなっています。Microsoftの公式サイトでその他のColorIndex番号について確認することができます。

直接番号を指定しても動作は変わらないですが、Enumを使うことでリストから選択できるようになり、コーディング中に繰り返し登場するなら、こちらの方が楽になります。
また、最初に選択肢を列挙していくので、可読性が上がります。

-Excel

執筆者:


comment

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

関連記事

【SAS】SASで良く使うテクニック。その7 「条件付き書式」~差分があるセルに色を付けたい時~【Excel】

今回はSASで良く使うテクニックということで、データセットのコンペアにおいて、差分があるセルに色を付けたい時ときは「条件付き書式」が役に立つ理由を解説していきます。 (参考:【SAS】SASで良く使う …

【SAS】SASで良く使うテクニック。その4 「参照元のトレース」~データセットの差分がある箇所を探すのに便利~【Excel】

今回はSASで良く使うテクニックということで、データセットの差分がある箇所を探すときは「参照元のトレース」が役に立つ理由を解説していきます。 (参考:【SAS】SASで良く使うテクニック。その1 Ex …

ファイルを移動させる[Name … As …]

今回はVBAでファイルを移動させる方法について記事にします。 まずはソースコードを準備します。 Sub ファイル移動() before_file_path = ThisWorkbook.Workshe …

For Eachの使い方

今回はVBAのFor Eachについて解説します。 シート上は特に準備することが無く、以下のソースコードを実行します。 Sub For_Each() ‘For Each プロシージャ Dim cell …

CSVファイルを取り込んで並び替える

VBAでCSVファイルを取り込んで並び替える処理を記事にします。 CSVファイルとマクロ有効ファイルを一つずつ準備します。 in00.csvの中身は以下の内容で準備します。 [ボタンシート]にマクロを …