セルの色分け

質問

質問失礼します。

エクセルに入力する際、区切りや色分けをし、見やすくして、入力していきたいのですが、一本、一本線を引くことはできたのですが、2万行ほどあるので、いっきに区切りを入れる方法などあるのでしょうか。

理想は5行ごとに、セルの色分けをして、かつ、20行ごとに区切り線をいれていきたいです。

データを入力後は、区切り線や色などを消し元に戻す予定でいます。

できるでしょうか？

お願いします。

回答No.4

Takahiro_2002 · ベストアンサー

こんばんは。
頻繁に更新作業が発生するならマクロを埋め込んでしまうのが宜しいかと思います。入力時及び入力後にマクロを実行すればいいので工数の削減が図れると思います。

殆ど記録だけで作ったマクロですが貼り付けておきますのでAlt+F11押してModuleを新規作成し貼り付けて試して頂ければと思います。

'５行毎に緑と青で塗りつぶされて２０毎に罫線を入れるマクロ
Sub 色を付ける()
Cells.Select
Range("A1").Activate
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(MOD(ROW()-1,10)>=5,IF(MOD(ROW(),20)=0,FALSE,TRUE),FALSE)"
Selection.FormatConditions(1).Interior.ColorIndex = 35
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(MOD(ROW()-1,10)>=5,FALSE,TRUE)"
Selection.FormatConditions(2).Interior.ColorIndex = 37
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=IF(MOD(ROW(),20)=0,TRUE,FALSE)"
With Selection.FormatConditions(3).Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.FormatConditions(3).Interior.ColorIndex = 35
Range("A1").Select
End Sub
Sub 色を消す()
Cells.Select
Range("A1").Activate
Selection.FormatConditions.Delete
Range("A1").Select
End Sub

お礼

ありがとうございます。マクロはさわった事がなかったので、これを機に勉強させてもらいます。

回答No.3

zap35

１行目～２０行目まで色分けを行い、２０行目の区切り線（枠の下線）を入れる

その設定を行った範囲をコピー

２１行目→２万行の色分けしたい範囲を選択し、「編集」→「形式を選択して貼り付け」→「書式」でペースト

お礼

ありがとうございます。感謝です。

回答No.2

kahlua

あんまり詳しいほうではないんですが。

例えば、表の列の端がAとIだとすると…
まず、A1～I5を選択して塗りつぶす　→　同様に、A6～I10を選択して塗りつぶす　→　A1～I10を選択してマウスポインタをI10の右下に合わせ、I20までコピーする　→　A20～I20を選択して、下罫線を引く　→　A1～I20を選択してマウスポインタをI20の右下に合わせ、好きな位置までコピーする。

一応これで目的は果たせますが、もっと簡単なやり方をご存知の方がいるかもしれません。私には、これが精一杯です^_^;

お礼

ありがとうございます。なるべくコピーをしない方法をさがしています。

回答No.1

Takahiro_2002

エクセルのセル全部選択して、
書式→条件付き書式
条件１
数式が　=IF(MOD(ROW()-1,10)>=5,IF(MOD(ROW(),20)=0,FALSE,TRUE),FALSE)
書式でパターンを指定。

追加>>　ボタンを押して

条件２に
数式が　=IF(MOD(ROW(),20)=0,TRUE,FALSE)
書式でパターンと罫線を指定

OKボタンを押すと
５行置きに色が入って２０行ごとに線が付く。
条件３を
=IF(MOD(ROW()-1,10)>=5,FALSE,TRUE)
にしてパターンを指定してあげれば綺麗に２色で色分けできるようになるですよ。

消すときは、条件付き書式の設定画面で削除ボタンを押せば消えるです。

お礼

大変ありがとうございます。早速参考にさせてもらいます。