用VBA以单元格的日期自己计算显示天数

glsjsm · 发表于 2021-7-28 16:35

用VBA以单元格的日期自己计算显示天数如A1 填入日期。B1以当前日减去A1日期，显示相差的天数。请大神帮写个代码。谢谢。

jokulboy · 发表于 2021-7-28 16:42

[B1] = Date - CDate([A1])

65861954 · 发表于 2021-7-28 16:48

Sub ttt()
Range("c1") = DateDiff("d", Range("a1"), Range("b1"))
End Sub

xiaonankelly · 发表于 2021-7-28 16:59

65861954 发表于 2021-7-28 16:48
Sub ttt()
Range("c1") = DateDiff("d", Range("a1"), Range("b1"))
End Sub

想问一下，目前这个是这个是单行，如何想循环起来的话，如何写。同时如果B列的当前日期是否可以直接按照系统日期直接显示出来

lele6809 · 发表于 2021-7-28 17:04

B1公式=DATEDIF(A1,TODAY(),"d")

lele6809 · 发表于 2021-7-28 17:13

哦，VBA啊：

65861954 · 发表于 2021-7-28 17:13

xiaonankelly 发表于 2021-7-28 16:59
想问一下，目前这个是这个是单行，如何想循环起来的话，如何写。同时如果B列的当前日期是否可以直接按照 ...

你直接发你要做的表，我给你做好！

xiaonankelly · 发表于 2021-7-28 17:17

65861954 发表于 2021-7-28 17:13
你直接发你要做的表，我给你做好！

看看这个把刚才的代码加入在里面

MOY838840554 · 发表于 2021-7-28 17:20

为什么用VBA，公式就可以。VBA要每天都刷新数据，B列才能=今天-A列

65861954 · 发表于 2021-7-28 17:30

你要的结果。

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

[求助] 用VBA以单元格的日期自己计算显示天数