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

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

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

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

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

●質問者: perishable
●カテゴリ:コンピュータ
✍キーワード:Excel VBA イメージ セル ファイル
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● きゃづみぃ
●35ポイント

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


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

◎質問者からの返答

ありがとう!


2 ● kaiton
●35ポイント

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のセルをコピーして、他のセルに「形式を選択して貼り付け」で「書式」にチェックで貼り付け

関連質問


●質問をもっと探す●



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