ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか?
Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コマンドボタンをクリックするたびに黒色文字と赤色文字が交互に表示できるようになります。
ForeColorプロパティ
エクセルに標準機能として用意されているVBA「ForeColorプロパティ」は、RGBの色番号を指定することで文字色を変更することができます。
文字色変更するVBAコード
まず基本となるユーザーフォームに配置したコマンドボタン1をクリックすると文字色を初期設定の「黒色」から「赤色」に変更するだけならば、下記のようにVBAコードを記述すれば簡単にできます。
Private Sub CommandButton1_Click()
UserForm1.CommandButton1.ForeColor = RGB(255, 0, 0)
End Sub
- コマンドボタン1がクリックされたら
- ユーザーフォーム1のコマンドボタン1の文字色を赤色にする
- マクロ記録終了
これで赤色の文字に変更できるのですが、このVBAコードには色を戻すことはできないので、次に戻せるようにVBAコードを追加します。
IFステートメント追加で戻せるようにする
それでは、次に黒色文字の時にクリックすると赤色文字になり、赤色文字の時は黒色文字に変更できるようにするには、条件分岐のIFステートメントを追加します。
Private Sub CommandButton1_Click()
Static onoff As Boolean
If onoff Then
CommandButton1.ForeColor = RGB(0, 0, 0)
Else
CommandButton1.ForeColor = RGB(255, 0, 0)
End If
onoff = Not onoff
End Sub
- コマンドボタン1がクリックされたら
- Staticステートメントを宣言してonoffという変数名で真偽を判定する
- もし変数名onoffの状態が
- コマンドボタン1の文字色が黒色だったら
- コマンドボタン1の文字色を赤色にする
- そうではなかったら
- 赤色ならば黒色へ、黒色ならば赤色にする
- マクロ記録終了
このようなVBAコードを記述すると、コマンドボタンをクリックするたびに文字色が黒色と赤色を繰り返し表示されるようになります。
Staticステートメント
マイクロソフトのサイトを見るとこのように記載されています。
プロシージャ レベルで変数を宣言し、ストレージ領域を割り当てるために使用します。 Static ステートメントで宣言された変数は、コードが実行されている間はその値を保持します。
マイクロソフト公式サイトより引用
難しいことが書いてありますが、簡略すると・・・
好きな名前で変数を宣言(ここではonoff)してEnd Ifまでは、状態が有効になっているので、文字色が今何色なのかを見続けることができています。
そして真偽を判定でき「Boolean (ブール型変数)」を使う事で、黒色の場合・赤色の場合と判定ができるようになります。
そして最後に「変数」=Not「変数」でスイッチのように入り切りできるようになるので、黒文字と赤文字がクリック毎に切り替わるようになります。
これができるととても便利なので、ぜひ活用してみてはいかがですか?
関連記事
-
文字色・背景色
エクセルVBAで条件に一致する複数セルを見つけて背景色の変更方法
表の中で特定の値を目立たせるためにセルの背景色を変更したいと思った事ありませんか? Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるF… -
文字色・背景色
条件に一致したセルを繰り返し探してVBAで文字色を変える方法
表の中で特定の値を目立たせるために色を変更したいと思った事ありませんか? Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるFont.ColorI… -
データの操作
エクセル関数とVBAを組み合わせて商品期限切れ通知を表示する方法
小さな会社や個人では、アプリや専用ソフトを使って商品管理とかはコストが見合わず、エクセルで商品管理していませんか? このエクセルによる商品管理でリストの中にあ… -
コマンドボタン
コマンドボタンの色をクリックするたびに黒色と赤色を入れ替える方法
ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか? Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コ… -
文字色・背景色
同じ点数のセルを見つけたらエクセルVBAでラベルの色を変える方法
コピペOK!ユーザーフォームに配置しているラベル(Label)の色を初期設定の黒色ではなくて、目立つように赤色に変更したいと思ったことありませんか? ForeColorとRGB… -
文字色・背景色
エクセルVBA色見本(ColorIndex・RGB・16進数)
【色見本(ColorIndex一覧)】 エクセルのワークシート上での文字やセルの背景色、ユーザーフォームのラベルなど各パーツの文字色・背景色に指定できる色見本です。 IF…
紅葉スポット
-
雲場池へバスで軽井沢駅から紅葉絶景観光スポットへ滞在時間50分
【紅葉見頃】10月中旬~11月中旬 避暑地軽井沢は実は紅葉も綺麗に見られる観光スポットでも知られ、紅葉名所の雲場池は軽井沢駅から1.3㎞程なので徒歩でも行けますし… -
9月中旬から始まる尾瀬ヶ原の草紅葉へ日光駅や沼田駅からバスで行く
まだまだ残暑厳しい夏日が続く東京ですが、ひと足早く奥日光の更に山奥の尾瀬ヶ原では、9月中旬ごろから湿原の草がオレンジ色・黄金色・赤色と移り変わる姿を見ることが… -
埼玉県第1号のダム「有間ダム」によりできた名栗湖畔の鏡面紅葉へ
初!と付くものはやっぱり宣伝したい、そして四季折々の景色が見られる自然絶景スポットならばなおさらですよね。 埼玉県飯能市にある名栗湖へ飯能駅からバスで行くこと… -
笠間市の紅葉名所・北山公園へ友部駅からバス利用で滞在時間40分
茨城県の観光情報が掲載されているサイトで見つけた「北山公園」へのアクセスが、JR水戸線の宍戸駅から徒歩20分と書いてあったので、訪れてみたら広い北山公園の端っこ… -
電車とバスのフリーきっぷで行ける10月見頃の紅葉スポットへ
見頃順人気順10月見頃11月見頃12月見頃 【関東エリアの人気紅葉スポット】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは… -
白いアーチ橋の六方沢橋と紅葉へ日光駅からバスで滞在時間20分
霧降高原にある六方沢橋バス停から歩道を300mほど歩くと六方沢橋に行くことができ紅葉絶景が眼下に広がり、さらに400m歩いた六方沢展望台では遠くのダム湖や今市市街を…