【求助】自然年月与结算年月用VBA代码怎么转换

jinliang139

从附件中的录入页面进行数据输入，写到数据库中，我们是每月25日结账，26日即为下个月，到年末12月26日即为下一年度的1月，自然年月与结算年月用VBA代码怎么写，达到如下效果图，求各位老师帮忙，多谢多谢！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("数据库")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a2:m" & r)
   
7.     For i = 1 To UBound(arr)
   
8.       If Day(arr(i, 1)) > 25 Then
   
9.         rq = DateAdd("m", 1, arr(i, 1))
   
10.       Else
    
11.         rq = arr(i, 1)
    
12.       End If
    
13.       arr(i, 11) = Year(rq) & "年"
    
14.       arr(i, 12) = Month(rq) & "月"
    
15.     Next
    
16.     .Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
17.   End With
    
18. End Sub
    

复制代码

chxw68

简单问题。

micch

1. =year(EDATE(A2-25,1))

复制代码

edate转换财务月份，year和month就取得年和月了

jinliang139

chxw68 发表于 2019-2-12 17:53
简单问题。

非常感谢老师的帮助，达到了我理想中的效果。还想麻烦老师一下，在循环中是检测整个数据表，我们每年大概能有一万多条记录吧，这样速度会很慢了吧，能不能对所录入车辆相关项目的时间进行转换，例如： 我录入5台车的燃油费，只转换这5台车的日期，这样速度能快点吧

chxw68

jinliang139 发表于 2019-2-12 19:58
非常感谢老师的帮助，达到了我理想中的效果。还想麻烦老师一下，在循环中是检测整个数据表，我们每年大概 ...

1万多数据也就零点几秒吧，不会慢的。

jinliang139

micch 发表于 2019-2-12 18:43
edate转换财务月份，year和month就取得年和月了

多谢多谢！！

YZC51

请参考更新下
结算年月511.rar (65.96 KB, 下载次数: 9)

2019-2-13 15:49 上传

点击文件名下载附件

YZC51

jinliang139 发表于 2019-2-12 19:58
非常感谢老师的帮助，达到了我理想中的效果。还想麻烦老师一下，在循环中是检测整个数据表，我们每年大概 ...

请参考！！！

YZC51

建议楼主，下载我上传的附件，会有意外惊喜的！