エクセルのド定番操作「フォント色」と「塗りつぶしの色」
エクセルでよくする操作が「フォント色」と「塗りつぶしの色」です。
カッコよく装飾したり目立たせるためにエクセルを使っている誰もが毎日、何度も何度も何度も操作していると言っても過言ではありません。
どのように操作しているかというとマウスで操作。
キーボードからマウスに持ち替えて色を変えたら、またキーボードで打ち始める…。ぐぬぬぬ
色を変えるだけなのにもっと手早くできないのか？
速度重視のショーカット派は、色替えを簡単にする方法を探したはずです。
出てきた答えは、ALT → H → H → カーソルで選ぶという絶望的なキーコンビネーションが必要なことを知りマウス操作に甘んじています。
キーボードで何とかしたい！
エクセルで色を変えるときのオペレーション
普段、エクセルで色を変えるときのオペレーションのステップはどうでしょう。
- マウスに持ち替える
- フォント( or 塗りつぶし)の色をクリック
- テーマの色を選ぶ
- キーボードに戻る
秒もかからないオペレーションですが４つもステップも必要です。
もしキーボードから手を放すことなく１ステップで色替えできれば楽なのに…。
そんなあなたに「フォント色」と「塗りつぶしの色」を瞬時に変更できるマクロを紹介します。
いきなり結果発表！こんなことができるだけ
キーボードだけで文字とセルの色を変えることができるだけ！たったこれだけ！地味だけど便利。
選択しているセルの文字色、背景色をぐるぐると変更します。複数選択もOKです。
色替えマクロの仕様
文字やセルの色替えだけなら「マクロの記録」を使うことで簡単に自動化処理を作ることができます。色を変更する作業を記録するだけで１ステップで色替えできるマクロの出来上がりです。実行すれば色替えができるようになります。が！まったく実用的ではありません。
なぜなら、記録したマクロを動かす操作よりマウスで色替えしたほうが楽で早いからです。
そこでマウスで色替えするよりも早く便利なアクションにするため3ステップの色替え動作にしました。
①文字色を赤 ②背景色を赤 ③文字色を黒（元に戻る）
色替えマクロが実行されるたびにステップが移行して動作を繰り返します。
キーボードからマクロを起動させる手段はショートカットが素早いです。
よく使う操作ほどショートカットにすることでマウスに持ち替える必要がなくなります。
キーの割り付けも重要なポイントです。どんなに良い機能でも「どうだったっけ？」と操作に悩むならマウスで色替えした方が早くなってしまいます。
操作に悩まずに直感的に使いこなせる方法として、赤ならR(=Red)、青ならB(=Blue)とカラーの頭文字をショートカットに割当てましょう。これは多くのカラーを重複することなく割り当てるられる有効な手段です。
マクロのコード
赤色用のマクロコードを紹介します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Sub赤色() OnErrorResumeNext IfSelection.Font.ColorIndex<>3AndSelection.Interior.ColorIndex=xlNoneThen Selection.Font.ColorIndex=3 Selection.Interior.ColorIndex=xlNone ElseIfSelection.Font.ColorIndex=3Then Selection.Font.ColorIndex=1 Selection.Interior.ColorIndex=3 ElseIfSelection.Interior.ColorIndex=3Then Selection.Interior.ColorIndex=xlNone Selection.Font.ColorIndex=0 ElseIfSelection.Font.ColorIndex<>3OrSelection.Interior.ColorIndex<>3Then Selection.Interior.ColorIndex=xlNone Selection.Font.ColorIndex=0 EndIf EndSub |
カスタマイズのポイント
マクロのコードにある「３」という数字がポイントです。
この数字は色指定のコードで赤(=3)を示しています。黒(=0)です。
数字を変えることで自由に好きな色に替えることができます。
たとえば、ブルーの色替えを追加するには、丸ごとコピペしてマクロの名前を、Sub 赤色()→Sub 青色()にします。あとは、３を5に替えば青色のマクロのできあがりです。よく使用するカラーのコードを追加して自由にカスタマイズしてみてください。
こちらの記事で色コードをまとめてくれています。
ショートカットの定義
キーコンビネーションは Shift + Ctrl + 〇 としています。Ctrl＋〇 や ALT＋〇 はすでにエクセルで使われているので使うことができません。そこで個人で追加したマクロのショートカットは Ctrl+Shift＋〇 としてコンビネーションを統一しておくと新しいマクロが増えたときもすぐに馴染めます。
赤色を割付るコード
1 2 3 | PrivateSubWorkbook_Open() Application.OnKey"+^{R}","赤色" EndSub |
エクセルブックを開いたときに自動的に登録されるようにWorkbook_Openに記述すると便利です。
あなたに使いやすくなるポイント
分かりやすく、使いやすくと言ってきましたがそれは私の使いやすさ。あなたには使いにくいかもしれません。そんな時はショートカットの割当てをあなた好みにカスタマイズしましょう。
数字にしたり Shif + ALT ＋ 〇 にしたりとあなただけのおしゃれエクセルに仕上げてください。
え！？マクロ無理！というあなたへ
そのまま使うことができるエクセルブックをご用意しています。
note で公開していますので興味がありましたらご覧になってください。
コーヒー１杯、ご馳走してください。
