excelで5行おきに塗りつぶし

10000行位のデータがあります
1行目
6行目
11行目
……
1+5m行目

を目立たせる為に塗りつぶしたいのです

宜しくお願い致します。

No.4 ベストアンサー 回答者： AlexSuns 回答日時： 2007/05/23 15:24

条件付き書式を使用するのが最もスマートなのでは？

条件付き書式の設定：
・「数式が」を選択
・数式に「=MOD(ROW(),5)=1」と設定

この回答へのお礼

書式→パターン→希望の色 指定で

素晴らしいですね。完璧でした。
感謝致します。

お礼日時：2007/05/23 19:28

No.3 回答者： makoteru 回答日時： 2007/05/23 13:47

No1です。

最初の回答はお役に立てる内容でありませんでした。
１～５の数値を既にある、その一万行のシートの何処かに作成します。
仮にA1からA10000に１～５の繰り返しの数値を挿入したとします。
次に、A１からシートの端まで、仮に、F１までして、「データ」→「オートフィルタ」をクリック。
次に、A1に出てきた▼をクリックして、「１」をクリックすれば、１の行だけが出てきます。
その次に出てきた「１」のシートを全て、もしくは色つぶししたいセル指定して、色つぶしします。あとは、もう一度A1の▼をクリックして、「（すべて）」をクリックすると、１の入っている行だけに色つぶしがされております。あとは、A１～A10000の列を削除するなり、非表示にすればOKです。

この回答へのお礼

makoteruさん素早い対応ありがとうございました。

いろいろと方法があるものですね。

お礼日時：2007/05/23 19:30

No.2 回答者： -Jelly- 回答日時： 2007/05/23 13:24

[表示]→[ツールバー]→[VisualBasic]

を選択

VBのツールバーがでますので

[VisualBasicEditor]をクリック

データがあるシート名をダブルクリック

Sub Sample()

Dim i As Long
Dim x As Integer
Dim y As Integer

x = 1

For i = 1 To 2000
For y = 1 To 10
Cells(x, y).Interior.Color = RGB(255, 128, 0)
Next
x = x + 5
Next

End Sub

をそっくりそのまま貼り付けてください

ユーザーフォームの実行（I>な感じの右向き三角）を押します


１０００行、１０列のセルを橙色にします

xが開始行なので、
３行目から色をつけたかったら

x = 1　を　x = 3 にしてください

この回答へのお礼

good_2ありがとうございました。


>xが開始行なので、
>３行目から色をつけたかったら

>x = 1　を　x = 3 にしてください

非常に匠な技ですね。感動しています。

お礼日時：2007/05/23 19:31

No.1 回答者： makoteru 回答日時： 2007/05/23 13:02

A1からA１００００までに何とかし、

１
２
３
４
５
１
２
３
４
５
以下繰り返しで入力します。
その後に
1.A1をクリックしてマウスをドラッグしてA1:A10000を選択
→セルA1がアクティブでA1:A10000を選択している状態
2.メニュー[書式]-[条件付き書式]
3.[数式が]にして、右のボックスに「次の値に等しい」を選択にして、その右のボックスに「５」を打込む。
4.[書式]ボタンをクリック
5.[パターン]タブで任意の色例えば[黄]をクリック
6.Enter
7.[OK]ボタンをクリック
そうすると、５が入っているセルだけに色が付きますがいかがでしょうか。
１万行に１～５まで入れる方法は、お分かりでしょうか？
ちょっと遠回りかもしれませんが、複写していきますか・・