VBA代码、出库单模板（vba出入库界面设计）

这是一个出库单模板，想要模板的可以去我公众号上下载。

表1是用来开单

表2是用来保存数据的

实现功能：

我们点击开单按键就可以开单了，单号会根据当前时期加编号自动生成，如果今天开了一单再开一单编号就会是002这样累加上去。

如果没有写内容就点击出库它是会有信息框提示，数据是不会被保存得。同一个单号文件是不会被两次保存进数据库的。

数据库里面会根据保存时间来显示日期。

下面是代码分享

Sub 开单()

Dim sr As Range, sr2 As Range, shu%, sr3

Set sr = Union([p21], [p24:t28])

sr.ClearContents

Set sr2 = Sheets("数据").Cells(Rows.Count, "h").End(xlUp)

sr3 = Format(Now, "yyyymmdd")

If Left(sr2, 8) = sr3 Then

[p21] = Left(sr2, 8) & Format(Right(sr2, 3) + 1, "-000")

Else

[p21] = Format(Now, "yyyymmdd") & "-001"

End If

End Sub

Sub 出库()

Dim sr As Range, sr2 As Range, sr3 As Range, shu%

If Sheets("数据").Range("h:H").Find([p21]) Is Nothing Then

If [p24] <> "" Then

Set sr = Sheets("数据").Cells(Rows.Count, "a").End(xlUp).Offset(1, 0)

Set sr2 = Sheets("开单").Range("p24", [t23].End(xlDown))

Set sr3 = sr2.Offset(0, -1).Resize(, 7)

sr3.Select

sr3.Copy sr

shu = sr3.Rows.Count

sr.Offset(0, 7).Resize(shu, 1) = [p21].Value

sr.Offset(0, 8).Resize(shu, 1) = [u21].Value

sr.Offset(0, 9).Resize(shu, 1) = Now

Else

MsgBox "请填写出库数据"

End If

Else

MsgBox "你已保存、请重新开单"

End If

End Sub

这个模板代码我就不每行来注解说明了，如果看不懂的可以留言。如果你看完我前面分享的代码以上代码是可以看懂的。因为我分享出来的代码都是一段段分享出来的，所做模板用的代码也是以前分享说明过的代码。