如何实现新产品的自动入库，今天我们来学习一下
❥ 新建一个产品入库表，以【Excel启用宏的工作簿】格式保存
❥ 输入产品入库表列标题，将对齐方式方式设置为“居中对齐”，标题填充色为浅灰色
❥ 制作已入库产品列表（制作方法同上）
❥ 打开产品入库表，按【Alt+F11】组合键，进入VBA编辑窗口
❥ 单击【插入】---【模块】，在左侧列表中会出现新模块， 如下图
❥ 双击“模块1”，在右侧打开与该模块对应的代码输入窗口，将代码输入到窗口中，如下图
Sub 新品入库()
Dim i As Integer
Dim lFinalRow As Long
lFinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 5
If Application.WorksheetFunction.CountA(Range("A2:E2")) = 5 Then
Cells(lFinalRow + 1, i).Value = Cells(2, i).Value
Else
MsgBox "新品录入区的资料录入不完整，请补充！"
Exit Sub
End If
Next i
Range("A2:E2").ClearContents
End Sub
❥ 编写好代码后，单击VBA编辑窗口右上角的关闭按钮，退出编辑环境
❥ 单击【文件】---【选项】命令，打开【Excel选项】对话框。在左侧选择【常用】，然后选中右侧【在功能区显示“开发工具”选项卡】复选框。
❥ 单击【确定】，在功能区中添加【开发工具】选项卡
❥ 单击功能区中的【开发】---【控件】---【插入】按钮，在打开的列表中选择表单控件中的按钮控件
❥ 在A3：E5绘制一个按钮，放开鼠标会自动弹出如下对话框，选择之前编写的VBA代码名称“新品入库”
❥ 单击【确定】按钮，右击按钮，当弹出菜单时按Esc键取消，然后单击按钮内部文字区域，将按钮显示名称更改为“新品入库”，并将字号设置为“20”
❥ 完成代码的编写与设置，就可以进行功能测试，在A2：E2输入如下内容
❥ 单击【新品入库】按钮，将A2：E2中的数据保存到A7：E7中，并自动删除A2：E2内容
❥ 在A2：E2中继续输入内容，得到如下结果
今天的知识你get到了吗，欢迎留言一起交流哈！
成长最好的方式是学习，学习最好的方式是教会他人，我是Cindy，专注数据分析知识分享，请关注我，让我们一起成长！
网友评论