VBA如何实现这样的自动填充底色效果

吴中泉 · 发表于 2023-6-3 08:43

SCWYZJ 发表于 2023-6-3 08:32
老师，我看了下，还是不行。代码还要改。蓝色日期没标注红色。

搞不清楚有效日期是什么意思？
能解释一下吗？
我这里代码是把生产日期和有效日期视为一样的

SCWYZJ · 发表于 2023-6-7 10:13

吴中泉发表于 2023-6-3 08:43
搞不清楚有效日期是什么意思？
能解释一下吗？
我这里代码是把生产日期和有效日期视为一样的

生产日期就是商品生产的日期，有效日期就是商品失效的日期。一样的话，我就没必要分为两列来输入日期了。我的意思就是不管输入的是生产日期还是有效日期只要输入其中一项，就能算出其商品的剩余天数或过期天数。

吴中泉 · 发表于 2023-6-7 11:39

本帖最后由吴中泉于 2023-6-7 15:01 编辑

SCWYZJ 发表于 2023-6-7 10:13
生产日期就是商品生产的日期，有效日期就是商品失效的日期。一样的话，我就没必要分为两列来输入日期了 ...

修改了一下,你看看有效日期列算法可对?

我以上问的问题是,没有生产日期,只有有效月数,怎么算出有效日期的?
有这样的公式吧:生产日期+有效月数=有效日期

吴中泉 · 发表于 2023-6-7 15:06

如图,请测试

VBA如何实现这样的填色效果.zip (21.18 KB, 下载次数: 6)

SCWYZJ · 发表于 2023-6-7 21:22

吴中泉发表于 2023-6-7 15:06
如图,请测试

老师您好：辛苦了，我试了，还是有点问题。就是有些失效日期填充色不对。见图。

吴中泉 · 发表于 2023-6-8 08:52

SCWYZJ 发表于 2023-6-7 21:22
老师您好：辛苦了，我试了，还是有点问题。就是有些失效日期填充色不对。见图。

已修正日期误差，请看图
造成原因：因为分月大月小，二月只有28天，还有30天，最大31天，所以说9个月、12个月、24个月这个固定时间段，按天数算是不同的，有2~3天误差。
比如说：有点商品注6个月为180天，实际为182.64天。
所以，在代码中对此类问题进行了修正。

SCWYZJ · 发表于 2023-6-8 09:02

吴中泉发表于 2023-6-8 08:52
已修正日期误差，请看图
造成原因：因为分月大月小，二月只有28天，还有30天，最大31天，所以说9个月 ...

哦，那代码至此不用修改了是吧？

吴中泉 · 发表于 2023-6-8 09:02

本帖最后由吴中泉于 2023-6-8 09:08 编辑

吴中泉发表于 2023-6-8 08:52
已修正日期误差，请看图
造成原因：因为分月大月小，二月只有28天，还有30天，最大31天，所以说9个月 ...

修正了日期误差的附件，请用这最新的

VBA如何实现这样的填色效果.rar (22.35 KB, 下载次数: 3)

吴中泉 · 发表于 2023-6-8 09:04

SCWYZJ 发表于 2023-6-8 09:02
哦，那代码至此不用修改了是吧？

要改，请看附件

SCWYZJ · 发表于 2023-6-8 10:16

吴中泉发表于 2023-6-8 09:04
要改，请看附件

谢谢老师，辛苦了！

		自动登录	找回密码
密码			免费注册

[求助] VBA如何实现这样的自动填充底色效果