用vba实现自定义月份范围汇总数据

adminsong

现在的表格在选择想要的开始日期和结束日期后，可以自动按找自然月汇总数据，现在想把月份的范围改为上月的26日至本月的25日为一个自然月，该如何修改代码。

3190496160

Private Sub UserForm_Activate()
Me.txt开始日 = Format(DateSerial(Year(Date), Month(Date) - 1, 26), "yyyy-m-d")
Me.txt终了日 = Format(DateSerial(Year(Date), Month(Date), 25), "yyyy-m-d")

End Sub

wxxydl

你这个做很好呀，我只在原代码上改了一下

adminsong

wxxydl 发表于 2023-11-20 21:04
你这个做很好呀，我只在原代码上改了一下

这不是我做的，是在咱们论坛下载的，我试了一下，和原来的一样，没有按25号截至

adminsong

3190496160 发表于 2023-11-20 20:55
Private Sub UserForm_Activate()
Me.txt开始日 = Format(DateSerial(Year(Date), Month(Date) - 1, 26) ...

这个代码只是把日期窗体的日期改了，结果没变

wxxydl

adminsong

wxxydl 发表于 2023-11-20 21:28

可能我没说清楚，开始日期和结束日期没有问题，我是想把合计行放在每个月的25号之后，就像是我后面的预计效果中显示的那样，本月合计放在25号和26号之间

wxxydl

是这意思 吧  给你改了

adminsong

wxxydl 发表于 2023-11-20 22:37
是这意思 吧  给你改了

谢谢，就是这个效果，