[已解决]初学VBA，帮忙看看以下代码为什么不能这样使用

443233785

1. Sub che()
   
2. 
   
3. x1 = UserForm1.CheckBox2
   
4. 
   
5. x2 = UserForm1.CheckBox3
   
6. 
   
7. X3 = UserForm1.CheckBox4
   
8. 
   
9. x4 = UserForm1.CheckBox5
   
10. 
    
11. x5 = UserForm1.CheckBox6
    
12. 
    
13. x6 = UserForm1.CheckBox7
    
14. 
    
15. x7 = UserForm1.CheckBox8
    
16. 
    
17. x8 = UserForm1.CheckBox9
    
18. 
    
19. 
    
20. 
    
21. If x1 = True Then
    
22. 
    
23. 
    
24. 
    
25. Call Module4.c1
    
26. 
    
27. 
    
28. 
    
29. ElseIf x1 = True And x2 = True Then
    
30. 
    
31. 
    
32. 
    
33. Call Module4.c2
    
34. 
    
35. 
    
36. 
    
37. ElseIf x1 = True And x2 = True And X3 = True Then
    
38. 
    
39. 
    
40. 
    
41. Call Module4.c3
    
42. 
    
43. 
    
44. 
    
45. ElseIf x1 = True And x2 = True And X3 = True And x4 = True Then
    
46. 
    
47. 
    
48. 
    
49. Call Module4.c4
    
50. 
    
51. 
    
52. 
    
53. ElseIf x1 = True And x2 = True And X3 = True And x4 = True And x5 = True Then
    
54. 
    
55. 
    
56. 
    
57. Call Module4.c5
    
58. 
    
59. 
    
60. 
    
61. ElseIf x1 = True And x2 = True And X3 = True And x4 = True And x5 = True And x6 = True Then
    
62. 
    
63. 
    
64. 
    
65. Call Module4.c6
    
66. 
    
67. 
    
68. 
    
69. ElseIf x1 = True And x2 = True And X3 = True And x4 = True And x5 = True And x6 = True _
    
70. 
    
71. And x7 = True Then
    
72. 
    
73. 
    
74. 
    
75. Call Module4.c7
    
76. 
    
77. 
    
78. 
    
79. ElseIf x1 = True And x2 = True And X3 = True And x4 = True And x5 = True And x6 = True _
    
80. 
    
81. And x7 = True And x8 = True Then
    
82. 
    
83. 
    
84. 
    
85. Call Module4.c8
    
86. 
    
87. 
    
88. 
    
89. ElseIf x1 = False And x2 = False And X3 = False And x4 = False And x5 = False And x6 = False _
    
90. 
    
91. And x7 = False And x8 = False Then
    
92. 
    
93. 
    
94. 
    
95. Call Module4.del
    
96. 
    
97. 
    
98. 
    
99. Else
    
100. 
     
101. 
     
102. 
     
103. MsgBox "請按順序選擇！"
     
104. 
     
105. 
     
106. 
     
107. End If
     
108. 
     
109. End Sub
     
110. 
     

复制代码

有没有优化的余地呢

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-28 22:23

Sub che()
    Dim x(1 To 8) As Boolean
    For i = 1 To 8
        x(i) = UserForm1.Controls("checkbox" & i + 1)
    Next

    i = 1
    While x(i)
        Application.Run "module4.c" & i
        i = i + 1
    Wend

    If i < 9 Then MsgBox "請按順序選擇！"
End Sub

跳转到最佳答案楼层

Zipall

Sub che()
    Dim x(1 To 8) As Boolean
    For i = 1 To 8
        x(i) = UserForm1.Controls("checkbox" & i + 1)
    Next

    i = 1
    While x(i)
        Application.Run "module4.c" & i
        i = i + 1
    Wend

    If i < 9 Then MsgBox "請按順序選擇！"
End Sub

443233785

Zipall 发表于 2011-12-28 22:23
Sub che()
    Dim x(1 To 8) As Boolean
    For i = 1 To 8

非常感谢，代码我慢慢研究