|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
参考代码,创建出库单后,清空输入区域,如果需要情况,请屏蔽该行代码
- Sub 新建出库()
- Application.DisplayAlerts = False
- lstk = Cells(Rows.Count, "K").End(xlUp).Row
- If lstk > 2 Then
- lsta = Cells(Rows.Count, "A").End(xlUp).Row + 1
- With Cells(lsta, 1)
- .Resize(1, 6).Merge
- .Value = "出库单"
- .HorizontalAlignment = xlCenter
- End With
- Range([K2], Cells(lstk, "P")).Copy Cells(lsta + 1, 1)
- Range([K3], Cells(lstk, "P")).ClearContents
- Else
- MsgBox "请输入数据"
- End If
- Application.DisplayAlerts = True
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|