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