作者：绿色风
分类：
时间：2022-08-18
浏览：318
楼主
lrlxxqxa |
Q：如何实现商品保质期到期提醒功能？
A：设置条件格式标红到期记录字体；利用vba在打开工作簿时实现自动提示；
- Private Sub Workbook_Open()
- t1 = Application.CountIf(Sheet1.Range("F4:G1000"), "保质期到期")
- t2 = Application.CountIf(Sheet4.Range("F4:G1000"), "保质期到期")
- t3 = Application.CountIf(Sheet5.Range("F4:G1000"), "保质期到期")
- Str1 = "北京时间 " & Format(Now(), "yyyy-mm-dd aaaa")
- Str2 = "今天共有" & t1 + t2 + t3 & "个商品保质期到期，需要进行处理。" & Chr(10)
- Str22 = "调 料 类： " & t1 & "个" & Chr(10) & "食 品 类： " & t2 & "个" & Chr(10) & "日常用品类： " & t3 & "个" & Chr(10)
- Str3 = Chr(13) & Space(40) & "—有间商店NO.147" & vbCrLf & Space(40) & "提示时间 " & Format(Now(), "hh:mm:ss ") & Chr(0)
- If t1 + t2 + t3 Then
- MsgBox Str1 & vbCrLf & vbCrLf & Str2 & vbCrLf & Str22 & vbCrLf & "详见各表红色部分!" & Chr(10) & Chr(10) & Str3, 64, "【友情提示】"
- End If
- End Sub
效果如下：
 商品保质期查询2.rar
|
2楼
VVVGLIN |
如何能跳出下面这个提示窗口呢？ |
3楼
lrlxxqxa |
开启工作簿时根据当前日期判断，如果商品中有保质期到期的，则自动弹出该提示。 |
4楼
yjnzh |
学习学习 |
5楼
gaoxuegang1988 |
ga |
6楼
jyz6620 |
安逸 |
7楼
碎碎念 |
Private Sub Workbook_Open()
t1 = Application.CountIf(Sheet1.Range("C2:C10"), "生日到了")
Str1 = "北京时间 " & Format(Now(), "yyyy-mm-dd aaaa")
Str2 = "今天共有" & t1 & "个人生日，记得处理。" & Chr(10)
Str3 = Chr(13) & Space(40) & "—慧" & vbCrLf & Space(40) & "提示时间 " & Format(Now(), "hh:mm:ss ") & Chr(0)
If t1 Then
MsgBox Str1 & vbCrLf & vbCrLf & Str2 & vbCrLf & "详见各表红色部分!" & Chr(10) & Chr(10) & Str3, 64, "【友情提示】"
End If
End Sub
这是我根据你那个改的，能帮我改一下我错的地方吗？我现在出现的情况是，找开EXCEL不是自动弹出提醒
顺便说一下，我没建提示那个窗体，还有我VBA小白一个 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一