主题：[求助]计算数据后填入一个单元格

参考这个做法

http://www.foxtable.com/webhelp/scr/0681.htm

日期条件的合成，这样写，比如上1个月

Dim d As Date = Date.today
d = new Date(d.year, d.month, 1)
Dim d1 As Date = d.AddMonths(-1)
Dim d2 As Date = d.AddMonths(0)
Dim filter = "日期 >= #" & d1 & "# and 日期 < #" & d2 & "#"
msgbox(filter)