[已解决]如何用VBA从表1，根据绿色区域有值的起始日期和结束日期

qinhuan66 · 发表于 2014-1-15 16:58

本帖最后由 qinhuan66 于 2014-1-15 20:01 编辑

求助：如何用VBA从历年参保情况表，根据绿色区域数据的时间起到止，提取到基金易地转移单黄色区域内。注年份起始时间不固定，看参保时间，有时1995开始，有时2000年开始，但会顺着下来。谢谢
例子如：
1995年9月至 2011年4月共188个月

求助.rar (13.67 KB, 下载次数: 8)

爱疯 · 发表于 2014-1-15 17:15

range.find方法可以做，下班了

qinhuan66 · 发表于 2014-1-15 18:33

爱疯发表于 2014-1-15 17:15
range.find方法可以做，下班了

期待中。。。。

爱疯 · 发表于 2014-1-15 19:36

Sub Test()
Dim x, y, z
'范围
Set x = Range("b7:y31").Find("*", [b7], , , , xlNext)
Set y = Range("b7:y31").Find("*", [b7], , , , xlPrevious)
If Not x Is Nothing Then x = Cells(x.Row, 1) & Cells(4, x.Column) Else x = ""
If Not y Is Nothing Then y = Cells(y.Row, 1) & Cells(4, y.Column - 1) Else y = ""
z = x & "至" & y
'多少月
Sheet2.Range("g5") = z & " 共" & VBA.DateDiff("m", x, y) & "个月"
End Sub

我觉得应该是187个月，原因见测试.xls。

1.rar (24.34 KB, 下载次数: 14)

qinhuan66 · 发表于 2014-1-15 19:42

本帖最后由 qinhuan66 于 2014-1-15 19:53 编辑

爱疯发表于 2014-1-15 19:36
Sub Test()
Dim x, y, z
'范围

谢谢你版主。经测试很成功。不过你说的是187
经核实应该是188个月

爱疯 · 发表于 2014-1-15 20:20

qinhuan66 发表于 2014-1-15 19:42
谢谢你版主。经测试很成功。不过你说的是187
经核实应该是188个月

你希望的是：共有多少个月。例如2013-1-1至2013-2-1，共有2个月。
而工作表函数和vba函数：是间隔多少个月。例如2013-1-1至2013-2-1，间隔1个月。

所以，要是按你希望的效果，改下最后一句即可
Sheet2.Range("g5") = z & " 共" & VBA.DateDiff("m", x, y)+1 & "个月"

qinhuan66 · 发表于 2014-1-15 20:28

本帖最后由 qinhuan66 于 2014-1-15 20:29 编辑

爱疯发表于 2014-1-15 20:20
你希望的是：共有多少个月。例如2013-1-1至2013-2-1，共有2个月。
而工作表函数和vba函数：是间隔多少个 ...

版主经测试，没值时生成时会出错,能否做到没数据时提取过来为空白。谢谢

爱疯 · 发表于 2014-1-15 20:29

qinhuan66 发表于 2014-1-15 20:28
版主经测试，没值时生成时会出错

上传一下你这个出错的附件，我试试

qinhuan66 · 发表于 2014-1-15 20:31

爱疯发表于 2014-1-15 20:29
上传一下你这个出错的附件，我试试

根据绿色区域有值的起始日期和结束日期.rar (12.39 KB, 下载次数: 5)

爱疯 · 发表于 2014-1-15 20:35

根据绿色区域有值的起始日期和结束日期2.rar (12.55 KB, 下载次数: 6)

		自动登录	找回密码
密码			注册

[已解决]如何用VBA从表1，根据绿色区域有值的起始日期和结束日期

评分

评分

评分