[已解决]帮忙改一下这个代码，很有规律

443233785

1. Sub P1()
   
2. Dim x As Integer
   
3. Call Module3.che
   
4. 
   
5. For x = 3 To 7
   
6. Range(Cells(6, 4), Cells(x + 3, 4)) = UserForm1.T1
   
7. 
   
8. Range(Cells(7, 4), Cells(x + 3, 4)) = UserForm1.T2
   
9. 
   
10. Range(Cells(8, 4), Cells(x + 3, 4)) = UserForm1.T3
    
11. 
    
12. Range(Cells(9, 4), Cells(x + 3, 4)) = UserForm1.T4
    
13. 
    
14. Range(Cells(10, 4), Cells(x + 3, 4)) = UserForm1.T5
    
15. 
    
16. 
    
17. 
    
18. Range(Cells(6, 5), Cells(x + 3, 5)) = UserForm1.T6
    
19. 
    
20. Range(Cells(7, 5), Cells(x + 3, 5)) = UserForm1.T7
    
21. 
    
22. Range(Cells(8, 5), Cells(x + 3, 5)) = UserForm1.T8
    
23. 
    
24. Range(Cells(9, 5), Cells(x + 3, 5)) = UserForm1.T9
    
25. 
    
26. Range(Cells(10, 5), Cells(x + 3, 5)) = UserForm1.T10
    
27. 
    
28. 
    
29. 
    
30. Range(Cells(6, 6), Cells(x + 3, 6)) = UserForm1.T11
    
31. 
    
32. Range(Cells(7, 6), Cells(x + 3, 6)) = UserForm1.T12
    
33. 
    
34. Range(Cells(8, 6), Cells(x + 3, 6)) = UserForm1.T13
    
35. 
    
36. Range(Cells(9, 6), Cells(x + 3, 6)) = UserForm1.T14
    
37. 
    
38. Range(Cells(10, 6), Cells(x + 3, 6)) = UserForm1.T15
    
39. 
    
40. 
    
41. 
    
42. Range(Cells(6, 7), Cells(x + 3, 7)) = UserForm1.T16
    
43. 
    
44. Range(Cells(7, 7), Cells(x + 3, 7)) = UserForm1.T17
    
45. 
    
46. Range(Cells(8, 7), Cells(x + 3, 7)) = UserForm1.T18
    
47. 
    
48. Range(Cells(9, 7), Cells(x + 3, 7)) = UserForm1.T19
    
49. 
    
50. Range(Cells(10, 7), Cells(x + 3, 7)) = UserForm1.T20
    
51. 
    
52. 
    
53. 
    
54. Range(Cells(6, 8), Cells(x + 3, 8)) = UserForm1.T21
    
55. 
    
56. Range(Cells(7, 8), Cells(x + 3, 8)) = UserForm1.T22
    
57. 
    
58. Range(Cells(8, 8), Cells(x + 3, 8)) = UserForm1.T23
    
59. 
    
60. Range(Cells(9, 8), Cells(x + 3, 8)) = UserForm1.T24
    
61. 
    
62. Range(Cells(10, 8), Cells(x + 3, 8)) = UserForm1.T25
    
63. 
    
64. 
    
65. 
    
66. Range(Cells(6, 9), Cells(x + 3, 9)) = UserForm1.T26
    
67. 
    
68. Range(Cells(7, 9), Cells(x + 3, 9)) = UserForm1.T27
    
69. 
    
70. Range(Cells(8, 9), Cells(x + 3, 9)) = UserForm1.T28
    
71. 
    
72. Range(Cells(9, 9), Cells(x + 3, 9)) = UserForm1.T29
    
73. 
    
74. Range(Cells(10, 9), Cells(x + 3, 9)) = UserForm1.T30
    
75. 
    
76. 
    
77. Range(Cells(6, 10), Cells(x + 3, 10)) = UserForm1.T31
    
78. 
    
79. Range(Cells(7, 10), Cells(x + 3, 10)) = UserForm1.T32
    
80. 
    
81. Range(Cells(8, 10), Cells(x + 3, 10)) = UserForm1.T33
    
82. 
    
83. Range(Cells(9, 10), Cells(x + 3, 10)) = UserForm1.T34
    
84. 
    
85. Range(Cells(10, 10), Cells(x + 3, 10)) = UserForm1.T35
    
86. 
    
87. 
    
88. 
    
89. Range(Cells(6, 11), Cells(x + 3, 11)) = UserForm1.T36
    
90. 
    
91. Range(Cells(7, 11), Cells(x + 3, 11)) = UserForm1.T37
    
92. 
    
93. Range(Cells(8, 11), Cells(x + 3, 11)) = UserForm1.T38
    
94. 
    
95. Range(Cells(9, 11), Cells(x + 3, 11)) = UserForm1.T39
    
96. 
    
97. Range(Cells(10, 11), Cells(x + 3, 11)) = UserForm1.T40
    
98. 
    
99. 
    
100. 
     
101. Range(Cells(6, 12), Cells(x + 3, 12)) = UserForm1.T41
     
102. 
     
103. Range(Cells(7, 12), Cells(x + 3, 12)) = UserForm1.T42
     
104. 
     
105. Range(Cells(8, 12), Cells(x + 3, 12)) = UserForm1.T43
     
106. 
     
107. Range(Cells(9, 12), Cells(x + 3, 12)) = UserForm1.T44
     
108. 
     
109. Range(Cells(10, 12), Cells(x + 3, 12)) = UserForm1.T45
     
110. 
     
111. Next
     
112. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-28 23:33

443233785 发表于 2011-12-28 23:13
请看附件，谢谢

改3处,我用红色标记出

    For x = 3 To 7
        For j = 4 To 12
            For i = 6 To 10
                t = t + 1
                Range(Cells(i, j), Cells(x + 3, j)) = UserForm1.Controls("T" & t)
            Next
        Next
        t = 0
    Next

跳转到最佳答案楼层

Zipall

Sub P1()
    Dim x As Integer, i As Integer, j As Integer, t As Integer
    Call Module3.che

    For x = 3 To 7
        For i = 6 To 10
            For j = 4 To 12
                t = t + 1
                Range(Cells(i, j), Cells(x + 3, j)) = UserForm1.Controls("T" & i)
            Next
        Next
        t = 0
    Next

End Sub

windimi007

Zipall 发表于 2011-12-28 22:07
Sub P1()
    Dim x As Integer, i As Integer, j As Integer, t As Integer
    Call Module3.che

猫哥，问个问题：

1. UserForm1.T1

复制代码

表示什么？{:4512:}

Zipall

windimi007 发表于 2011-12-28 22:17
猫哥，问个问题：

我猜T1是个textbox的name.

windimi007

Zipall 发表于 2011-12-28 22:21
我猜T1是个textbox的name.

猫哥应该猜得没错！{:912:}

443233785

windimi007 发表于 2011-12-28 22:26
猫哥应该猜得没错！

没错，是的            

443233785

Zipall 发表于 2011-12-28 22:07
Sub P1()
    Dim x As Integer, i As Integer, j As Integer, t As Integer
    Call Module3.che

代码好像不行喔，您再仔细看看呢，运行结果不一样

Zipall

443233785 发表于 2011-12-28 23:01
代码好像不行喔，您再仔细看看呢，运行结果不一样

把for i  for j 两句交换下顺序.
或者给个供测试的文件先.

443233785

Zipall 发表于 2011-12-28 23:07
把for i  for j 两句交换下顺序.
或者给个供测试的文件先.

大                                                                                               

Zipall

443233785 发表于 2011-12-28 23:13
请看附件，谢谢

改3处,我用红色标记出

    For x = 3 To 7
        For j = 4 To 12
            For i = 6 To 10
                t = t + 1
                Range(Cells(i, j), Cells(x + 3, j)) = UserForm1.Controls("T" & t)
            Next
        Next
        t = 0
    Next