Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4415 / 76734 ←次へ | 前へ→

【77942】一定以上の数値に色づけをしたい
質問  初心者A  - 16/2/15(月) 14:44 -

引用なし
パスワード
     A   B   C   D   E   F   G
1 5    4   1   2      1
2     5      1   2   1   1
3     3   2            1
4     3   1      1   1
5     8      2   2   3   1

--------------------------------------------------

質問
A1には任意のデーター件数が入ります--説例は5
C1からG5まではデーターです
各行のB列にはC列〜G列の合計が入ります
B列合計が5以上のセルに色付けたい

Sub Cells色付() 'B列が5以上になった場合はセルに色付注意----
Dim h As Integer, i As Integer

h = Cells(1, 1)
For i = 1 To h
Cells(i , 2).FormulaR1C1 = "=SUM(Cells(" & i + 2 & ",1):Cells(" & i + 2 & ",7))"
If Cells(i , 2) > 5 Then
  Cells(i , 2).Interior.ColorIndex = 7
End if
Next
End Sub

4 hits

【77942】一定以上の数値に色づけをしたい 初心者A 16/2/15(月) 14:44 質問[未読]
【77943】Re:一定以上の数値に色づけをしたい β 16/2/15(月) 17:07 発言[未読]
【77944】Re:一定以上の数値に色づけをしたい β 16/2/15(月) 17:15 発言[未読]
【77945】Re:一定以上の数値に色づけをしたい 初心者A 16/2/15(月) 18:54 回答[未読]
【77946】Re:一定以上の数値に色づけをしたい β 16/2/15(月) 19:14 発言[未読]
【77949】Re:一定以上の数値に色づけをしたい 初心者A 16/2/15(月) 21:59 回答[未読]
【77950】Re:一定以上の数値に色づけをしたい β 16/2/16(火) 7:44 発言[未読]
【77951】Re:一定以上の数値に色づけをしたい 初心者A 16/2/16(火) 16:29 お礼[未読]
【77947】Re:一定以上の数値に色づけをしたい yuto 16/2/15(月) 21:01 回答[未読]
【77948】Re:一定以上の数値に色づけをしたい β 16/2/15(月) 21:24 発言[未読]

4415 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free