[已解决]帮忙简化一下这个代码

443233785

初学VBA，只能这样子写代码，发现太复杂了，求帮忙简化一下代码，如下：

1. '數據輸入子程序
   
2. 
   
3. 
   
4. 
   
5. Sub data1()
   
6. 
   
7. '2/9/1/1
   
8. 
   
9. Sheet3.Range("e6") = TextBox07
   
10. 
    
11. Sheet3.Range("e7") = TextBox08 & "u" & " " & TextBox09 & "V"
    
12. 
    
13. Sheet3.Range("e8") = TextBox010
    
14. 
    
15. Sheet3.Range("e9") = TextBox011
    
16. 
    
17. Sheet3.Range("e10") = ComboBox012
    
18. 
    
19. '3/9/1/1
    
20. 
    
21. Sheet3.Range("f6") = TextBox013
    
22. 
    
23. Sheet3.Range("f7") = TextBox014 & "u" & " " & TextBox015 & "V"
    
24. 
    
25. Sheet3.Range("f8") = TextBox016
    
26. 
    
27. Sheet3.Range("f9") = TextBox017
    
28. 
    
29. Sheet3.Range("f10") = ComboBox018
    
30. 
    
31. '4/9/1/1
    
32. 
    
33. Sheet3.Range("g6") = TextBox019
    
34. 
    
35. Sheet3.Range("g7") = TextBox020 & "u" & " " & TextBox021 & "V"
    
36. 
    
37. Sheet3.Range("g8") = TextBox022
    
38. 
    
39. Sheet3.Range("g9") = TextBox023
    
40. 
    
41. Sheet3.Range("g10") = ComboBox024
    
42. 
    
43. '5/9/1/1
    
44. 
    
45. Sheet3.Range("h6") = TextBox025
    
46. 
    
47. Sheet3.Range("h7") = TextBox026 & "u" & " " & TextBox027 & "V"
    
48. 
    
49. Sheet3.Range("h8") = TextBox028
    
50. 
    
51. Sheet3.Range("h9") = TextBox029
    
52. 
    
53. Sheet3.Range("h10") = ComboBox030
    
54. 
    
55. '6/9/1/1
    
56. 
    
57. Sheet3.Range("i6") = TextBox031
    
58. 
    
59. Sheet3.Range("i7") = TextBox032 & "u" & " " & TextBox033 & "V"
    
60. 
    
61. Sheet3.Range("i8") = TextBox034
    
62. 
    
63. Sheet3.Range("i9") = TextBox035
    
64. 
    
65. Sheet3.Range("i10") = ComboBox036
    
66. 
    
67. '7/9/1/1
    
68. 
    
69. Sheet3.Range("j6") = TextBox037
    
70. 
    
71. Sheet3.Range("j7") = TextBox038 & "u" & " " & TextBox039 & "V"
    
72. 
    
73. Sheet3.Range("j8") = TextBox040
    
74. 
    
75. Sheet3.Range("j9") = TextBox041
    
76. 
    
77. Sheet3.Range("j10") = ComboBox042
    
78. 
    
79. '8/9/1/1
    
80. 
    
81. Sheet3.Range("k6") = TextBox043
    
82. 
    
83. Sheet3.Range("k7") = TextBox044 & "u" & " " & TextBox045 & "V"
    
84. 
    
85. Sheet3.Range("k8") = TextBox046
    
86. 
    
87. Sheet3.Range("k9") = TextBox047
    
88. 
    
89. Sheet3.Range("k10") = ComboBox048
    
90. 
    
91. '9/9/1/1
    
92. 
    
93. Sheet3.Range("l6") = TextBox049
    
94. 
    
95. Sheet3.Range("l7") = TextBox050 & "u" & " " & TextBox051 & "V"
    
96. 
    
97. Sheet3.Range("l8") = TextBox052
    
98. 
    
99. Sheet3.Range("l9") = TextBox053
    
100. 
     
101. Sheet3.Range("l10") = ComboBox054
     
102. 
     
103. '-----------------------------------------------
     
104. 
     
105. End Sub
     
106. 
     

复制代码

最佳答案

月排行榜 / 总排行榜

zjdh

2011-12-9 09:38

1. Sub TEST()
   
2. For I = 5 To 12
   
3.    Sheet3.Cells(6, I) = Controls("TextBox0" & 1 + (I - 4) * 6)
   
4.    Sheet3.Cells(7, I) = Controls("TextBox0" & 2 + (I - 4) * 6) & "u" & " " & Controls("TextBox0" & 3 + (I - 4) * 6) & "V"
   
5.    Sheet3.Cells(8, I) = Controls("TextBox0" & 4 + (I - 4) * 6)
   
6.    Sheet3.Cells(9, I) = Controls("TextBox0" & 5 + (I - 4) * 6)
   
7.    Sheet3.Cells(10, I) = Controls("ComboBox0" & 6 + (I - 4) * 6)
   
8. Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

研究研究

找不到有效的规律  尤其是  TextBox07。。。。。

菜鸟锐

太厉害了，能写那么长的代码！！！

zjdh

1. Sub TEST()
   
2. For I = 5 To 12
   
3.    Sheet3.Cells(6, I) = Controls("TextBox0" & 1 + (I - 4) * 6)
   
4.    Sheet3.Cells(7, I) = Controls("TextBox0" & 2 + (I - 4) * 6) & "u" & " " & Controls("TextBox0" & 3 + (I - 4) * 6) & "V"
   
5.    Sheet3.Cells(8, I) = Controls("TextBox0" & 4 + (I - 4) * 6)
   
6.    Sheet3.Cells(9, I) = Controls("TextBox0" & 5 + (I - 4) * 6)
   
7.    Sheet3.Cells(10, I) = Controls("ComboBox0" & 6 + (I - 4) * 6)
   
8. Next
   
9. End Sub

复制代码