ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 160|回复: 11

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-2-12 17:22 | 显示全部楼层 |阅读模式
从附件中的录入页面进行数据输入,写到数据库中,我们是每月25日结账,26日即为下个月,到年末12月26日即为下一年度的1月,自然年月与结算年月用VBA代码怎么写,达到如下效果图,求各位老师帮忙,多谢多谢!

要达到的效果

要达到的效果

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

58.94 KB, 下载次数: 5

财务结算年月转换

TA的精华主题

TA的得分主题

发表于 2019-2-12 17:53 | 显示全部楼层
  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
复制代码

TA的精华主题

TA的得分主题

发表于 2019-2-12 17:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-2-12 18:43 | 显示全部楼层
  1. =year(EDATE(A2-25,1))
复制代码


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

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-12 19:58 | 显示全部楼层

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

TA的精华主题

TA的得分主题

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

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

评分

参与人数 2鲜花 +5 收起 理由
YZC51 + 3 感谢帮助
jinliang139 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-12 21:26 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-2-13 13:43 | 显示全部楼层
本帖最后由 YZC51 于 2019-2-13 15:49 编辑

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

评分

参与人数 1鲜花 +2 收起 理由
jinliang139 + 2 太强大了

查看全部评分

TA的精华主题

TA的得分主题

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

请参考!!!

TA的精华主题

TA的得分主题

发表于 2019-2-13 17:27 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-2-20 20:02 , Processed in 0.105128 second(s), 20 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表