[已解决]求助如何根据医疗证号和疾病名称提取相应年份的金额。谢谢

qinhuan66

求助如何根据医疗证号和疾病名称提取相应年份的金额。谢谢

1、医疗证号在数据库C列；2、疾病名称在数据库BG列；3、报销年份在数据库BF列；需要提取的费用的数据库的BJ列
求助.rar (280.3 KB, 下载次数: 8)

2015-3-30 21:27 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-3-31 14:45

放在“手工计算一下”的按钮里，点一下就知道了。

1. Sub 提取年度费用()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheets("数据库").[a1].CurrentRegion
   
4.     With 录入系统
   
5.         zh = .TextBox998       '医疗证号
   
6.         jb = .ComboBox33     '疾病
   
7.         nf = .ComboBox34     '年份
   
8.         For i = 2 To UBound(arr)
   
9.             If arr(i, 3) = zh And arr(i, 59) = jb And arr(i, 58) = Val(nf) Then
   
10.                 If Not d.exists(arr(i, 1)) Then
    
11.                     s = s + arr(i, 62)
    
12.                     d(arr(i, 1)) = ""
    
13.                 End If
    
14.             End If
    
15.         Next
    
16.         .TextBox451 = s
    
17.     End With
    
18. End Sub
    

复制代码

跳转到最佳答案楼层

tgydslr

上附件，然后模拟结果
不要让人猜，才可以专心致之地想好办法

qinhuan66

不好意思忘记上结果了。我的意思是当输入医疗证号和选择疾病名称和报销年度，自动累加相应这个人的曾经报销费用（有记录的情况下）。谢谢
下图就是想要的结果。

qinhuan66

顶给更多的老师帮忙看下

qinhuan66

上班了继续顶给需要大家共同学习的人

grf1973

放在“手工计算一下”的按钮里，点一下就知道了。

1. Sub 提取年度费用()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheets("数据库").[a1].CurrentRegion
   
4.     With 录入系统
   
5.         zh = .TextBox998       '医疗证号
   
6.         jb = .ComboBox33     '疾病
   
7.         nf = .ComboBox34     '年份
   
8.         For i = 2 To UBound(arr)
   
9.             If arr(i, 3) = zh And arr(i, 59) = jb And arr(i, 58) = Val(nf) Then
   
10.                 If Not d.exists(arr(i, 1)) Then
    
11.                     s = s + arr(i, 62)
    
12.                     d(arr(i, 1)) = ""
    
13.                 End If
    
14.             End If
    
15.         Next
    
16.         .TextBox451 = s
    
17.     End With
    
18. End Sub
    

复制代码

grf1973

忘了上附件。