まりふのひと

Excel/選択したセルの行や列に色を付ける


いきさつ

 中国新聞デジタルの 【グラフで見る】山口県の新型コロナウイルス感染者数と医療提供状況で直近の新型コロナウィルス(COVID-19)感染者数を見ると、山口県もそうだが田布施町も落ち着いていない...

直近の県全体 直近の田布施町

田布施町の感染者数を長いスパンで見ると

20220806113046
かなり増えているのに‥‥「町長メッセージ」は 4月19日*1 以降、出ていない。(たぶん)
町民には Webページで、常に、、出している‥‥ ので良いと思っているのだろうか...
 そんな思いもあり、田布施町内の新型コロナウイルス感染症の発生状況 から年代別感染者数をExcel に入力、グラフにしたら何か解るのではないか‥‥ やってみた。

Windows11/Excel2021 でやったこと

年代別感染者数入力列の作成

 町のWebページ から、件数の入力は既に行っているので、この表に年代別の入力列を作った。

  • A~E列:既存
  • F~R列:今回追加
    • F列:B列のコピー
      • グラフデータの左端をX軸の値にすると作図(特に更新する時)が簡単になるために作った。
    • P列:90歳代:100歳以上も含むことにした。
    • Q列:合計:G~P列の横計
    • R列:件数差:C列とQ列の差。書式設定でマイナスは赤字表示

選択したセルの行と列に色をつける

 とりあえず今年6月以降分の年代別件数を入力を開始した‥‥

  • 1画面に入らないので、とりあえずD,E列は非表示にし、「横スクロールなし」状態にした。
  • データが全て埋まる訳ではないので、画面下の方の後期高齢者の列になると、「日付」「〇歳代」が合っているか確認し難い...

そこで、Google先生に尋ねた。

Excelで選択セルに色を付けて目立たせる方法 | WITH PC

with-pc.com

 Excelで選択セルに色を付けて目立たせるには、「マクロ」と「条件付き書式」を使います。

  • まずVBEを起動し、「ThisWorkbook」をダブルクリックすると表示されるコードウィンドウに以下のコードを貼り付けます。
  • Excelの画面に戻り、色を付けたいセル範囲を選択して「ホーム」タブ⇒「条件付き書式」⇒「新しいルール」を選択します。

VBEの設定

 具体的には
§1.Excel ワークブックを開く
§2.VBEを起動(Alt+F11)し、

  1. ①ThisWorkbookをダブルクリック
  2. Webページのコード
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.ScreenUpdating = true
    End Sub
    を ②コードウィンドウにコピペ した。
  3. VBEウィンドウを[×]で閉じる。
ワークシートの書式設定

§3.ワークブックに戻ったら、

  1. 書式設定するセルの範囲を選択し、
    • 支障がなければ、列範囲(例えば A:R)の方が選択が楽かも...
  2. ホーム・タブ/スタイル・グループの[条件付き書式]⇒ 新しいルール をクリックする。
    1. ▶数式を使用して、書式設定するセルを決定 を選択し、
    2. [書式(E)...]をクリックする。
    3. 塗りつぶし・タブを選択する。
    4. 塗りつぶす色を選択し、
    5. [OK]をクリックする。
    6. 次の数式を満たす場合に値を書式設定 欄に下記コードを入力(コピペ)し、
    7. [OK]で閉じる。

§4.動作を確認する...

マクロ有効ブックで保存する

§5.問題なければ「名前を付けて保存」する

  • 上書きしようとすると
    次の機能はマクロなしのブックに保存できません
    が出る。
  • ファイル名:任意であるが、「元々のファイル名+改」等がお勧め...
    • 同じファイル名でも保存できるが、「拡張子を表示」しないとアイコンでは区別し難い...
  • ファイルの種類Excel マクロ有効ブック (*.xlsm) ‥‥必須



 手順どおりに行ったら、

上図のように選択したセルの行と列に色が付くようになった。
「コリャ いいや!」

目立たせ方別 数式例(引用)

 次の数式を満たす場合に値を書式設定 欄に入力するコード。
前述 WITH PCさんのサイトより引用した。


選択セルに色を付ける
=AND(CELL("ROW")=ROW(),CELL("COL")=COLUMN())
選択セルの行に色を付ける
=CELL("ROW")=ROW()
選択セルの列に色を付ける
=CELL("COL")=COLUMN()
選択セルの行と列に色を付ける
=OR(CELL("ROW")=ROW(),CELL("COL")=COLUMN())

編集後記

試行結果

  • 「選択セルの行と列に色を付ける」で試したが、大きな表の、特に右下辺りの入力時に効果があった。
  • 条件付き書式をセルの範囲で指定すると、表が大きいと面倒な操作になる。
     条件付きセルの範囲外を選択した時、行や列に色が付かないはずだが‥‥ なかなか難しいところがあるようだ。
    ならば条件付き書式は 列の範囲 で指定するのが操作も楽‥‥ と感じた。
  • 入力以外の時は「色付け」されると煩わしいこともある。一時的に止めたいこともある。
     下記サイトで可能なようだが、手ごわいようなので「宿題」とする...

トラックバック

Excel/選択したセルの行や列に色を付ける-ドロップダウンリストで適用を切替える|まりふのひと 2022-08-14


*1:このメッセージも町のWebページから削除されているので、今となっては内容不明。