[已解决]送货单请求写入VBA

OF1900 · 发表于 2015-9-7 17:06

本帖最后由 OF1900 于 2015-9-7 17:54 编辑

找过很多模板不太适用，无奈自己做的不懂VBA，求好心高手帮帮忙！

补充说明：
之前在论坛里下载过一些做的很好的单据，要求也是差不多：单据编号随每次新开单而变，开单后可将数据汇总到第二页面，方便查看整理。

最佳答案

七彩屋

2015-9-7 21:05

送货单0907.rar (22.34 KB, 下载次数: 59)

yorkchenshunan · 发表于 2015-9-7 17:14

是分享还是求助？求何助？请详加说明。

OF1900 · 发表于 2015-9-7 17:53

不好意思没写清楚，是求助，之前在论坛里下载过一些做的很好的单据
要求也是差不多：单据编号随每次新开单而变，开单后可将数据汇总到第二页面，方便查看整理。
具体在文件里有写，忘了写出来了。。。

七彩屋 · 发表于 2015-9-7 18:42

Sub 新开单()
Set rg = Sheets("汇总").[a65536].End(3)
If Mid(rg, 5, 8) = Format(Now(), "yyyyMMdd") Then
[K2] = "YQSH" & Format(Now(), "YYYYMMDD") & Format(Val(Right(rg, 4)) + 1, "0000")
Else
[K2] = "YQSH" & Format(Now(), "YYYYMMDD") & "0001"
End If
End Sub

复制代码

OF1900 · 发表于 2015-9-7 21:02

本帖最后由 OF1900 于 2015-9-7 21:07 编辑

七彩屋发表于 2015-9-7 18:42

大神，我看过您设计的送货单，就是有新开单打印保存的那个，只是我要用这个模板，要不我直接拿您的用了

我要的就这和您那个差不多的，麻烦了~~~~~

七彩屋 · 发表于 2015-9-7 21:05

送货单0907.rar (22.34 KB, 下载次数: 59)

七彩屋 · 发表于 2015-9-7 21:07

单号自动变，不用设置。

OF1900 · 发表于 2015-9-7 21:10

感谢七彩屋大神

七彩屋 · 发表于 2015-9-7 21:12

本帖最后由七彩屋于 2015-9-7 21:13 编辑

brr(i, 2) = Cells(16, 6).Value
这句写错了，应该是
brr(i, 2) = Cells(16, 7).Value

送货单0907.rar (21.81 KB, 下载次数: 49)

mgch · 发表于 2016-8-11 23:45

七彩屋发表于 2015-9-7 21:12
brr(i, 2) = Cells(16, 6).Value
这句写错了，应该是
brr(i, 2) = Cells(16, 7).Value

老师，我想做一个类似的，但我的有15栏，需要改哪里的代码呢？望赐教！万分感谢！

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