excel自动弹框提醒,到期日期提醒
发布网友
共3个回答
热心网友
1、打开Excel表格后，按Alt+F11，打开VBA编辑器，双击左侧工程里面的ThisWorkbook。
2、点击ThisWorkbook之后进入新的界面，选择代码窗口里的workbook和open。
3、然后输入以下代码，关键地方已备注，按自己要求修改即可。Private Sub Workbook_Open() Dim v, s, n As Date v = Application.WorksheetFunction.Max(Range("C2:C15")) 'C2:C15为要审查的单元For Each s In Range("C2:C15")n = Date获取当前日If s > n And s < n + 60 Then设置到期60天时提醒。
4、EndIfNextIf v<Application.WorksheetFunction.Max(Range("C2:C15")) ThenDim TAsString Dim R As Integer Set C = Range("C2:C15").Find(v)If Not C Is Nothing Then R = C.Row 返回行End IfT = Sheet1.Cells(R, 2).Value MsgBox T & "将于" & v & "到期，请及时核定！" End IfEnd Sub。
5、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。
热心网友
如下图，在A2单元格输入=TODAY()，该函数自动返回当前的日期。每次打开工作簿时都会自动更新。
双击C2单元格，输入函数：
=IF(B2-A2<=10,"提醒","")
这时，如果B2的日期减去A2的日期（也就是今天的日期）小于等于10时，C2单元格会返回“提醒”二字，否则返回空白。
我们尝试更改A2单元格的日期会发现公式返回结果的变化。
注意：excel里两日期相减得到的天数相当于“算头不算尾”的方法，比如说明天的日期减去今天的日期返回结果是1。
如果不想加C列显示，只想在B列快到期时自动添加颜色显示也可以用条件格式完成。
首先，选中B2单元格，选择【开始】-【条件格式】-【新建规则】。
在【新建规则】界面如下图选择【使用公式确定要设置格式的单元格】。
在下面的输入框内输入公式=B2-TODAY()<=10，然后点击【格式】按钮。
在【格式】选项卡选择一个合适的填充色后返回前一界面点击确定。这样，当B2的日期减去电脑系统时间小于等于10天的时候，单元格就会被填充上刚才选中的颜色。追问不知道可以弹出对话框吗？
热心网友
如果仅仅是当到期日期距离当前日期还有15天打开excel表格时单元格变红提示即将到期，不必VBA，条件格式设置即可追问怎么设置呢，我试了下，用不起
热心网友
1、打开Excel表格后，按Alt+F11，打开VBA编辑器，双击左侧工程里面的ThisWorkbook。
2、点击ThisWorkbook之后进入新的界面，选择代码窗口里的workbook和open。
3、然后输入以下代码，关键地方已备注，按自己要求修改即可。Private Sub Workbook_Open() Dim v, s, n As Date v = Application.WorksheetFunction.Max(Range("C2:C15")) 'C2:C15为要审查的单元For Each s In Range("C2:C15")n = Date获取当前日If s > n And s < n + 60 Then设置到期60天时提醒。
4、EndIfNextIf v<Application.WorksheetFunction.Max(Range("C2:C15")) ThenDim TAsString Dim R As Integer Set C = Range("C2:C15").Find(v)If Not C Is Nothing Then R = C.Row 返回行End IfT = Sheet1.Cells(R, 2).Value MsgBox T & "将于" & v & "到期，请及时核定！" End IfEnd Sub。
5、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。
热心网友
1、打开Excel表格后，按Alt+F11，打开VBA编辑器，双击左侧工程里面的ThisWorkbook。
2、点击ThisWorkbook之后进入新的界面，选择代码窗口里的workbook和open。
3、然后输入以下代码，关键地方已备注，按自己要求修改即可。Private Sub Workbook_Open() Dim v, s, n As Date v = Application.WorksheetFunction.Max(Range("C2:C15")) 'C2:C15为要审查的单元For Each s In Range("C2:C15")n = Date获取当前日If s > n And s < n + 60 Then设置到期60天时提醒。
4、EndIfNextIf v<Application.WorksheetFunction.Max(Range("C2:C15")) ThenDim TAsString Dim R As Integer Set C = Range("C2:C15").Find(v)If Not C Is Nothing Then R = C.Row 返回行End IfT = Sheet1.Cells(R, 2).Value MsgBox T & "将于" & v & "到期，请及时核定！" End IfEnd Sub。
5、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。
热心网友
如下图，在A2单元格输入=TODAY()，该函数自动返回当前的日期。每次打开工作簿时都会自动更新。
双击C2单元格，输入函数：
=IF(B2-A2<=10,"提醒","")
这时，如果B2的日期减去A2的日期（也就是今天的日期）小于等于10时，C2单元格会返回“提醒”二字，否则返回空白。
我们尝试更改A2单元格的日期会发现公式返回结果的变化。
注意：excel里两日期相减得到的天数相当于“算头不算尾”的方法，比如说明天的日期减去今天的日期返回结果是1。
如果不想加C列显示，只想在B列快到期时自动添加颜色显示也可以用条件格式完成。
首先，选中B2单元格，选择【开始】-【条件格式】-【新建规则】。
在【新建规则】界面如下图选择【使用公式确定要设置格式的单元格】。
在下面的输入框内输入公式=B2-TODAY()<=10，然后点击【格式】按钮。
在【格式】选项卡选择一个合适的填充色后返回前一界面点击确定。这样，当B2的日期减去电脑系统时间小于等于10天的时候，单元格就会被填充上刚才选中的颜色。追问不知道可以弹出对话框吗？
热心网友
如果仅仅是当到期日期距离当前日期还有15天打开excel表格时单元格变红提示即将到期，不必VBA，条件格式设置即可追问怎么设置呢，我试了下，用不起
热心网友
如下图，在A2单元格输入=TODAY()，该函数自动返回当前的日期。每次打开工作簿时都会自动更新。
双击C2单元格，输入函数：
=IF(B2-A2<=10,"提醒","")
这时，如果B2的日期减去A2的日期（也就是今天的日期）小于等于10时，C2单元格会返回“提醒”二字，否则返回空白。
我们尝试更改A2单元格的日期会发现公式返回结果的变化。
注意：excel里两日期相减得到的天数相当于“算头不算尾”的方法，比如说明天的日期减去今天的日期返回结果是1。
如果不想加C列显示，只想在B列快到期时自动添加颜色显示也可以用条件格式完成。
首先，选中B2单元格，选择【开始】-【条件格式】-【新建规则】。
在【新建规则】界面如下图选择【使用公式确定要设置格式的单元格】。
在下面的输入框内输入公式=B2-TODAY()<=10，然后点击【格式】按钮。
在【格式】选项卡选择一个合适的填充色后返回前一界面点击确定。这样，当B2的日期减去电脑系统时间小于等于10天的时候，单元格就会被填充上刚才选中的颜色。追问不知道可以弹出对话框吗？
热心网友
1、打开Excel表格后，按Alt+F11，打开VBA编辑器，双击左侧工程里面的ThisWorkbook。
2、点击ThisWorkbook之后进入新的界面，选择代码窗口里的workbook和open。
3、然后输入以下代码，关键地方已备注，按自己要求修改即可。Private Sub Workbook_Open() Dim v, s, n As Date v = Application.WorksheetFunction.Max(Range("C2:C15")) 'C2:C15为要审查的单元For Each s In Range("C2:C15")n = Date获取当前日If s > n And s < n + 60 Then设置到期60天时提醒。
4、EndIfNextIf v<Application.WorksheetFunction.Max(Range("C2:C15")) ThenDim TAsString Dim R As Integer Set C = Range("C2:C15").Find(v)If Not C Is Nothing Then R = C.Row 返回行End IfT = Sheet1.Cells(R, 2).Value MsgBox T & "将于" & v & "到期，请及时核定！" End IfEnd Sub。
5、确认，保存。关闭当前工作簿，再次打开，就会看到到期提示啦。
热心网友
如果仅仅是当到期日期距离当前日期还有15天打开excel表格时单元格变红提示即将到期，不必VBA，条件格式设置即可追问怎么设置呢，我试了下，用不起
热心网友
如下图，在A2单元格输入=TODAY()，该函数自动返回当前的日期。每次打开工作簿时都会自动更新。
双击C2单元格，输入函数：
=IF(B2-A2<=10,"提醒","")
这时，如果B2的日期减去A2的日期（也就是今天的日期）小于等于10时，C2单元格会返回“提醒”二字，否则返回空白。
我们尝试更改A2单元格的日期会发现公式返回结果的变化。
注意：excel里两日期相减得到的天数相当于“算头不算尾”的方法，比如说明天的日期减去今天的日期返回结果是1。
如果不想加C列显示，只想在B列快到期时自动添加颜色显示也可以用条件格式完成。
首先，选中B2单元格，选择【开始】-【条件格式】-【新建规则】。
在【新建规则】界面如下图选择【使用公式确定要设置格式的单元格】。
在下面的输入框内输入公式=B2-TODAY()<=10，然后点击【格式】按钮。
在【格式】选项卡选择一个合适的填充色后返回前一界面点击确定。这样，当B2的日期减去电脑系统时间小于等于10天的时候，单元格就会被填充上刚才选中的颜色。追问不知道可以弹出对话框吗？
热心网友
如果仅仅是当到期日期距离当前日期还有15天打开excel表格时单元格变红提示即将到期，不必VBA，条件格式设置即可追问怎么设置呢，我试了下，用不起
