[已解决]这段代码有办法优化吗？

443233785

1. Sub in11()
   
2. x2 = TextBox2
   
3. Select Case x2
   
4. Case Is = 1
   
5. [E6] = Locate2
   
6. [E7] = spec2
   
7. [E8] = size2
   
8. [E9] = Series2
   
9. [E10] = Part2
   
10. 
    
11. 
    
12. 
    
13. Case Is = 2
    
14. [e6:f6] = Locate2
    
15. [e7:f7] = spec2
    
16. [e8:f8] = size2
    
17. [e9:f9] = Series2
    
18. [e10:f10] = Part2
    
19. 
    
20. 
    
21. 
    
22. 
    
23. Case Is = 3
    
24. [e6:g6] = Locate2
    
25. [e7:g7] = spec2
    
26. [e8:g8] = size2
    
27. [e9:g9] = Series2
    
28. [e10:g10] = Part2
    
29. 
    
30. Case Is = 4
    
31. [e6:h6] = Locate2
    
32. [e7:h7] = spec2
    
33. [e8:h8] = size2
    
34. [e9:h9] = Series2
    
35. [e10:h10] = Part2
    
36. 
    
37. Case Is = 5
    
38. [e6:i6] = Locate2
    
39. [e7:i7] = spec2
    
40. [e8:i8] = size2
    
41. [e9:i9] = Series2
    
42. [e10:i10] = Part2
    
43. 
    
44. Case Is >= 6
    
45. 
    
46. Call max
    
47. 
    
48. End Select
    
49. 
    
50. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

mxg825

2011-12-11 13:51

1. Sub in11()
   
2. X2 = TextBox2
   
3. If X2 < 6 Then
   
4.     Range(Cells(6, 5), Cells(6, X2 + 4)) = Locate2
   
5.     Range(Cells(7, 5), Cells(7, X2 + 4)) = spec2
   
6.     Range(Cells(8, 5), Cells(8, X2 + 4)) = size2
   
7.     Range(Cells(9, 5), Cells(9, X2 + 4)) = Series2
   
8.     Range(Cells(10, 5), Cells(10, X2 + 4)) = Part2
   
9. Else
   
10.     Call Max
    
11. End If
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

wayy

将你的功能要求发一下，未必你的代码思路就是最佳的。

mxg825

1. Sub in11()
   
2. X2 = TextBox2
   
3. If X2 < 6 Then
   
4.     Range(Cells(6, 5), Cells(6, X2 + 4)) = Locate2
   
5.     Range(Cells(7, 5), Cells(7, X2 + 4)) = spec2
   
6.     Range(Cells(8, 5), Cells(8, X2 + 4)) = size2
   
7.     Range(Cells(9, 5), Cells(9, X2 + 4)) = Series2
   
8.     Range(Cells(10, 5), Cells(10, X2 + 4)) = Part2
   
9. Else
   
10.     Call Max
    
11. End If
    
12. End Sub
    

复制代码

mxg825

1. Sub in11()
   
2. X2 = TextBox2
   
3. If X2 < 6 Then
   
4.     Range("E6").Resize(, X2) = Locate2
   
5.     Range("E7").Resize(, X2) = spec2
   
6.     Range("E8").Resize(, X2) = size2
   
7.     Range("E9").Resize(, X2) = Series2
   
8.     Range("E10").Resize(, X2) = Part2
   
9. Else
   
10.     Call Max
    
11. End If
    
12. End Sub
    

复制代码