[已解决]帮我看看这样错在哪里

fls996

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, k As Integer, h As Integer
    For i = 1 To 4
  
        Sheets("sheet1").Range("A65536").End(xlUp).Offset(1, 0) = Controls("textbox" & i).Text
        Sheets("sheet1").Range("A65536").End(xlUp).Offset(0, 1) = Controls("textbox" & i + 4).Text
        Sheets("sheet1").Range("A65536").End(xlUp).Offset(0, 2) = Controls("textbox" & i + 8).Text
        Sheets("sheet1").Range("A65536").End(xlUp).Offset(0, 3) = Controls("textbox" & i + 12).Text

    Next i
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-10-19 16:23

1.     For i = 1 To 4
   
2.         With Sheets("sheet1").Range("a65536").End(xlUp)
   
3.             For j = 1 To 4
   
4.                 .Offset(1, j - 1) = Controls("textbox" & i + j * 4 - 4).Text
   
5.             Next
   
6.         End With
   
7.     Next

复制代码

跳转到最佳答案楼层

hwc2ycy

你想解决什么问题，代码运行是没有错误的。
想实现什么效果？

fls996

hwc2ycy 发表于 2013-10-19 16:03
你想解决什么问题，代码运行是没有错误的。
想实现什么效果？

一次录入4行，但这样做录入很多行。像附件里那样。

hwc2ycy

1.     For i = 1 To 4
   
2.         With Sheets("sheet1").Range("a65536").End(xlUp)
   
3.             For j = 1 To 4
   
4.                 .Offset(1, j - 1) = Controls("textbox" & i + j * 4 - 4).Text
   
5.             Next
   
6.         End With
   
7.     Next

复制代码

hwc2ycy

控件的排列规律。

qcw811206

hwc2ycy 发表于 2013-10-19 16:26
控件的排列规律。

{:041:}他为什么bu横着排？

fls996

qcw811206 发表于 2013-10-19 16:33
他为什么bu横着排？

横着排不知道怎么写。

hwc2ycy

横着排你也有找出规律嘛。

hwc2ycy

1.     For i = 1 To 4
   
2.         With Sheets("sheet1").Range("a65536").End(xlUp)
   
3.             For j = 0 To 3
   
4.                 .Offset(1, j) = Controls("textbox" & i + j * 4).Text
   
5.             Next
   
6.         End With
   
7.     Next

复制代码

可以简化下，这样少2步运算。

hwc2ycy

1.     With Sheets("sheet1").Range("a65536").End(xlUp)
   
2.         For i = 1 To 4
   
3.             For j = 0 To 3
   
4.                 .Offset(i, j) = i + j * 4 'Controls("textbox" & i + j * 4).Text
   
5.             Next
   
6.         Next
   
7.     End With

复制代码

再挪动下，还能少运算4步。