第16回.アクティブコントロールに色を付ける
ユーザーフォーム入門として基礎から解説します。
フォーム内のどこにカーソルがあるか分かりづらい場合があります。
対応するラベルのフォントを変更したりして、アクティブなコントロールを解り易くします。
フォームモジュール
まずは、モジュールレベル変数の定義と、
色を設定する共通Subプロシージャーの作成です。
続いて、各コントロールのEnterイベントです。
各コントロールのEnterイベントで呼び出すプロシージャーの作成です。
以上で完成です。
色を設定する共通Subプロシージャーの作成です。
Private lastControl As Control
Private lastColor As Long
'・・・他の記述は省略します
Private Sub setColor(ctl As Control)
If Not lastControl Is Nothing Then
lastControl.BackColor = lastColor
End If
lastColor = ctl.BackColor
Set lastControl = ctl
ctl.BackColor = RGB(255, 153, 204)
End Sub
続いて、各コントロールのEnterイベントです。
各コントロールのEnterイベントで呼び出すプロシージャーの作成です。
Private Sub txtコード_Enter()
Call setColor(Me.txtコード)
End Sub
Private Sub txt漢字名称_Enter()
Call setColor(Me.txt漢字名称)
End Sub
Private Sub txtカナ名称_Enter()
Call setColor(Me.txtカナ名称)
End Sub
Private Sub cmb区分_Enter()
Call setColor(Me.cmb区分)
End Sub
Private Sub lst都道府県_Enter()
Call setColor(Me.lst都道府県)
End Sub
Private Sub opt企業_Enter()
Call setColor(Me.opt企業)
End Sub
Private Sub opt個人_Enter()
Call setColor(Me.opt個人)
End Sub
Private Sub chk休止_Enter()
Call setColor(Me.chk休止)
End Sub
Private Sub btnOk_Enter()
Call setColor(Me.btnOk)
End Sub
Private Sub btnCancel_Enter()
Call setColor(Me.btnCancel)
End Sub
以上で完成です。
EnterイベントとExitイベントをセットで使う方法
やり方はいろいろあります基本は同じです。
上記以外に、EnterイベントとExitイベントを使う方法もあります。
Enterイベントで色を変える、同時に、前コントロールの色を戻します。
色の戻しを、Exitイベントでやっています。
※対象のコントロール全てについて記述します。
このような書き方になります。
全てのコントロールが対象ではなく、一部のコントロールでのみ色を変える場合は、
後のExitイベントを使った方が制御しやすいかもしれません。
上記以外に、EnterイベントとExitイベントを使う方法もあります。
Enterイベントで色を変える、同時に、前コントロールの色を戻します。
色の戻しを、Exitイベントでやっています。
Private Sub txtコード_Enter()
txtコード.BackColor = RGB(255, 153, 204)
End Sub
Private Sub txtコード_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtコード.BackColor = vbWhite
End Sub
全てのコントロールが対象ではなく、一部のコントロールでのみ色を変える場合は、
後のExitイベントを使った方が制御しやすいかもしれません。
対応するラベルのフォントを太字にする
これは対応するラベルがどのラベルになるかが分からないとできません。
Tagプロパティに対応するラベル名を入れておく等の方法もありますが、
今回は、命名方法を以下にしてあります。
ラベル：lbl〇〇〇
テキストボックス：txt〇〇〇
コンボボックス：cmb〇〇〇
リストボックス：lst〇〇〇
この命名規則を基に、それぞれの入力こんとろーるとラベルを対応付けしています。
先頭のプリフィックスを変更すれば、対応するラベル名にすることが出来ます。
チェックボックスやオプションボタン等は、通常ラベルを付けませんし、
他のコントロールでも、必ずラベルを付けるとは限りませんので、
対応するラベルが無い時の対応として、
On Error Resume Next
これを入れてあります。
このような処理は、書き方もいろいろありますし、
工夫次第で、よりユーザーにやさしいフォームを作成する事が可能です。
いろいろ工夫しながら挑戦してみて下さい。
Tagプロパティに対応するラベル名を入れておく等の方法もありますが、
今回は、命名方法を以下にしてあります。
テキストボックス：txt〇〇〇
コンボボックス：cmb〇〇〇
リストボックス：lst〇〇〇
先頭のプリフィックスを変更すれば、対応するラベル名にすることが出来ます。
Private Sub setColor(ByRef ctl As Control)
If Not lastControl Is Nothing Then
lastControl.BackColor = lastColor
Call setLabel(lastControl, False)
End If
Set lastControl = ctl
lastColor = ctl.BackColor
ctl.BackColor = RGB(255, 153, 204)
Call setLabel(ctl, True)
End Sub
Private Sub setLabel(ByVal ctl As Control, ByVal blnBold As Boolean)
On Error Resume Next
Controls("lbl" & Mid(ctl.Name, 4)).Font.Bold = blnBold
End Sub
チェックボックスやオプションボタン等は、通常ラベルを付けませんし、
他のコントロールでも、必ずラベルを付けるとは限りませんので、
対応するラベルが無い時の対応として、
On Error Resume Next
これを入れてあります。
工夫次第で、よりユーザーにやさしいフォームを作成する事が可能です。
いろいろ工夫しながら挑戦してみて下さい。
同じテーマ「ユーザーフォーム入門」の記事
・チェックボックスの追加 ・チェック状態の設定 ・チェック状態の取得
第14回.オプションボタン(OptionButton)の追加・オプションボタンの追加 ・オプションボタンの状態設定 ・チェック状態の判定 ・オプションボタンのグループ化
第15回.ここまでの整理と全VBA・ワークシート ・シートモジュール ・標準モジュール ・フォーム ・フォームモジュール
第16回.アクティブコントロールに色を付ける第17回.Enterキーで次のコントロールに移動する
・ユーザーフォームでのEnterキー動作について ・KeyDownイベント ・KeyPressイベント
第18回.２段階のコンボボックス・ワークシートの用意 ・2段階コンボボックスの追加 ・2段階コンボボックスの処理概要 ・ユーザーフォームのInitializeイベント ・コンボボックスのChangeイベント
第19回.数値専用のテキストボックス・数値専用のテキストボックスの追加 ・KeyDownイベントで数値のみに限定 ・数値専用テキストボックスをカンマ編集 ・Changeイベントで電卓風に
第20回.テキストボックスの各種イベント・テキストボックスのイベント一覧 ・イベントの発生順序 ・KeyDown と KeyPress の違いについて
第21回.ユーザーフォームの各種イベント・ユーザーフォームのイベント一覧 ・QueryCloseの引数 ・イベントの発生順について
第22回.コントロールの動的作成・コントロールの動的作成の動作説明 ・コントロールの表示/非表示を切り替える ・動的に部品コントロールを追加/削除する ・コントロールの動的作成の最後に
第23回.イベントプロシージャーの共通化・サンプルのユーザーフォーム ・イベントプロシージャーの共通化のVBA ・イベントプロシージャーの共通化の問題点 ・イベントプロシージャーの共通化の雛形VBA ・イベントプロシージャーの共通化の最後に
新着記事NEW ・・・新着記事一覧を見る
ブール型（Boolean）のis変数・フラグについて｜VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する｜VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次｜エクセルの神髄(2024-03-20)
VBA10大躓きポイント（初心者が躓きやすいポイント）｜VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成｜ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。｜エクセル雑感(2024-02-17)
初級脱出10問パック｜VBA練習問題(2024-01-24)
累計を求める数式あれこれ｜エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE｜エクセル入門(2024-01-03)
いくつかの数式の計算中にリソース不足になりました。｜エクセル雑感(2023-12-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜VBA入門
4.ひらがな⇔カタカナの変換｜エクセル基本操作
5.繰り返し処理（For Next)｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ブックを閉じる・保存（Close,Save,SaveAs）｜VBA入門
8.並べ替え（Sort）｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.Findメソッド（Find,FindNext,FindPrevious）｜VBA入門
- ホーム
- マクロVBA応用編
- ユーザーフォーム入門
- アクティブコントロールに色を付ける
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。