[已解决]请老师帮助编写代码

ymq123

请老师帮助编写代码，说明在附件里。谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-13 20:28

你能把这个数据规律找出来，不错呀。

1. Private Sub CommandButton1_Click()
   
2.     Dim x As Long, y As Long
   
3.     For x = 0 To 1
   
4.         For y = 0 To 2
   
5.             'Debug.Print "cells(" & 5 + 3 * y & "," & 1 + x * 5 & ")=cells(" & 1 + 1 * y & ","; &O1 + x * 5&; ")+cells("; &O1 + 1 * y & ","; &O2 + x * 5&; ")"
   
6.             'Debug.Print "cells(" & 6 + 3 * y & "," & 1 + x * 5 & ")=cells(" & 1 + 1 * y & ","; &O1 + x * 5&; ")*cells("; &O1 + 1 * y & ","; &O2 + x * 5&; ")"
   
7.             Cells(5 + 3 * y, 1 + x * 5) = Cells(1 + 1 * y, 1 + x * 5) + Cells(1 + 1 * y, 2 + x * 5)
   
8.             Cells(6 + 3 * y, 1 + x * 5) = Cells(1 + 1 * y, 1 + x * 5) * Cells(1 + 1 * y, 2 + x * 5)
   
9.         Next y
   
10.     Next x
    
11. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim x, y, z As Long
   
3. 
   
4.     For x = 0 To 1
   
5.         For y = 0 To 2
   
6.             For z = 0 To 2
   
7.                 Debug.Print "cells(" & 5 + 3 * y & "," & 1 + x * 5 & ")=cells(" & 1 + 1 * z&; ","; &O1 + x * 5&; ")+cells("; &O1 + 1 * z&; ","; &O2 + x * 5&; ")"
   
8.                 Debug.Print "cells(" & 6 + 3 * y & "," & 1 + x * 5 & ")=cells(" & 1 + 1 * z&; ","; &O1 + x * 5&; ")*cells("; &O1 + 1 * z&; ","; &O2 + x * 5&; ")"
   
9.                 Cells(5 + 3 * y, 1 + x * 5) = Cells(1 + 1 * z, 1 + x * 5) + Cells(1 + 1 * z, 2 + x * 5)
   
10.                 Cells(6 + 3 * y, 1 + x * 5) = Cells(1 + 1 * z, 1 + x * 5) * Cells(1 + 1 * z, 2 + x * 5)
    
11. 
    
12.             Next z
    
13.         Next y
    
14.     Next x
    
15. End Sub

复制代码

你看立即窗口的输出再找问题出在哪。

hwc2ycy

Z值不需要循环了，你看看结果对不对，我看的立即窗口的输出，应该差不多了。

1. Private Sub CommandButton1_Click()
   
2.     Dim x, y, z As Long
   
3.     For x = 0 To 1
   
4.         For y = 0 To 2
   
5.                 Debug.Print "cells(" & 5 + 3 * y & "," & 1 + x * 5 & ")=cells(" & 1 + 1 * z&; ","; &O1 + x * 5&; ")+cells("; &O1 + 1 * z&; ","; &O2 + x * 5&; ")"
   
6.                 Debug.Print "cells(" & 6 + 3 * y & "," & 1 + x * 5 & ")=cells(" & 1 + 1 * z&; ","; &O1 + x * 5&; ")*cells("; &O1 + 1 * z&; ","; &O2 + x * 5&; ")"
   
7.                 Cells(5 + 3 * y, 1 + x * 5) = Cells(1 + 1 * z, 1 + x * 5) + Cells(1 + 1 * z, 2 + x * 5)
   
8.                 Cells(6 + 3 * y, 1 + x * 5) = Cells(1 + 1 * z, 1 + x * 5) * Cells(1 + 1 * z, 2 + x * 5)
   
9.         Next y
   
10.     Next x
    
11. End Sub

复制代码

hwc2ycy

5楼的不对，2，3没循环到，还不行。

hwc2ycy

OK了。

1. Private Sub CommandButton1_Click()
   
2.     Dim x, y, z As Long
   
3.     For x = 0 To 1
   
4.         For y = 0 To 2
   
5.                 Debug.Print "cells(" & 5 + 3 * y & "," & 1 + x * 5 & ")=cells(" & 1 + 1 * y & ","; &O1 + x * 5&; ")+cells("; &O1 + 1 * y & ","; &O2 + x * 5&; ")"
   
6.                 Debug.Print "cells(" & 6 + 3 * y & "," & 1 + x * 5 & ")=cells(" & 1 + 1 * y & ","; &O1 + x * 5&; ")*cells("; &O1 + 1 * y & ","; &O2 + x * 5&; ")"
   
7.                 Cells(5 + 3 * y, 1 + x * 5) = Cells(1 + 1 * y, 1 + x * 5) + Cells(1 + 1 * y, 2 + x * 5)
   
8.                 Cells(6 + 3 * y, 1 + x * 5) = Cells(1 + 1 * y, 1 + x * 5) * Cells(1 + 1 * y, 2 + x * 5)
   
9.         Next y
   
10.     Next x
    
11. End Sub

复制代码

hwc2ycy

你能把这个数据规律找出来，不错呀。

1. Private Sub CommandButton1_Click()
   
2.     Dim x As Long, y As Long
   
3.     For x = 0 To 1
   
4.         For y = 0 To 2
   
5.             'Debug.Print "cells(" & 5 + 3 * y & "," & 1 + x * 5 & ")=cells(" & 1 + 1 * y & ","; &O1 + x * 5&; ")+cells("; &O1 + 1 * y & ","; &O2 + x * 5&; ")"
   
6.             'Debug.Print "cells(" & 6 + 3 * y & "," & 1 + x * 5 & ")=cells(" & 1 + 1 * y & ","; &O1 + x * 5&; ")*cells("; &O1 + 1 * y & ","; &O2 + x * 5&; ")"
   
7.             Cells(5 + 3 * y, 1 + x * 5) = Cells(1 + 1 * y, 1 + x * 5) + Cells(1 + 1 * y, 2 + x * 5)
   
8.             Cells(6 + 3 * y, 1 + x * 5) = Cells(1 + 1 * y, 1 + x * 5) * Cells(1 + 1 * y, 2 + x * 5)
   
9.         Next y
   
10.     Next x
    
11. End Sub

复制代码