采用VBA 每日数据更新自自动计算

ling562 · 发表于 2019-10-18 21:45

明细数据每日都更新，然后根据姓名显示出更新后最后交易日期，与今天日期差额几天。

oxnnd · 发表于 2019-10-18 21:48

根据姓名那也就是姓名列是已知的不用公式做出来是吗？

ling562 · 发表于 2019-10-18 21:50

oxnnd 发表于 2019-10-18 21:48
根据姓名那也就是姓名列是已知的不用公式做出来是吗？

是的。因为数据会很多。需要根据姓名显示最后日期，和今天差额。明细表每日都会更新数据，然后显示每日自动更新数据

oxnnd · 发表于 2019-10-18 21:52

今天差额计算逻辑是啥？

ling562 · 发表于 2019-10-18 21:57

oxnnd 发表于 2019-10-18 21:52
今天差额计算逻辑是啥？

日期。例如最后交易时间为10月5日，与今天相差13天

oxnnd · 发表于 2019-10-18 21:59

明白了
最后日期：=LOOKUP(A2,明细!B:B,明细!A:A)
与今日差额天数：=today()-B2

ling562 · 发表于 2019-10-18 22:00

oxnnd 发表于 2019-10-18 21:59
明白了
最后日期：=LOOKUP(A2,明细!B:B,明细!A:A)
与今日差额天数：=today()-B2

谢谢！我要的是不函数方式本现出来。

oxnnd · 发表于 2019-10-18 22:08

这是函数版块如果需要VBA帮助请在VBA版块发帖求助

ling562 · 发表于 2019-10-18 22:19

oxnnd 发表于 2019-10-18 22:08
这是函数版块如果需要VBA帮助请在VBA版块发帖求助

新人没注意版块。谢谢！

999110022 · 发表于 2019-10-19 02:28

试试这个看看，在我电脑上运行没有问题。
统计第二张表(明细)里面出现的人的名字以及最后一次出现的日期，把统计好的数据填写到第一张表里面。
第一张表(显示)要在C列单元格里面填写公式: today()-B2，并且把单元格格式改为数值类型，就可以显示出计算结果了。

Sub dateCal()
Dim dic As Object
Dim name As String
Set dic = CreateObject("scripting.Dictionary")
For i = 3 To Sheets(2).Range("b65536").End(xlUp).Row
name = Sheets(2).Range("b" & i).Value
If name <> "" Then
If dic.exists(name) Then
dic.Item(name) = Sheets(2).Range("a" & i).Value
Else
dic(name) = Sheets(2).Range("a" & i).Value
End If
End If
Next i
k = dic.keys
h = dic.items
Sheets(1).Range(Cells(2, 1), Cells(1 + dic.Count, 1)).Value = Application.Transpose(k)
Sheets(1).Range(Cells(2, 2), Cells(1 + dic.Count, 2)).Value = Application.Transpose(h)
End Sub

复制代码

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

[求助] 采用VBA 每日数据更新自自动计算