excel依据结束时间自动弹窗提醒

发布网友

我来回答

共1个回答

热心网友

Private Sub Workbook_Open()
    Dim mmsg As String
    For i = 2 To 7
        If Application.WorksheetFunction.Days(Sheet1.Cells(i, 3).Value, Now()) < 30 And Sheet1.Cells(i, 4) = "" Then
            s = s & vbCrLf & Sheet1.Cells(i, 1)
            Sheet1.Cells(i, 4).Value = "是"
        End If
    Next
    MsgBox "以下项目1个月内到期：(包括已过期项目)" & vbCrLf & s
End Sub

有些问题不明确，有什么问题请追问

热心网友

Private Sub Workbook_Open()
    Dim mmsg As String
    For i = 2 To 7
        If Application.WorksheetFunction.Days(Sheet1.Cells(i, 3).Value, Now()) < 30 And Sheet1.Cells(i, 4) = "" Then
            s = s & vbCrLf & Sheet1.Cells(i, 1)
            Sheet1.Cells(i, 4).Value = "是"
        End If
    Next
    MsgBox "以下项目1个月内到期：(包括已过期项目)" & vbCrLf & s
End Sub

有些问题不明确，有什么问题请追问

热心网友

Private Sub Workbook_Open()
    Dim mmsg As String
    For i = 2 To 7
        If Application.WorksheetFunction.Days(Sheet1.Cells(i, 3).Value, Now()) < 30 And Sheet1.Cells(i, 4) = "" Then
            s = s & vbCrLf & Sheet1.Cells(i, 1)
            Sheet1.Cells(i, 4).Value = "是"
        End If
    Next
    MsgBox "以下项目1个月内到期：(包括已过期项目)" & vbCrLf & s
End Sub

有些问题不明确，有什么问题请追问

热心网友

Private Sub Workbook_Open()
    Dim mmsg As String
    For i = 2 To 7
        If Application.WorksheetFunction.Days(Sheet1.Cells(i, 3).Value, Now()) < 30 And Sheet1.Cells(i, 4) = "" Then
            s = s & vbCrLf & Sheet1.Cells(i, 1)
            Sheet1.Cells(i, 4).Value = "是"
        End If
    Next
    MsgBox "以下项目1个月内到期：(包括已过期项目)" & vbCrLf & s
End Sub

有些问题不明确，有什么问题请追问