【Excel】ショートカットでフォントを赤くしたい

Excel マクロ(VBA)

今回はフォントの色を赤くするという作業を自動化するための方法を2つ紹介します。

スポンサーリンク

Alt + H + F + 1 + 矢印キー

1一つ目の方法は、Alt キーを使うものです。Excelに限らずOfficeのアプリケーションでは、Altキーを使うことで、ガイド付きでリボン操作を行うことができます。

リボンというのは、以下の写真の部分です。文字通りアプリケーション上部の帯の部分ですね。

フ ァ イ ル 
丁 - タ 
貼 り 付 け 
ホ - ム 
切 り 取 り 
・ 書 ) コ ビ 
グ ル プ ホ - ド 
H 11 
挿 入 
ペ - ジ レ イ ア ウ ト 
Meiryo UI 
数 式 
校 閂 
表 示 
問 発 
ヘ ル プ 
~ 折 り 返 し て 全 体 を 表 示 す る 
セ ル を 結 合 し て 中 央 え ・ 
- / 貼 り 付 け 
条 件 付 き テ - プ ル と し て 
書 式 ・ 書 式 設 定 ・ 
と ち う て も な い 
チ ェ ッ ク セ ル 
ス タ イ ル 
E7— ト SUM 
並 べ 替 え と 検 ヒ 
フ ィ ル タ - ・ 選 択 ・

Alt=>Hでホームタブを選択でき、その後F1と押すことでフォントの色を選ぶことができるので、あとは矢印キーを使って赤フォンを選択することで色を変えることができます。

方 イ ル 
第 コ ビ ー 
貼 り 付 け 
物 入 ペ ー ジ し イ ア ウ ト 
M Ⅳ 0 田 
数 式 
デ - タ 
校 
表 示 
第 発 
・ 書 式 の コ ビ - / 貼 り 付 け 
グ ル プ ボ ー ド 
H11
動 保 芹 三 の 
フ ァ イ ル 
ラ E 
FS 
FG FK 
AT AM AB 
貼 り 付 け 
コ ビ ー / 貼 引 寸 け 
AC R 
BP82
自 動 保 存 ( 可 : 三 ) 
捧 入 
方 イ ル ホ ー ム 
切 り 取 り 
コ ビ ー 
り 付 け 
・ 書 ) コ ビ ー 
ケ ル プ ホ ー ド 
Q4 
ペ ー ジ レ イ ア ウ ト 
Meno UI 
B 一 旦 , 
数 式 
デ ー タ 
校 問 
表 示 
問 発 
へ 只 
/ 鮎 り 付 け 
ー ■ う ゑ ・ A , 宿 , 
目 動 
そ の 他 の 色 )..

これが1つ目の方法の、Altキーを使うものです。この方法は覚えれば誰でも実行できる反面、フォントを変えるという単純な作業に対して、キーボード操作が多く、あまり自動化になっていないと感じる人も多いと思います。

フォント変更を毎日膨大な回数繰り返す人は、もっと劇的に自動化したいと感じるでしょう。そんな人におすすめなのが、次の項目で紹介する、Excelのマクロ(VBA)を使う方法です。

スポンサーリンク

マクロ(VBA)でショートカットを割り当てる

実はExcelのマクロ(VBA)を起動するのに、ショートカットキーを割り当てることができるのです。

そもそもマクロ(VBA)ってなに?という人は、過去の記事を是非ご一読ください。

以下、具体的な手順です。

使用するVBAのコードは以下の通りです。これをそのままコピーしてご自身で標準モジュールに貼り付けてもらえれば、そのまま使えます

Public Sub FontRed()

    Selection.Font.Color = vbRed

End Sub

このコードをVBEに保存しておくと、”開発”タブの”マクロ”をクリックした時に、使用可能なマクロとして”Fontred”が表示されます。これをクリックすればマクロが起動し、選択しているセルのフォントを赤くすることができます。

第 よ マ ク ロ の 記 録 
藤 相 対 参 照 で 記 録 
Visual Bas に マ ク ロ 
マ ク ロ の セ キ ュ ! け イ 
AH18 
フ ァ イ ル 
ア ド イ ン ア ド イ ン 
ホ - ム 挿 入 ペ - ジ レ イ ア ウ ト 数 式 
デ - タ 
COM 
校 閂 
挿 入 
G 
表 示 発 
由 プ ロ バ テ ィ 
ヘ ル プ 
拡 張 パ 助 
ア ド 
イ ン 
Excel 
ア ド イ ン 
コ - ド の 表 示 
デ ザ イ ン 
モ - ド 日 ダ イ ア ロ グ の 実 行 
コ ン ト ロ - ル 
C 
D 
XML 
K

今回はさらに、このマクロをショートカットキーで起動できるように設定します。保存したマクロの上で右クリックし”オプション”を選びます。そうすると、このマクロに対して自由にショートカットを設定することができます。例えば以下では、覚えやすいようにRedのRということで、Ctrl + Shift + Rと設定します。

自 動 保 存 
gookl sx ・ 剤 ノ ま し た 
カ イ ル ホ - ム 
揮 入 
ペ - ジ し イ ア ウ ト 
数 式 
デ - タ 
校 問 
表 示 問 発 
ヘ ル プ 
コ ン ト [ ー ル 
AH18 
マ ク ロ 名 但 ) : 
マ ク ロ わ シ ョ ン 
ド ontR 日 0 
マ ク ロ 名 : 
ト 0 「 
ス テ ッ プ イ ン 圓 
ジ ト 加 キ - 区 ) : 
Ctrl*Shift+ 磯 
作 成 (C ) 
説 明 0 : 
ロ ) 
オ プ シ ョ ン 0 … 
マ ク ロ の 保 先 住 ) : 日 00 以

設定完了後は、いつでも選択されている範囲のフォントを”Ctrl + Shift + R”で赤字にすることができます。

この方法は、設定こそ敷居が高く、やや手間がかかるものの、自動化の効果は絶大です。これまでマクロ(VBA)を使用したことがない人が、マクロを使ったショートカットによる自動化を使い始めて、業務負荷が大きく減ったというケースもあります。

黒字にしたい時は?

このショートカットを習得すると、次は恐らく、他の色に変えるにはどうしたらいいの?という質問が出ると思います。

そこで以下では、赤字の次に需要の多いであろう、黒字にするためのコードを紹介します。

Public Sub FontBlack()

    Selection.Font.Color = vbBlack

End Sub

使い方は赤くする時と全く同じです。ショートカットの設定だけ、他と重複しないように設定しましょう。例えばこれをBlackのBということで”Ctrl + Shift + B“と設定するとします。

そうすると、いつでも”Ctrl + Shift + R“で赤字にでき、”Ctrl + Shift + B“で黒字に戻すことができます。

コメント

タイトルとURLをコピーしました