エクセルで１行おきに自動で色を付けたいのですが

質問

エクセルで名簿を作りました。人数が多いので見やすくするため１行おきに着色しています。手作業で１行おきに着色するのが大変です。自動で出来るコマンドなどありませんでしょうか。本を読みあさっておりますが、なかなか見つかりません。よろしくお願い致します。

回答No.2

arukamun · ベストアンサー

Ａの左横、１の上のボタンを教えて、セルをすべて選択します。
[書式]→[条件付き書式]
で、
数式が
を選択し、式を
=MOD(ROW(),2)=0
コピペして、[書式]ボタンを押し、
[パターン]タブで、
適当な色を選択して、[OK]
元のウィンドウで[OK]
すれば偶数行の色を着色出来たと思います。
奇数行の色を着色したいのであれば、
=MOD(ROW(),2)=1
にして見てください。

お礼

有り難うございました。
出来ました。行を追加、挿入しても大丈夫でした。
条件付き書式、少し敷居が高いですが、今後いろいろ役に立ちそうです。

回答No.5

imogasi

VBAで良ければ
シートにボタンを１つ貼りつけ、ダブルクリックする。
VBE画面に変り下記が出る。
Private Sub CommandButton1_Click()

End Sub
間に下記をコピペする。
Private Sub CommandButton1_Click()
For i = 1 To 50 '50行目までの場合
　　If i Mod 2 = 0 Then
　　Rows(i).Interior.ColorIndex = 6 '黄色の場合
　　End If
Next i
End Sub
Rows(i).Interior.ColorIndex = 8 とするとライトブルーに出来ます。
実行でデザインモードをOFFにして、シートに戻り
ボタンをクリックすると一行おきに色がつきます。

お礼

有り難うございます。
VBAが今ひとつ理解できません。根っからのWindows世代です。後々のためにテキストにして記録しておきます。
有り難うございました。

回答No.4

wolv

「書式のコピー/貼り付け」を使うとできます。

手順：
０．ツールバーに「書式のコピー/貼り付け」ボタンを追加します。
　０－１　適当なツールバーでマウスを右クリック
　０－２　出てきたメニュー（たぶん一番下の）「ユーザー設定...」を選択
　０－３　出てきた「ユーザー設定」ダイアログの「コマンド」のページの中の「分類」欄から、書式を選びます。
　０－４　「ユーザー設定」ダイアログの「コマンド」欄から、「書式のコピー/貼り付け」コマンドのアイコン（刷毛の形）を探して、この機能を登録したいツールバーの上にドラッグします。　（コピー・ペーストなどのボタンのあるツールバーがいいと思います。）
　０－５　「ユーザー設定」ダイアログの「閉じる」ボタンをクリックします。

１．１行目・２行目に適当に色をつけます。
２．１行目と２行目を選択します。
３．ツールバーに登録した「書式のコピー/貼り付け」ボタンを押します。
４．色を塗りたい範囲を選択すると、その瞬間色が塗られます。

まだ書いていない作業のコツもあるので、うまくできなかったら補足してください。

お礼

有り難うございました。
ご指示の通りやったら、その通り出来ました。
ただ、名簿に新しい人を付け加えたら、その行はおかしくなりました。その度にやり直さないといけないのでしょうか。やり直した方が速い気もしますが。

回答No.3

ssaass

これでできそうです。

参考URL：

http://www.atmarkit.co.jp/fwin2k/win2ktips/328cellstyle/cellstyle.html

お礼

有り難うございました。URLとても参考になります。いろいろ役立ちそうです。お気に入りに入れておきます。

回答No.1

hana-hana3

条件付書式を使います。

詳しくは下記を参考にしてください。

参考URL：

http://homepage1.nifty.com/iberia/column_pcknowhow.htm

お礼

ぱそこんノウハウメモ。とてもいいサイトです。お気に入りがまた一つ増えました。有り難うございました。