根据日期期间所涉及的月份填入数据

kort20034 · 发表于 2024-6-26 02:26

yfan17 发表于 2024-6-26 01:57

公式是可以实现，而且公式也方便，我只是想学习研究一下VBA的方法

不过你的公式好像不行
下面这个公式是对的
=IF(ISERROR($D4*TEXT(MIN($C4,I$2)-MAX($B4,H$2),"0;;1;")),"",$D4*TEXT(MIN($C4,I$2)-MAX($B4,H$2),"0;;1;"))

kort20034 · 发表于 2024-6-26 02:31

yfan17 发表于 2024-6-26 02:02
例如，姓名1，开始月份是2月，2月的天数是29-8=21天，而结束月份是7月，7月的天数是8。
2024/2/29-2024/2/ ...

这个我刚发现搞错了，应该是2月份22天，7月份7天才对，唉。。。。不知道为什么我回帖要审核，只能看到你们发贴，我没办法回复！

ynzsvt · 发表于 2024-6-26 06:24

kort20034 发表于 2024-6-26 02:31
这个我刚发现搞错了，应该是2月份22天，7月份7天才对，唉。。。。不知道为什么我回帖要审核，只能看到你 ...

别人回帖也是要审核的，时间长短不一。

wang-way · 发表于 2024-6-26 07:52

ykcbf1100 · 发表于 2024-6-26 08:43

本帖最后由 ykcbf1100 于 2024-6-26 10:41 编辑

用ArrayList写一个。
更新一下，原代码有误。

ykcbf1100 · 发表于 2024-6-26 08:44

本帖最后由 ykcbf1100 于 2024-6-26 10:42 编辑

按月统计，代码已更新

Sub ykcbf() '//2024.6.26 按月统计
Set List = CreateObject("System.Collections.ArrayList")
[g4:r10000] = ""
r = Cells(Rows.Count, 1).End(3).Row
For i = 4 To r
rq1 = Cells(i, 2): t1 = Day(rq1)
rq2 = Cells(i, 3): t2 = Day(rq2)
yf = DateSerial(Year(rq1), Month(rq1), 1)
List.Clear
Do While yf <= rq2
If Not List.Contains(Month(yf)) Then List.Add Month(yf)
yf = DateAdd("m", 1, yf)
If Year(yf) > Year(rq2) Or (Year(yf) = Year(rq2) And Month(yf) > Month(rq2)) Then
Exit Do
End If
Loop
n = 6
For Each k In List
m = m + 1
If m = 1 Then t = t1
If m = List.Count Then t = t2
If m > 1 And m < List.Count Then t = 0
Cells(i, n + k) = Cells(i, 4) * (Cells(3, n + k).Value - t)
Next
Next
MsgBox "OK！"
End Sub

复制代码

kort20034 · 发表于 2024-6-26 09:58

EHGOOD 发表于 2024-6-25 23:51

感谢，感谢，学习了DateSerial这个函数

kort20034 · 发表于 2024-6-26 10:01

longwin 发表于 2024-6-26 00:18
友情提示：如果帮助到你，希望得到你的回复。

谢谢，你的对我来说是最能看明白的，真的看起来觉得不难的样子，自已弄的时候这不行那不行，唉。

kort20034 · 发表于 2024-6-26 10:04

wang-way 发表于 2024-6-26 07:52

我测试了一下好像结果不行，不过字典法我没能力看出啥问题

kort20034 · 发表于 2024-6-26 10:06

ykcbf1100 发表于 2024-6-26 08:44
按月统计。。。

谢谢，验证了一下结果不太对，代码用LIST，我也没能力那里有问题

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

[求助] 根据日期期间所涉及的月份填入数据