各位老师，各位大侠，各位少侠，各位女侠，请帮我看看这个表的代码，还有4列保存不...

ABC勇 · 发表于 2023-3-23 09:09

各位老师，各位大侠，各位少侠，各位女侠，如果你是Excel中的高手，高手，高高手，请你帮一下我！万分感谢！！！

要求是：在“单据”表里面，点击“打印一次”按钮，“单据”表里的数据就自动保存到“单据数据”表里面，并且都是在最后一行空白行里面保存，一直往下保存，期待您的回复，谢谢！！！！！！现在还有四列保存不过去，分别是：“单号”；“日期”；“金额”；“备注”这四列，

蓝桥玄霜 · 发表于 2023-3-23 09:24

K2,l2,K5都是空白单元格？附件中单据也没有数据。

sxbjzjf110 · 发表于 2023-3-23 09:30

测试一下。。。。

sxbjzjf110 · 发表于 2023-3-23 09:31

测试一下。。。。

ABC勇 · 发表于 2023-3-23 09:34

蓝桥玄霜发表于 2023-3-23 09:24
K2,l2,K5都是空白单元格？附件中单据也没有数据。

您好，到时候会在“单据”表里面输入数据的，就是要求点击“打印一次”之后，“单据”里面的数据会自动保存到“单据数据”表里面，

杨建营 · 发表于 2023-3-23 09:34

主要的错误在我画红框的地方，修改后可以提取数据，请楼主参考。

ABC勇 · 发表于 2023-3-23 09:35

sxbjzjf110 发表于 2023-3-23 09:30
测试一下。。。。

你好，你没有发改好的附件上来，

于箱长 · 发表于 2023-3-23 09:42

纯属好奇，路过进来看看

tanglf188 · 发表于 2023-3-23 09:42

你的表格添加过列数据了，所以列号要修改，备注备份只复制单元格数据，要备份图片还要改代码。

Sub 数据保存()
With Sheets("单据")
ar = Range(.[a1], .Cells(Rows.Count, 1).End(3).Offset(0, 13))
ReDim arr(1 To UBound(ar), 1 To UBound(ar, 2) + 3)
单号 = .[N2] & Format(Val(.[O2]), "000000")
客户 = .[b5]
开单时间 = .[N5]
For i = 7 To UBound(ar)
If ar(i, 1) = "合计" Then Exit For
If ar(i, 10) <> 0 Or ar(i, 11) <> 0 Then '金额或总平方数不为0算一条记录
n = n + 1
arr(n, 1) = 客户
arr(n, 2) = 单号
arr(n, 3) = 开单时间
For j = 1 To UBound(ar, 2)
arr(n, j + 3) = ar(i, j)
Next j
End If
Next i
End With
If n > 0 Then
With Sheets("单据数据")
.Cells(Rows.Count, 1).End(3).Offset(1, 0).Resize(n, UBound(arr, 2)) = arr
[O2] = [O2] + 1
MsgBox "本单据打印并保存完毕！"
End With
' Dim rng As Range
' With Sheets("单据数据")
' Set rng = .Columns("A:A").Find(what:=单号)
' If Not rng Is Nothing Then
' MsgBox "本单据已经保存过！本次仅打印"
' Else
' .Cells(Rows.Count, 1).End(3).Offset(1, 0).Resize(n, UBound(arr, 2)) = arr
' [l2] = [l2] + 1
' MsgBox "本单据打印并保存完毕！"
' End If
' End With
Else
MsgBox "本表没有实际数据，请核对!"
End If
End Sub

复制代码

ABC勇 · 发表于 2023-3-23 10:12

sxbjzjf110 发表于 2023-3-23 09:31
测试一下。。。。

测试过了，完全可以用，谢谢您，太谢谢您了，

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

[求助] 各位老师，各位大侠，各位少侠，各位女侠，请帮我看看这个表的代码，还有4列保存不...