Q&A
セルから背景色を取得するコードは書けますか？
初心者です。何卒よろしくお願いします。
現在、Excelで数行ごとに一まとまりと
なっているデータについて、
まとまり毎に異なる背景色を設定し、
背景色が変わる毎に連番をつける
という作業を手作業で行っております。
※以下のようなイメージです
1 国語 (背景黄色)
1 算数 (背景黄色)
2 りんご (背景水色)
2 みかん (背景水色)
2 いちご (背景水色)
この連番を付ける作業を自動化したいのですが、
背景色が変わることをトリガーとする
方法が分かりませんでした。
条件としては以下なのですが、
もし方法があればどなたか
ご教示いただけませんでしょうか。
・背景色を変えるのは人間の手作業
・一まとまりの行数はバラバラ
・現状色に特段決まりがあるわでではない
・運用で特定の2色の交互にすることは可能
何卒よろしくお願いいたします。
おそらく書けると思います…！
> この連番を付ける作業を自動化したいのですが、背景色が変わることをトリガーとする方法が分かりませんでした。
ロジックが思いつかないのか、ロジックはあるがコード化できないのかどちらでしょうか？
現状”丸投げ”になっていますし、”書ける”と”書けると思う”では随分違いますのでコードを書いてみてはいかがでしょうか？
回答2件
0
ベストアンサー
| ／ | A | B | ……… |
|---|---|---|---|
| 1 | 連番 | 文字列 | (背景なし) |
| 2 | 国語 | (背景黄色) | |
| 3 | 算数 | (背景黄色) | |
| 4 | りんご | (背景水色) | |
| 5 | みかん | (背景水色) |
①標準モジュールに以下のユーザ定義関数を記述する。
VBA
1 2Function CELLCOLOR(r As Range) 3 CELLCOLOR = r.Interior.Color 4End Function
②A2に以下の数式を入れる。
Excel
1=IF(CELLCOLOR(B1)=CELLCOLOR(B2),N(A1),N(A1)+1)
③A2セルをコピーし、A3以降に貼り付ける。
投稿2021/11/04 13:29
総合スコア4592
非常にシンプルにやりたいことを教えていただいて大変助かりました(;_;) ありがとうございました！！
0
とりあえず考え方のヒントだけを。
データの先頭行から最終行までループ処理(For Next または Do Loop で)
連番を格納する変数を用意。初期値は1
ループ内で、
前行と現行の背景色を比較して同じなら連番変数をそのままセルに代入。
異なるなら、連番変数に１を加算して、セルに代入する。
投稿2021/11/04 12:17
編集2021/11/04 12:20
総合スコア34075
あなたの回答
tips
プレビュー
