1294285377 【Excel/VBA】についての質問です。


画像のようにA列の「№」が異なる場合で、交互に塗りつぶしをしたいと考えております。(データ行1000行以上可変)
条件付書式、VBAマクロなどの方法で実現する方法を具体的にお教えください。

よろしくお願いいたします。


 

回答の条件
  • URL必須
  • 1人5回まで
  • 登録:2011/01/06 12:42:58
  • 終了:2011/01/06 17:20:58

ベストアンサー

id:takashi_m17 No.1

たか回答回数104ベストアンサー獲得回数122011/01/06 15:41:06

ポイント100pt

A列が空白になるまで繰り返されます。

y=行数

x=列数

なので色を付ける範囲をE列まで付けるのであればx=5としてください。

Sub macro1()
    y = 2
    x = 3
    Do Until Cells(y, 1) = ""
        If Cells(y, 1) = Cells(y - 1, 1) Then
            Range(Cells(y, 1), Cells(y, x)).Interior.ColorIndex = Cells(y - 1, 1).Interior.ColorIndex
        Else
            If Cells(y - 1, 1).Interior.ColorIndex <> 48 Then
                Range(Cells(y, 1), Cells(y, x)).Interior.ColorIndex = 48
            End If
        End If
        y = y + 1
    Loop
End Sub

http://q.hatena.ne.jp/1294285377

id:pocon

完璧です。ありがとうございます。

2011/01/06 17:20:08

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません