IT/PC関連

【Excel/VBA】Excelの表を1クリックで見栄え良くする方法

今回は2種類のマクロを組み合わせて、Excelの表を気の利いた仕上がりにする方法を紹介します。

ふりかえるくん
ふりかえるくん
Excelマクロの記事も再挑戦だ!
未完ちゃん
未完ちゃん
うまく説明できるかなぁ。。。

罫線を自動設定する。

ふりかえるくん
ふりかえるくん
エクセルの表に罫線を引くとき、どうしてる?
未完ちゃん
未完ちゃん
「格子」一択だよ。簡単だしね。
ふりかえるくん
ふりかえるくん
間違いではないけど、横線を細くすると、表のデータが見やすくなるよ
未完ちゃん
未完ちゃん
そうなの?でもイチイチ「セルの書式設定」を開いて操作するのは時間がかかるし、メンドウだよ。。。
ふりかえるくん
ふりかえるくん
そういうメンドウを減らすためにマクロが有るんだよ。

未完ちゃん
未完ちゃん
確かに見やすくなったよ。でも罫線が付いたり消えたりして、目がチカチカするんだけど。。。
ふりかえるくん
ふりかえるくん
そういうときは、このプロパティで処理を挟んであげるといいよ

画面の自動更新を停止/再開するプロパティ
Application.ScreenUpdating

未完ちゃん
未完ちゃん
このプロパティは何をしてくれるの?
ふりかえるくん
ふりかえるくん
表の罫線を付けたり消したりしている間に、画面を更新しないようにできるんだ。
未完ちゃん
未完ちゃん
一時停止する。みたいな感じ?
ふりかえるくん
ふりかえるくん
そうそう、そのとおり。早速書き直してみるね

未完ちゃん
未完ちゃん
チカチカしなくなったね。はじめから言ってよ。。。
ふりかえるくん
ふりかえるくん
ごめんごめん。

1行おきに表に色を塗る。

ふりかえるくん
ふりかえるくん
続いて、1行おきに表に色を塗るよ。
未完ちゃん
未完ちゃん
条件付き書式を使って、設定したことあるよ。いつも数式を忘れちゃうんだけど。
ふりかえるくん
ふりかえるくん
これのことかな?

エクセルの行数が奇数か偶数かを求める計算式
=MOD(ROW(),2)=1:行数を2で割った余りが1(奇数)
=MOD(ROW(),2)=0:行数を2で割った余りが0(偶数)

未完ちゃん
未完ちゃん
そう、これ。この計算式
ふりかえるくん
ふりかえるくん
このマクロでは、計算式を変数に格納してから、条件付き書式に設定しているよ。

未完ちゃん
未完ちゃん
さっき出てきたScreenUpdatingが今度はちゃんと使われているね。
ふりかえるくん
ふりかえるくん
覚えたことはすぐに使わないと忘れちゃうからね。
未完ちゃん
未完ちゃん
ところで、表の色を変えたいときはどうすれば良いの?
ふりかえるくん
ふりかえるくん
この部分の設定値を変えると良いよ。

テーマカラーの設定
(※例はオレンジ色を設定しています。
また、この色はExcelで使用しているテーマによって変わります。)
.PatternThemeColor = xlThemeColorAccent6
.ThemeColor = xlThemeColorAccent6

未完ちゃん
未完ちゃん
罫線を引いて、色を塗って…うん。だいぶマシになった気がする。
ふりかえるくん
ふりかえるくん
でしょ~~!!!

今回はこれまで。お先に失礼します!

※アイキャッチ画像は reeoさんによるイラストACからのイラスト を使用しています。

ABOUT ME
アバター
angelion
実務で使えるExcel-VBA、Word-VBA、VBSの小技を紹介します。またPC関連の時短グッズや子育て日記なども書きます。