发布网友 发布时间:2022-04-23 19:34
共3个回答
热心网友 时间:2023-07-07 11:53
这个效果是用开发工具中的VB编辑器完成的,也就是VBA编程。
选择失效期这种功能比较简单,用VBA就太麻烦,杀鸡焉用牛刀?用函数就可以了吗。
在E4单元格中填入以下公式:
=IF(D4=0,"",IF(NOW()-D4>=0,"已失效",D4-NOW()))
填好后下拉复制。这样就在E列得到药品是否已失效或距失效期的天数。用简单的筛选就可以查看了。
你还可以配合条件格式来使用,根据距失效期的天数多少来设置单元格颜色。选择E4单元格,点击“条件格式”-“新建规则”-“只为包含以下内容的单元格设置格式”,然后填上你想让显示颜色的单元格数值范围,再点击下面的格式按钮设定你想让它显示的格式。然后下拉复制。
比如你可以选择单元格数值等于“已失效”时用红色显示;小于15天时用橙色显示;大于15天小于30天时用*显示。如图。
热心网友 时间:2023-07-07 11:53
第一步 添加三个单选框按钮 单元格链接指向E1
第二部E2输入公式下拉:=IF(D3<TODAY(),1,IF(D3-TODAY()<=30,2,IF(AND(D3-TODAY()>30,D3-TODAY()<=60),3,""))) 图一
第三部 新建规则 图二
第三部设置规则 公式 =$E3=$E$1 图三
设置好后 可以把E列隐藏起来
热心网友 时间:2023-07-07 11:54
编写个vba即可