制御構文を使いたいです・・・

Question

全く経験のない状態から始め、力不足で明日の午後には提出しなければいけないため、お力添えいただきたく存じます。残業の工数が46時間以上になったらメッセージボックスを使って"10/〇、残業時間46時間になります"と表記して日付の箇所はセルを赤く塗り潰したいです。標準作業時間　8時間（8:30～17:30)、休憩時間　1時間（12:00～13:00）です。C,D,Eは手で入力しません。

今、このようなコードを書いています。

Comments

[Zuishin]

> 全く経験のない状態から始め、力不足で明日の午後には提出しなければいけないため、

それはあなたが回答してほしい理由であり、こちらが回答する理由にはなりません。
回答がほしいのであれば、あなたは自分が何も知らず何もできないことではなく、知っていることとできることをアピールすべきです。

[kitagawas]

丸投げのような形で質問してしまい申し訳ありません。今、出来る事を示すという意味でコードを載せました。

[BeatStar]

画像での質問はやめましょう。
読みづらいです。

[BeatStar]

> 力不足で明日の午後には提出しなければいけないため

他人には急かすのに自分は返信ないの？

少なくともjinojiさんには返信すべきじゃない？

それに私が書いた『画像での質問はやめよ』についてもノータッチ。

回答者は善意で回答しています。

他人の善意を仇で返すのですか？
まずはjinojiさんへアンサーしてください。

Answer 1

修正しました。

Sub 残業()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim i, r, z
    For i = 6 To 36
        r = ws.Cells(i, "E").Text
        If r <> "" Then
            z = z + (r - 8)
            If z >= 46 Then
                ws.Cells(i, "B").Interior.ColorIndex = 3
                MsgBox ws.Cells(i, "B").Text & "に残業時間46時間になります"
                Exit For
            End If
        End If
    Next
End Sub

---

（修正前）
人が入力するのはC,D列？ E列も？
以下はE列も手で入力する前提で書いています。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d As Range
    Set d = Range("B" & Target.Row)
    If WorksheetFunction.Sum(Range("E:E")) >= 46 Then
        MsgBox Format(d.Value, "m/d") & "、残業時間46時間になります"
        d.Interior.Color = vbRed
    End If
End Sub

Comments

[kitagawas]

C,D,Eは手で入力しないという事を書いていませんでした。申し訳ありません。

[kitagawas]

回答ありがとうございました！