多くのエクセル行を自動的に色塗り分け

質問

よろしくお願いします。

数万行のエクセルの行を自動的にいくつかの行で塗りつぶししたいのですが
できるでしょうか・？エクセル2010です。

オートフィルタを使って並びかえをした際に、行がずれていないかどうかを
視覚的に確認するために、５つの色くらいで
行ごとに塗り分けしたいのですが
エクセル上で自動的にできないでしょうか？

教えて頂ければと思います。

回答No.1

K Kazz（@JazzCorp） · ベストアンサー

VBAで？？
http://www.happy2-island.com/excelsmile/smile03/capter00602.shtml

色は適当に変更を、、、

Option Explicit
Sub Color10()
Const xNum = 10
Const xColor = "19,20,36,40,24,2,44,35,36,37"
Dim xParette As Variant
Dim xLast As Long
Dim kk As Long
Dim mm As Long
Dim nn As Long
xParette = Split(xColor, ",")
xLast = Cells(Rows.Count, "A").End(xlUp).Row
For nn = 1 To xLast
kk = (nn - 1) Mod xNum
Rows(nn).Interior.ColorIndex = CInt(xParette(kk))
Next
End Sub

お礼

回答ありがとうございます。

大変参考になりました。

回答No.4

tsubuyuki

> いくつかの行で塗りつぶししたいのですができるでしょうか・？
> ５つの色くらいで行ごとに塗り分けしたい

いろんな意味に取れるので曖昧ではありますが、
条件付書式で対応できる範囲ではないかと推察します。

やりたいことが例えば「５色くらいの（カラフルな）横縞々表にしたい」だとすると、
２行目を選択状態にし、条件付書式のルールに（１行目がタイトル行＝除外する）、
　　数式：=MOD(ROW(),5)=○　　　（○は０～４の数字）
とし、見合う書式（塗りつぶし）を設定。
このルールを５つ用意し、下の行に必要な数だけ「書式をコピー」してやりましょう。

ちなみにＭＯＤ関数はザックリと、
括弧内の前の数値を、後ろの数値で割った時の余りを返す関数です。
例えばＭＯＤ（１０，３）とすると、１０÷３＝３あまり１　ですので、「１」を返してきます。
条件付書式に入れた式で見ると、ＲＯＷ（）は自身の行番号を返しますから、
２行目にこれが入っていると、２÷５＝０あまり２　で「２」を返してきます。
ちなみに５行目だと、５÷５＝１あまり０　ですから「０」が返ります。
なので、式中の○を５種類使い分けると、５色の縞々が出来上がる、という事です。

やりたいことが、「あるセルの内容によって塗り分けたい」のであれば
やはり条件付書式の数式に「その条件」を書いてやればＯＫ。
例えば、Ａ列が「あ」なら・・とするなら、
　　数式：=A2="あ"
としてやればＯＫ。
必要な分のルールを重ねてやり、下の行に「書式のコピー」してやりましょう。

> mike_gさん
２０１０らしいので、おそらく添付図の赤枠内の「並べ替え」でしょう。

お礼

回答ありがとうございます。
このようなやり方もあるのですね。

参考になりました。

回答No.3

KURUMITO

例えばシートの偶数の行に黄色く色を付けるのでしたら次のようにします。
シートを選択したのちに、あるいは表の範囲を選択したのちに「ホーム」タブの「条件付き書式」で「新しいルール」を選択します。
「数式で書式設定するセルを決定」を選択して下の数式の窓には次の式を入力します。

=MOD(ROW(),2)=0

その後に同じ画面の「書式」から「塗りつぶし」のタブで黄色を選定してOKします。

お礼

回答ありがとうございます。
MOD関数というのをはじめて知りました。

回答No.2

noname#204879

「オートフィルタを使って抽出をした」なら分かるのですが、「オートフィルタを使って並びかえをした」とは具体的にどういう操作をするのですか？