如何根据黄色区域的两个日期段从住院报销登记表中提取G列报销时间中提取这个时间段的

qinhuan66

如何根据黄色区域的两个日期段从住院报销登记表中提取G列报销时间中提取这个时间段的姓名、姓别、就诊医院名称、医疗总费用、支付金额、报销日期到本工作表。谢谢
报销录入系统(求助）.rar (26.16 KB, 下载次数: 9)

2014-11-1 08:08 上传

点击文件名下载附件

TomingTang

1. Sub aa()
   
2. Dim Arr, Brr(1 To 10000, 1 To 7), drow%, a1, a2, k%
   
3. k = 1
   
4. With Worksheets("住院报销登记")
   
5.     drow = .[b65536].End(3).Row
   
6.     Arr = .Range("b5:g" & drow)
   
7. End With
   
8. With Worksheets("打印")
   
9.     a1 = .[f3].Value
   
10.     a2 = .[g3].Value
    
11.     For i = 1 To UBound(Arr)
    
12.         If Arr(i, 6) >= a1 And Arr(i, 6) <= a2 Then
    
13.             Brr(k, 1) = k
    
14.             For j = 1 To UBound(Arr, 2)
    
15.                 Brr(k, j + 1) = Arr(i, j)
    
16.             Next
    
17.             k = k + 1
    
18.         End If
    
19.     Next
    
20.     .Range("a5:g10000").ClearContents
    
21.     .[a5].Resize(k, 7) = Brr
    
22. End With
    
23.                
    
24. End Sub
    

复制代码

笑着...两年过去

1. Sub xx()
   
2.     Dim i%, j%, k%
   
3.     k = 5
   
4.     For i = 5 To Worksheets("住院报销登记").[a4].End(xlDown).Row
   
5.         If [g3] >= Worksheets("住院报销登记").Cells(i, 7) And Worksheets("住院报销登记").Cells(i, 7) >= [f3] Then
   
6.            For j = 2 To 7
   
7.                Cells(k, j) = Worksheets("住院报销登记").Cells(i, j)
   
8.            Next
   
9.            k = k + 1
   
10.         End If
    
11.     Next
    
12. End Sub
    

复制代码

笑着...两年过去

报销录入系统(求助）.rar (44.14 KB, 下载次数: 7)

2014-11-1 08:42 上传

点击文件名下载附件

qinhuan66

TomingTang 发表于 2014-11-1 08:35

非常感谢你的帮忙。谢谢，我想再了解一下。能否做到写一条打印本工作表代码，当点击打印按纽时打印也同时以日期为表名保存一份到右边。谢谢

kszcs

医保的系统

qinhuan66

朱荣兴 发表于 2014-11-1 10:30
这是附件，

谢谢你。打印代码很好用。但是打印并保存如果能另保存到新的表格就好了。谢谢