| |
▼超初心者 さん：
ありがとうございます。
あらかじめ関数を設定しておいて入力すれば，
>Ａ・Ｂ列は計算ゆえ、入力不要（A2,B2のみ入力）。
>よって、
>> （分数が足らない，時間が重複する
は発生しない。
は、ひとつのヒントになったような気がします。
ただ、すでに入力してあるものに対してチェックを行いたいというのが私が
今回求めるところです。
みなさまには引き続き案をご提供いただけましたらと思います。
１．例えば、Ｂ３のセルが２１５５、Ｂ２のセルが２１００、Ｃ２のセルが０５５
だったとすれば、Ｂ３のセルは２１５５でＯＫとしてセルには何も色付けしない。
仮にここでＢ３のセルが２１５５でなければＮＧとしてセルを赤く塗りつぶす
といったことができないでしょうか？
例えば、下のような感じで。
（ただし、これでは※の部分で処理が止まってしまいますし、単純な足し算の
ため時間計算が合わなくなります。）
Sub ｔｅｓｔ()
Dim LastRow As Long
With Cells(Rows.Count, 1)
LastRow = WorksheetFunction.Max( _
.End(xlUp).Row, _
.Offset(, 1).End(xlUp).Row, _
.Offset(, 2).End(xlUp).Row _
)
End With
For i = 2 To LastRow '最終行を取得
If Range("B" & i) <> Range("B" & i - 1) + Range("C" & i - 1) Then ※
Range("B" & i).Select
With Selection.Interior
.ColorIndex = 3
End With
Else
Range("B" & i).Select
With Selection.Interior
.ColorIndex = xlNone
End With
End If
Next i
End Sub
２．さらに，例えばＡ列が月曜のときのＣ列の分数の合計が１４４０分でなければ
特定のセルに色を塗るまたはメッセージを出すといったことをしたいです。
（各曜日の合計分数は必ず１４４０分になるという仕様です。）
例えば，下のような感じで（いけるのかどうかわかりませんが）。
※Ｃ列の分数の合計を求める部分がわかりません。
If Range("A" & i) = "月" And ※Ｃ列の分数の合計 <> 1440 Then
Range("B" & i).Select
With Selection.Interior
.ColorIndex = ３
End With
End If
Next i
End Sub
|
|
パトラッシュ
- 10/5/26(水) 2:07 -
