[已解决]求助如何根据医院名称（B2）和报表时间（F2）和B列的数据从数据库工作表提取到黄色...

qinhuan66 · 发表于 2014-11-11 16:48

本帖最后由 qinhuan66 于 2014-11-11 20:54 编辑

求助如何根据医院名称（B2）和报表时间（F2）和报表类别（J2）和B列的《湖山港市社会保险事业局、港口区社会保险事业局、湖山区社会保险事业局、江南市社会保险事业局、思上县社会保险事业局》从数据库工作表提取到黄色区域
一

123.zip (35.25 KB, 下载次数: 6)

qinhuan66 · 发表于 2014-11-11 17:20

刚才忘记了加一个报表类别来判断了。如果不加就碰到两个相同数据。提取不了。谢谢

QLZ0602 · 发表于 2014-11-11 19:08

qinhuan66 发表于 2014-11-11 17:20
刚才忘记了加一个报表类别来判断了。如果不加就碰到两个相同数据。提取不了。谢谢

可QQ 695982239

qinhuan66 · 发表于 2014-11-11 19:16

我的意思是根据这三个条件的值提取B4:B18的单位名称的相应数据到黄色区域(数据源在数据库工作表)谢谢

qinhuan66 · 发表于 2014-11-11 20:08

不好意思1楼附件更新后无法下载。现在此补上。

123.zip (35.25 KB, 下载次数: 25)

qinhuan66 · 发表于 2014-11-11 20:49

呵呵今天双11大家都忙着扫货

qinhuan66 · 发表于 2014-11-12 09:33

下面这条代码是直接提取全部数据的分不了城镇职工或城镇居民。如何修改真能实现根据B2、F2、J2的的条件来提取。

Sub tq()
Dim ar, ar1, ar2(), ar3(14, 6), i&, m%, k%, s$$$$
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ar = Sheets("数据库").Cells(1, 1).CurrentRegion
ar1 = Range("b4:j18")
ReDim ar2(1 To UBound(ar), 1 To 9)
For i = 2 To UBound(ar)
s = ar(i, 2) & "|" & ar(i, 5)
If d(s) = "" Then
k = k + 1: d(s) = k
ar2(k, 1) = ar(i, 3): ar2(k, 2) = ar(i, 5)
For m = 6 To 12
ar2(k, m - 3) = ar(i, m)
Next m
Else
For m = 6 To 12
ar2(k, m - 3) = ar2(k, m - 3) + ar(i, m)
Next m
End If
Next i
For i = 2 To UBound(ar1)
If ar1(i, 1) = "" Then ar1(i, 1) = ar1(i - 1, 1)
Next i
For i = 1 To UBound(ar1)
s = ar1(i, 1) & "|" & ar1(i, 2)
If d(s) <> "" Then
For m = 0 To 6
ar3(i - 1, m) = ar2(d(s), m + 3)
Next m
End If
Next i
[d4].Resize(15, 7) = ""
[d4].Resize(15, 7) = ar3
End Sub

复制代码

pengyx · 发表于 2014-11-12 12:28

搞定没有,如搞定了我就不下附件了

hwc2ycy · 发表于 2014-11-12 13:54

建议少用合并单元格，这无疑是给自己找事。

qinhuan66 · 发表于 2014-11-12 14:32

hwc2ycy 发表于 2014-11-12 13:54
建议少用合并单元格，这无疑是给自己找事。

你好版主如果不合并单元格又如何处理呢？谢谢

求助1.zip (34.26 KB, 下载次数: 5)

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