TextBox 相加问题

kenliu75

求老师帮忙修改一下代码 TextBox框输入数据时其它的Label不要一起显示 0 谢谢

liulang0808

1. Option Explicit
   
2. 
   
3. Public WithEvents texb As MSForms.TextBox
   
4. Private Sub texb_Change()
   
5.     Dim j As Integer, s
   
6. 
   
7.     With UserForm18
   
8.       
   
9. 
   
10.                 s = 0
    
11. 
    
12.         For j = 91 To 193 Step 17
    
13.             s = s + Val(.Controls("textbox" & j))
    
14.         Next j
    
15.         
    
16.         .Label222 = IIf(s = 0, "", s)
    
17.         s = 0
    
18. 
    
19.         For j = 92 To 194 Step 17
    
20.             s = s + Val(.Controls("textbox" & j))
    
21.         Next j
    
22.         .Label223 = IIf(s = 0, "", s)
    
23.        s = 0
    
24. 
    
25.         For j = 93 To 195 Step 17
    
26.             s = s + Val(.Controls("textbox" & j))
    
27.         Next j
    
28.         .Label224 = IIf(s = 0, "", s)
    
29.         s = 0
    
30. 
    
31.         For j = 94 To 196 Step 17
    
32.             s = s + Val(.Controls("textbox" & j))
    
33.         Next j
    
34.         .Label225 = IIf(s = 0, "", s)
    
35.         
    
36.         s = 0
    
37. 
    
38.         For j = 95 To 197 Step 17
    
39.             s = s + Val(.Controls("textbox" & j))
    
40.         Next j
    
41.         .Label226 = IIf(s = 0, "", s)
    
42.         s = 0
    
43. 
    
44.         For j = 96 To 198 Step 17
    
45.             s = s + Val(.Controls("textbox" & j))
    
46.         Next j
    
47.         .Label227 = IIf(s = 0, "", s)
    
48.       s = 0
    
49. 
    
50.         For j = 97 To 199 Step 17
    
51.             s = s + Val(.Controls("textbox" & j))
    
52.         Next j
    
53.         .Label228 = IIf(s = 0, "", s)
    
54.         
    
55.         s = 0
    
56. 
    
57.         For j = 98 To 200 Step 17
    
58.             s = s + Val(.Controls("textbox" & j))
    
59.         Next j
    
60.         .Label229 = IIf(s = 0, "", s)
    
61.         
    
62.         s = 0
    
63. 
    
64.         For j = 99 To 201 Step 17
    
65.             s = s + Val(.Controls("textbox" & j))
    
66.         Next j
    
67.         .Label230 = IIf(s = 0, "", s)
    
68.         
    
69.         s = 0
    
70. 
    
71.         For j = 100 To 202 Step 17
    
72.             s = s + Val(.Controls("textbox" & j))
    
73.         Next j
    
74.         .Label231 = IIf(s = 0, "", s)
    
75.         s = 0
    
76. 
    
77.         For j = 101 To 203 Step 17
    
78.             s = s + Val(.Controls("textbox" & j))
    
79.         Next j
    
80.         .Label232 = IIf(s = 0, "", s)
    
81.         s = 0
    
82. 
    
83. 
    
84. 
    
85.         
    
86.         
    
87.    End With
    
88. End Sub

复制代码

liulang0808

附件内容供参考。。。。。。

山菊花

供参考。