Excelで、以下のようにセルに色をつけるには、VBAで実現するにはどう記述すればいいでしょうか。


まずこのファイルを見てください。
http://pub.idisk-just.com/fview/dkkFOUxcr5AjpuJO7iqaklfoSf7fd5MneYhkuC4FZTwkZmU0TLqk3SU4gYKNiLtR/aGF0ZW5h.xls
シートは2つあるのでイメージつかんでください。

G列の数字によって色が割り当てられます。
数字は必ず自然数で、「1」から「何か」まで先頭から連続しています。これをひとくくりとして、交互に「青」と「黄色」に色づけしたいのです。
数字がない部分は色づけしません。

どうぞよろしくお願い致します。

回答の条件
  • 1人2回まで
  • 登録:2006/10/19 13:53:36
  • 終了:2006/10/20 19:37:56

回答(2件)

id:taknt No.1

きゃづみぃ回答回数13539ベストアンサー獲得回数11982006/10/19 14:05:58

ポイント35pt

Sub Macro1()

'

' Macro1 Macro

'

' Keyboard Shortcut: Ctrl+q

'

a = "G" '開始セル位置

b = 4

d = 4

e = 34

For c = b + 1 To 65536

If Range(a & c) = "" Then

Range("B" & d & ":M" & c - 1).Select

Selection.Interior.ColorIndex = e

Exit For

End If

If Range(a & c) = 1 Then

Range("B" & d & ":M" & c - 1).Select

Selection.Interior.ColorIndex = e

If e = 34 Then e = 36 Else e = 34

d = c

End If

Next c

End Sub


数字が ないセルまで 交互に着色します。

id:perishable

ありがとう!

2006/10/19 14:19:32
id:kaiton No.2

kaiton回答回数260ベストアンサー獲得回数342006/10/19 14:11:51

ポイント35pt

VBAでなく、条件付書式でできるとおもいます。

書式・条件付書式で G4で

3個とも[数式が]で

条件1=ISBLANK($G4)

 書式は何も  「追加」ボタン

条件2=MOD(COUNTIF(INDIRECT("G4:G"&ROW()),1),2)=0

 書式のパターンは「黄色」

条件3=MOD(COUNTIF(INDIRECT("G4:G"&ROW()),1),2)=1

 書式のパターンは「青色」


このG4のセルをコピーして、他のセルに「形式を選択して貼り付け」で「書式」にチェックで貼り付け

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

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

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

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