[已解决]现只有时间段提取想增加根据多性别、类别、就诊医院名称怎么编写。谢谢

qinhuan66

求助如何用VBA根据鲜绿色区域的值提取住院报销登记工作表相应的数据到黄色区域。谢谢
鲜绿色区域的值不固定。

支付清单1.rar (36.59 KB, 下载次数: 18)

2014-11-2 19:01 上传

点击文件名下载附件



下面的代码只是根据报销时间段提取，没有现在的性别、类别、就诊医院名称。现想增加多性别、类别、就诊医院名称的值来提取。谢谢

1. Sub 生成打印数据()
   
2. Dim i%, j%, k%
   
3. k = 4
   
4. For i = 5 To Worksheets("住院报销登记").[A4].End(xlDown).Row
   
5. If n = 35 Then n = 0: x = x + 1: k = 40 * x + 4
   
6. If [H3] >= Worksheets("住院报销登记").Cells(i, 8) And Worksheets("住院报销登记").Cells(i, 8) >= [G3] Then
   
7. n = n + 1: k = k + 1
   
8. For j = 2 To 8
   
9. Cells(k, j) = Worksheets("住院报销登记").Cells(i, j)
   
10. Next
    
11. End If
    
12. Next
    
13. End Sub
    

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-11-2 19:17

既然没有用SQL的话。

1. Sub 生成打印数据()
   
2.     Dim i%, j%, k%
   
3.     k = 4
   
4.     Dim sht As Worksheet
   
5.     Set sht = Worksheets("住院报销登记")
   
6.     With sht
   
7.         For i = 5 To .[A4].End(xlDown).Row
   
8.             If n = 35 Then n = 0: x = x + 1: k = 40 * x + 4
   
9.             If [H3] >= .Cells(i, 8) And .Cells(i, 8) >= [G3] Then
   
10.                 If .Cells(i, 3) = [j3] Then
    
11.                     If .Cells(i, 4) = [k3] Then
    
12.                         If .Cells(i, 5) = [l3] Then
    
13.                             n = n + 1: k = k + 1
    
14.                             For j = 2 To 8
    
15.                                 Cells(k, j) = Worksheets("住院报销登记").Cells(i, j)
    
16.                             Next
    
17.                         End If
    
18.                     End If
    
19.                 End If
    
20.             End If
    
21.         Next
    
22.     End With
    
23. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

SQL查询时，动态组合生成条件字段。

楼主这是要按条件过虑吧？

hwc2ycy

既然没有用SQL的话。

1. Sub 生成打印数据()
   
2.     Dim i%, j%, k%
   
3.     k = 4
   
4.     Dim sht As Worksheet
   
5.     Set sht = Worksheets("住院报销登记")
   
6.     With sht
   
7.         For i = 5 To .[A4].End(xlDown).Row
   
8.             If n = 35 Then n = 0: x = x + 1: k = 40 * x + 4
   
9.             If [H3] >= .Cells(i, 8) And .Cells(i, 8) >= [G3] Then
   
10.                 If .Cells(i, 3) = [j3] Then
    
11.                     If .Cells(i, 4) = [k3] Then
    
12.                         If .Cells(i, 5) = [l3] Then
    
13.                             n = n + 1: k = k + 1
    
14.                             For j = 2 To 8
    
15.                                 Cells(k, j) = Worksheets("住院报销登记").Cells(i, j)
    
16.                             Next
    
17.                         End If
    
18.                     End If
    
19.                 End If
    
20.             End If
    
21.         Next
    
22.     End With
    
23. End Sub
    

复制代码

qinhuan66

hwc2ycy 发表于 2014-11-2 19:17
既然没有用SQL的话。

版主。经我测试一下如果像以下任何一个单元格为空都不能提取。如下图：谢谢

hwc2ycy

qinhuan66 发表于 2014-11-3 08:24
版主。经我测试一下如果像以下任何一个单元格为空都不能提取。如下图：谢谢

也就是说你的条件字段三个必填，如果有一个是空就退出对吧？
在筛选前直接来个IF判断就可以了。

qinhuan66

hwc2ycy 发表于 2014-11-3 09:25
也就是说你的条件字段三个必填，如果有一个是空就退出对吧？
在筛选前直接来个IF判断就可以了。

我的意思是根据这几个单元格的条件来判断。只是条件查找的意思。例如只有性别的那栏有值为男，其它为空就提取所有的男性的人员。相反如果只有时间段，其它为空就取这个时间段的人员。类别和就诊医院名称也一样。谢谢

hwc2ycy

qinhuan66 发表于 2014-11-3 09:28
我的意思是根据这几个单元格的条件来判断。只是条件查找的意思。例如只有性别的那栏有值为男，其它为空就 ...

已经在新贴里回复了。