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

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

関連記事

日付と時刻の取得

VBAで現在の日付と時刻を取得する方法をご紹介します。 日付や時刻の取得には以下の関数が使用できます。 取得するもの 関数(引数) 日付 Date 年 Year(Date) 月 Month(Date) …

セルに値を設定する【Excel】【VBA】

今回はExcelのセルに値を設定する方法をご紹介します。 以下のようにソースコードを記述します。 Sub 値設定() Dim a1 As String a1 = “あいうえお“ …

コマンドボタンを挿入してマクロを実行する方法

今回はExcelのシートにコマンドボタンを挿入してマクロを実行する方法について解説します。 [目次] 1.通常のマクロ実行2.コマンドボタンでマクロ実行 1.通常のマクロ実行 通常マクロを実行するとき …

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

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

【Excel】リスト化をIndirectで実行する際の文字制限

セルをIndirectで動的にリスト化しようとした際、躓いたことを記事にします。 まずは、シート上を以下のように準備します。 B1をA1の内容に合わせて動的にリスト化します。例えば、A1に北海道と入力 …