哪位朋友可以帮我看看我错误的地方

寂寞雪碧 · 发表于 2014-12-18 21:24

这是一个开单文件，填写完成点击保存按钮后会自动记录填写内容，现在这个表只能记录填写内容的前三行，第四行数据不会自动记录，各位帮忙看看吧

liulang0808 · 发表于 2014-12-18 21:27

For i = 0 To 2
这个只有三次啊？

zez · 发表于 2014-12-18 21:28

For i = 0 To 2
只循环3次

zax010 · 发表于 2014-12-18 21:29

改
For i = 0 To 2
为
For i = 0 To 3

chxw68 · 发表于 2014-12-18 21:33

参见附件。

寂寞雪碧 · 发表于 2014-12-18 21:37

谢谢各位了，如果这个文件里，我输入3行就自动保存3行，如果我输入6行就自动保存6行，我改怎么做呢？现在这个包里面我把For i = 0 To 2改成For i = 0 To 6就会一直自动保存7行了，有没有什么办法让它更聪明一点呢？谢谢了

hecm398 · 发表于 2014-12-18 21:37

For i = 0 To 2中的2应该为一代码，代表B列最后不为空的行号

zax010 · 发表于 2014-12-18 22:48

Sub 打印()
Sheets("票据打印").Select
y = [b13].End(3).Row
With Sheets("记录")
      x = .Range("a65536").End(xlUp).Row + 1
      For i = 0 To y - 5
         .Cells(x + i, 1) = [E3]
         .Cells(x + i, 2) = [H3]
         For j = 3 To 11
            .Cells(x + i, j) = Cells(i + 5, j - 2)
         Next
         .Cells(x + i, 12) = [I14]
      Next
End With
Range("b5:i12").ClearContents
s = Range("h3")
Range("h3") = Left(s, 2) & Right("00000000000" & Right(s, 11) + 1, 11)
MsgBox "打印并保存完毕", , "提示"
End Sub

寂寞雪碧 · 发表于 2014-12-18 22:55

zax010 发表于 2014-12-18 22:48
Sub 打印()
Sheets("票据打印").Select
y = .End(3).Row

非常感谢您

寂寞雪碧 · 发表于 2014-12-18 22:56

chxw68 发表于 2014-12-18 21:33
参见附件。

非常感谢您对我的帮助

		自动登录	找回密码
密码			免费注册

[求助] 哪位朋友可以帮我看看我错误的地方

最新热点 /1