[已解决]送货单自动保存

xl2015 · 发表于 2015-10-12 11:49

求助！希望各位大师帮帮忙，完善下此表格！谢谢！
希望按下保存  按钮时，送货单中的变量自动保存至  送货单明细  中去；
         按下新建按钮时，送货单中的变量自动清空并单号自动增加1；
         按下打印按钮时，自动打印选定区域。
谢谢！

新建 WinRAR 压缩文件.rar (14.49 KB, 下载次数: 9)

grf1973 · 发表于 2015-10-12 13:26

Sub 保存()
arr = [b5:I7]
Dim brr(1 To 3, 1 To 9)
For i = 1 To 3
If Len(arr(i, 1)) > 0 Then
n = n + 1
brr(n, 1) = [c3]: brr(n, 2) = [I1]: brr(n, 3) = [d2]
brr(n, 4) = arr(i, 1)
For j = 5 To 9
brr(n, j) = arr(i, j - 1)
Next
End If
Next
If n > 0 Then Sheet2.[a65536].End(3).Offset(1).Resize(n, 9) = brr: MsgBox n & "条记录已保存！"
End Sub
Sub 新建()
dh = [I1]
x = Format(Val(Right(dh, 3)) + 1, "000")
dh = Left(dh, Len(dh) - 3) & x
[I1] = dh
[b5:g7].ClearContents
End Sub
Sub 打印()
ActiveSheet.PrintOut
End Sub

复制代码

grf1973 · 发表于 2015-10-12 13:26

请看附件。

xl2015 · 发表于 2015-10-12 14:22

grf1973 发表于 2015-10-12 13:26
请看附件。

谢谢大师！！！已经弄好了！谢谢！！！

xl2015 · 发表于 2015-10-12 16:44

grf1973 发表于 2015-10-12 13:26
请看附件。

请问大师保存时怎么只能保存前3项呢？？

grf1973 · 发表于 2015-10-12 16:55

谁说的？我这运行没问题。你是指的只保存三条记录吧？

xl2015 · 发表于 2015-10-12 16:57

grf1973 发表于 2015-10-12 16:55
谁说的？我这运行没问题。你是指的只保存三条记录吧？

是啊！至保存前三条

grf1973 · 发表于 2015-10-12 22:06

你的单子里面只有三条。。。。送货单不是固定样式吗？

xl2015 · 发表于 2015-10-13 07:47

grf1973 发表于 2015-10-12 22:06
你的单子里面只有三条。。。。送货单不是固定样式吗？

有6条，可以不固定吗？多的时候7条，8条，少的时候1条。谢谢大师！！！

grf1973 · 发表于 2015-10-13 09:25

Sub 保存()
rmax = [b65536].End(3).Row '送货单的数据填充最大行（b列的最末行）
arr = Range("a5:i" & rmax)
ReDim brr(1 To UBound(arr), 1 To 9)
For i = 1 To UBound(arr)
If Len(arr(i, 1)) > 0 Then
n = n + 1
brr(n, 1) = [c3]: brr(n, 2) = [I1]: brr(n, 3) = [d2]
brr(n, 4) = arr(i, 1)
For j = 5 To 9
brr(n, j) = arr(i, j - 1)
Next
End If
Next
If n > 0 Then Sheet2.[a65536].End(3).Offset(1).Resize(n, 9) = brr: MsgBox n & "条记录已保存！"
End Sub

复制代码

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