入门入库单VBA程序，请大师进来看下怎么修改！

Grace熊小熊 · 发表于 2018-1-5 23:33

这几天一直在找教程，看了大概七八个入库vba，对照了修改了很久，只学会以一些，里面VBA是自己编写的，对简单的判断日期，和根据单号生成不重复的单号。想法很简单，就是想把入库单的内容复制在后边去，入库一次，内容清空，入第二次，内容在后边继续录下去，但是用VBA实施起来却是非常困难。对照一些高手做好的VBA，每个单词，每个句子去翻译，懵懵懂懂能理解一些简单的语局，一到关键的地方就看不懂了，都完全不知道怎么复制过去的！望大师写一个小白教程，最好是有注释，万分感谢。

Grace熊小熊 · 发表于 2018-1-5 23:34

Sub 保存()
If [n4] = "" Then [n4] = "=today()"
A = Right([h4], 3)
If [h4] = "" Then
[h4] = "SK" & Format(Now(), "YYYYMMDD") & Format(1, "000")
Else
[h4] = "SK" & Format(Now(), "YYYYMMDD") & Format(A + 1, "000")
End If
End Sub

写了两个最简单的句子

Grace熊小熊 · 发表于 2018-1-5 23:35

因为其他vba句子出错，所以删除了，只剩这两个句子了

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