VBA日期范围内求和

LWY003

各位老师好，想请教一下，如何用VBA在日期范围内对相同内容数据进行求和？

蓝桥玄霜

求和的例子：

shiruiqiang

sql语句处理

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.6
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = [a1].Resize(r, 4)
   
4.     rq1 = [g2]: rq2 = [g3]
   
5.     For i = 3 To UBound(arr)
   
6.         If arr(i, 4) >= rq1 And arr(i, 4) <= rq2 Then
   
7.             p1 = p1 + IIf(arr(i, 2) = "收入", arr(i, 3), 0)
   
8.             p2 = p2 + IIf(arr(i, 2) = "支出", arr(i, 3), 0)
   
9.         End If
   
10.     Next
    
11.     [g4] = p1
    
12.     [g5] = p2
    
13. End Sub
    

复制代码

shiruiqiang

字典处理

LWY003

ykcbf1100 发表于 2024-4-6 10:00
参与一下。。。

恩师的代码果然强大，非常值得肯定和敬佩！非常感谢！

LWY003

蓝桥玄霜 发表于 2024-4-6 09:56
求和的例子：

蓝桥导师的代码简短，容易看得明白，不愧是我人生的大导师，非常感谢导师的分享！

LWY003

shiruiqiang 发表于 2024-4-6 10:03
字典处理

感谢shiruiqiang老师的亲力亲唯，而且代码一下子就能看得明明白白，非常值得尊敬，非常感谢！不胜感激！

LWY003

shiruiqiang 发表于 2024-4-6 09:56
sql语句处理

因为我的表格里也有用这个数据库的，所以再用这个就出现错误等现象，所以不得不用另外一种方法，非常感谢老师的支持！谢谢！