[[20120514162527]]　『検索マクロ』（ぴょん）　ページの最後に飛ぶ

『検索マクロ』（ぴょん）

お世話になります。
下記のような表を作成し、奇数行と偶数行（1行目が2行目、3行目が4行目～）を
検索し、セル内が違う数字ならば、ピンクのセル色にしたいのですが、いい方法を
教えてください。（但し、列は4ズレてます。）

   A     B    C    D    E    F    G    H    I
1仕入a  159   89   78   99
2納品a                      159   89   78  100　 「100」のセルがピンク
3仕入b        29   47   39
4納品b                            29   45   39   「45」のセルがピンク
5仕入c　　　　700  520  471
6納品c                            700  520  475  「475」のセルがピンク 
↓以下続く

Excel2003
WindowsXP

 表題が【マクロ】となっているけど、
・F2:I○ まで選択して
・条件付書式で、【数式が】 =AND(MOD(ROW(),2)=0,F2<>B1) で、書式で背景色をピンク

 これで大丈夫だと思うけど。

 (ぶらっと)

 もしマクロがお望みなら

 Sub Sample()
    Dim z As Long
    Dim j As Long
    Dim i As Long

    z = Range("A" & Rows.Count).End(xlUp).Row   '最終行番号
    Range("F1:I1").Resize(z).Interior.ColorIndex = xlNone
    For i = 2 To z Step 2
        For j = 6 To 9      'F～I
            If Cells(i, j).Value <> Cells(i - 1, j - 4).Value Then
                Cells(i, j).Interior.ColorIndex = 7
            End If
        Next
    Next

 End Sub

 (ぶらっと)

ぶらっと様

ありがとうございました。
100%イメージ通りで助かりました。

ぴょん

コメント返信：

[ 一覧(最新更新順) ]

[[20120514162527]] 『検索マクロ』（ぴょん） ページの最後に飛ぶ

[[20120514162527]]　『検索マクロ』（ぴょん）　ページの最後に飛ぶ