コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法

ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか？

Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コマンドボタンをクリックするたびに黒色文字と赤色文字が交互に表示できるようになります。

ForeColorプロパティ

エクセルに標準機能として用意されているVBA「ForeColorプロパティ」は、RGBの色番号を指定することで文字色を変更することができます。

文字色変更するVBAコード

まず基本となるユーザーフォームに配置したコマンドボタン1をクリックすると文字色を初期設定の「黒色」から「赤色」に変更するだけならば、下記のようにVBAコードを記述すれば簡単にできます。

波乗りアヒル

これで赤色の文字に変更できるのですが、このVBAコードには色を戻すことはできないので、次に戻せるようにVBAコードを追加します。

IFステートメント追加で戻せるようにする

それでは、次に黒色文字の時にクリックすると赤色文字になり、赤色文字の時は黒色文字に変更できるようにするには、条件分岐のIFステートメントを追加します。

このようなVBAコードを記述すると、コマンドボタンをクリックするたびに文字色が黒色と赤色を繰り返し表示されるようになります。

Staticステートメント

マイクロソフトのサイトを見るとこのように記載されています。

プロシージャ レベルで変数を宣言し、ストレージ領域を割り当てるために使用します。 Static ステートメントで宣言された変数は、コードが実行されている間はその値を保持します。

マイクロソフト公式サイトより引用

難しいことが書いてありますが、簡略すると・・・

好きな名前で変数を宣言（ここではonoff）してEnd Ifまでは、状態が有効になっているので、文字色が今何色なのかを見続けることができています。

そして真偽を判定でき「Boolean (ブール型変数)」を使う事で、黒色の場合・赤色の場合と判定ができるようになります。

そして最後に「変数」＝Not「変数」でスイッチのように入り切りできるようになるので、黒文字と赤文字がクリック毎に切り替わるようになります。

波乗りアヒル

これができるととても便利なので、ぜひ活用してみてはいかがですか？

エクセルVBAで指定できる色見本

エクセルVBA色見本（ColorIndex・RGB・16進数） 色見本（ColorIndex一覧） エクセルのワークシート上での文字やセルの背景色、ユーザーフォームのラベルなど各パーツの文字色・背景色に指定できる色見本です。 IF関数…

関連記事