質問です 期限が過ぎたら、色がかわりポップアップするマクロをwebを参考に作りました。 複数列を選択できるよう変更したいです。 Cellsでは出来ないと思いますが、どのように変更すればいいのか悩んでいます。 教えて頂けると助かります！ ↓ Sub 期限切れを確認する1() Dim LastRow As Long Dim TargetDay As Long Dim i As Long '最終行を取得 LastRow = Cells(Rows.Count, 1).End(xlUp).Row '日付を取得 TargetDay = Range("E1") '2行目～最終行までループ For i = 2 To LastRow 'B列が期限を過ぎていたら、背景色に色付け If Cells(i, 2) < TargetDay Then Cells(i, 2).Interior.Color = 65535 End If Next i End Sub Sub 期限切れを確認する2() Dim LastRow As Long Dim TargetDay As Long Dim Warning As String Dim i As Long '最終行を取得 LastRow = Cells(Rows.Count, 1).End(xlUp).Row '日付を取得 TargetDay = Range("E1") '2行目～最終行までループ For i = 2 To LastRow '指定の期限が切れている場合、変数にデータを格納 If Cells(i, 2) < TargetDay Then Warning = Warning _ & "・" & Cells(i, 1) & "：" & Cells(i, 2) & vbCrLf End If Next i If Warning = "" Then MsgBox "期限切れはありません。" Else MsgBox "【期限が切れています】" & vbCrLf & Warning End If End Sub
Visual Basic
