【VBA・エクセル】一瞬でセルに色を付ける方法

悩む男性

エクセル操作で「セルの色を変える」、「フォントの色を変える」

作業をショートカットで行えたらなー

と思ったことありませんか？

今回はそんな悩みにお答えします。

きたまる

私も「セルの色を変える」、「フォントの色を変える」

などショートカットがあればいいなと長年思っておりました。

そこで最近「ないなら作ればいいじゃん」と思い、作ってみました。

本記事を読んだらエクセルで以下の作業が一瞬でできます

・セルの色を変える
・フォントの色を変える
・セルの結合、解除

今回は、エクセルにマクロを組み込む作業を行います。

マクロって何？って方も必ずできるので、よく読んで試してみてください。

このマクロを組み込むことで、作業効率が劇的に向上します

ので最後まで読んで頂ければと思います。

最初に
マクロを組み込む手順
まとめ

最初に

セルの色を変える時どうしていますか？

ほとんどの方が以下の「テーマの色」をクリックしてセルの色を変更しているのでは！

さらにこの色を付ける作業、一日に何回も使っているのでは？

この作業は今日でやめていきましょう！

マクロを組み込む手順

作業手順を画像とともに紹介するので一緒にやっていきましょう！

Step.1　個人用マクロブックを作成する。

マクロの作成だけを行うとそのエクセルブックのみへの適応となってしまいます。

そのためこれから行う個人用マクロブックを作成しなければなりません。

以下の作業を行うことで、どのエクセルでもマクロを使用することができます。

では、早速作成していきます。

・「開発」をクリック
・「マクロの記録」をクリック
（マクロの記録が開始されます。）

セルに適当な文字を入力して、「記録終了」をクリック

上図の画面が出てくるのでドロップボックスの中の「個人用マクロブック」
をクリックして「OK」を押します。

次にVisual Basic Editor起動( Alt + F11 キーでもOK)
VBAProject(PERSONAL.XLSB)
ー標準モジュール
　ーModule1
をクリックするとSub Macro1・・・とコードがでてきます。
これらのコードを全て消して以下のコードを貼り付けてください。

Step.2　マクロのコードを貼り付ける。

以下のコードは必要なものだけでOKです。

全てコピーして貼り付けても構いません。

’セルを黄色に色付け
Sub haikei_kiiro_Y()
Dim s As Range
For Each s In Selection
With s.Interior
.ColorIndex = 6
End With
Next
End Sub

’フォントを赤くする
Sub 文字を赤くする_R()
Dim s As Range
For Each s In Selection
s.Font.ColorIndex = 3
Next
End Sub

’フォントの色を黒くする
Sub 文字を黒くする_O()
Dim s As Range
For Each s In Selection
With s.Font
.ColorIndex = 1
End With
Next
End Sub

’セルの結合をする
Sub セル結合_M()
With Selection
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
End Sub

’セルの結合を解除する
Sub セル結合解除_H()
Dim s As Range
For Each s In Selection
With s
.WrapText = False
.MergeCells = False
End With
Selection.UnMerge
Next
End Sub

’背景色を色なしにする。
Sub 背景色の色なしに変更_W()
Dim s As Range
For Each s In Selection
With s.Interior
.Pattern = 0
End With
Next
End Sub

任意の色に変更したい場合
ColorIndex = 〇
〇の部分の数字を変更してくださいね。

数字部分は以下のサイトを参考にしてください。

https://www.sejuku.net/blog/32288

では、上記のコードをコピーして貼り付けましょう。