人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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



1294285377
●拡大する

●質問者: pocon
●カテゴリ:コンピュータ
✍キーワード:Excel VBA データ マクロ 画像
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● たか
●100ポイント ベストアンサー

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

◎質問者からの返答

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ