Excel VBA質問箱 IV

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

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


4410 / 76734 ←次へ | 前へ→

【77947】Re:一定以上の数値に色づけをしたい
回答  yuto  - 16/2/15(月) 21:01 -

引用なし
パスワード
   ▼初心者A さん:
 要件が不明な点もありますが、参考までに以下のように
書いてみました。
 Excelのない環境で記述していますので、タイプミス等
ありましたら、すみません。

Sub Sample()
 Dim TargetRow As Long
 For TargetRow = 1 To 5
  With Cells(TargetRow, 2) ’ 本来は、Sheetもきちんと修飾した方が望ましいです。
  ' 数式の設定は、RC形式で記載。
   .FormulaR1C1 = "=SUM(RC[1]:RC[5])"
  ' 数式を残す必要がなければ、以下のようにも書けます。
  ' .Value = WorksheetFunction.Sum( .Offset(,1).Resize(,5).Value)
   If (.Value >= 5) Then
    .Interior.ColorIndex = 7
   End If
  End With
 Next TargetRow
End Sub

5 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 発言[未読]

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