求大神帮忙修改程序，已有程序中加入“如果第16列（P列）为空值则不提示”

zhaiketong

Private Sub Workbook_Open()
   Dim v, s, n As Date
    v = Application.WorksheetFunction.Max(Range("F2:F1048576"))  'F2:F11048576为要审查的单元格
     For Each s In Range("F2:F1048576")
        n = Date   '获取当前日期

        If s > n And s < n + 30 Then    ' 设置到期30天时提醒

            If v > s Then
                v = s
            End If

        End If

     Next


    If v < Application.WorksheetFunction.Max(Range("F2:F1048576")) Then
        Dim T As String
        Dim R As Integer

        Set C = Range("F2:F1048576").Find(v)

        If Not C Is Nothing Then
            R = C.Row  '返回行
        End If

        T = Sheet1.Cells(R, 1).Value

        T1 = Sheet1.Cells(R, 3).Value

        MsgBox T & T1 & "将于" & v & "到期，请及时核定！"

    End If

End Sub

zhaiketong

或者改为有数值（不为空）时不提示

excel玉米

p列是逐行检查不为空还是检查整列不为空呢？