[已解决]求助如何求出combobox费用合计的sub

qinhuan66

求助如何合计下面的项目费到指定文本框内，注项目名称顺序不固定。谢谢
求助.zip (310.15 KB, 下载次数: 3)

2015-3-4 15:34 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-3-4 16:36

1. Sub 计算()       '计算各类型的合计值
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     For i = 1 To 16
   
4.         x = Me.Controls("combobox" & i + 2).value
   
5.         If Len(x) > 0 Then
   
6.             Y = Val(Me.Controls("TextBox" & 18 * i).value)
   
7.             d(x) = d(x) + Y
   
8.         End If
   
9.     Next
   
10.     Me.TextBox401 = d("自费药品")
    
11.     Me.TextBox402 = d("自费项目")
    
12.     Me.TextBox405 = d("乙类药品")
    
13.     Me.TextBox406 = d("乙类项目")
    
14.     Me.TextBox407 = d("丙类项目")
    
15.     Me.TextBox408 = d("丙类材料")
    
16.     Me.TextBox409 = d("进口药品")
    
17.     Me.TextBox410 = d("进口材料")
    
18.    
    
19. End Sub

复制代码

跳转到最佳答案楼层

qinhuan66

下面那个代码grf1973老师帮写的其他附件的。但用到这里却不行。谁能指点一下吗？谢谢

1. Sub 计算()       '计算各类型的合计值
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     For i = 1 To 16
   
4.         x = Me.Controls("combobox" & i + 1).value
   
5.         If Len(x) > 0 Then
   
6.             Y = Val(Me.Controls("TextBox" & 16 * i - 1).value)
   
7.             d(x) = d(x) + Y
   
8.         End If
   
9.     Next
   
10.     Me.TextBox401 = d("自费药品")
    
11.     Me.TextBox402 = d("自费项目")
    
12.     Me.TextBox405 = d("乙类药品")
    
13.     Me.TextBox406 = d("乙类药品")
    
14.     Me.TextBox407 = d("丙类项目")
    
15.     Me.TextBox408 = d("丙类材料")
    
16.     Me.TextBox409 = d("进口药品")
    
17.     Me.TextBox410 = d("进口材料")
    
18.    
    
19. End Sub

复制代码

grf1973

1. Sub 计算()       '计算各类型的合计值
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     For i = 1 To 16
   
4.         x = Me.Controls("combobox" & i + 2).value
   
5.         If Len(x) > 0 Then
   
6.             Y = Val(Me.Controls("TextBox" & 18 * i).value)
   
7.             d(x) = d(x) + Y
   
8.         End If
   
9.     Next
   
10.     Me.TextBox401 = d("自费药品")
    
11.     Me.TextBox402 = d("自费项目")
    
12.     Me.TextBox405 = d("乙类药品")
    
13.     Me.TextBox406 = d("乙类项目")
    
14.     Me.TextBox407 = d("丙类项目")
    
15.     Me.TextBox408 = d("丙类材料")
    
16.     Me.TextBox409 = d("进口药品")
    
17.     Me.TextBox410 = d("进口材料")
    
18.    
    
19. End Sub

复制代码

grf1973

你的控件和循环变量 i 之间的关系没对应准确，改过来就好了

grf1973

另外你的代码中大量的控件赋值、操作，建议用循环完成

qinhuan66

grf1973 发表于 2015-3-4 16:40
另外你的代码中大量的控件赋值、操作，建议用循环完成

谢谢指点。那个我还没学会。能否指点一下。谢谢