vba查找Excel中时间单元格

显示全部楼层 · 2011-8-10 02:12:31

就是查找Excel文档中所有时间的单元格，将时间加上10个月好用就给分！！50分

千问 · 2011-8-10 02:12:31

你的要求不充分，不是很完整：1、首先，应该是查找“日期”单元格。2、加上10个月，如果你的日期中是31日，加上10个月后，这个月只有30天，怎样处理。还有就是加到为2月份怎样处理。是不是可以不考虑日期中的“日”，只当做为每月的1日。请补充解释并追问。...

千问 · 2011-8-10 02:12:31

VBA中判断数据类型为日期（时间）用IsDate函数，求加上一段时间间隔后的时间用DateAdd()函数。查找全部、加十个月都不成问题。问题是你是要把结果保存到哪里？是在单元格中就地保存（修改）吗？...

千问 · 2011-8-10 02:12:31

Sub dfs()Dim bbFor Each aa In ActiveSheet.UsedRangebb = aa.ValueIf bb"" ThenIf IsDate(bb) = True Thenaa.Value = DateAdd("m", 1, bb)End IfEnd IfNextEnd Sub...