excel制作一个信息录入系统_制作Excel仓库入库单,一键完成数据录入、计算及保存操作...
Excel除了我们日常的数据整理,利用表格特有的代码功能,我们还可以实现一些高级的数据操作。比如说仓库入库单的制作,它能够实现通过点击自动完成数据录入、计算以及保存等操作。
上面就是我们仓库入库单的效果演示,我们可以通过计算、保存、开单的按钮设置,点击就能够自动进行数据的计算、保存以及清除之前数据重新输入等多种操作。是不是感觉非常的方便了?下面我们就来学习一下具体的操作方法。
第一步:首先在表格中填写基础数据,将入库单页面的编号,品名等用数据有效性的方式进行引用,这样我们就可以实现轻松的对输入数据进行选择。这样可以尽可能的缩短我们填写数据的时间。如下图所示:
第二步:通过Excel编写VBA代码,实现计算、保存、开单等常用功能。按快捷键alt+F11或点击工作表名称右键选择查看代码,快速进入VBA代码编辑窗口,然后输入下方对应的代码。如下图所示:
开单、保存、计算的代码分别如下:
Sub 开单()
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
[b2] = "SM" & Format(Now(), "ymdhms")
Range([a5], es.Offset(4)) = ""
[e2] = ""
End Sub
Sub 保存()
On Error GoTo 100
Dim es As Range, a%
If Sheet2.[f:f].Find([b2]) = [b2] Then
MsgBox "已经保存过了!"
Else
100:
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
a = Application.CountA(Sheet2.[a:a])
If es.Row = 4 Then MsgBox "没有填写内容": End
Range([a5], es).Copy Sheet2.Cells(a + 1, 1)
Sheet2.Cells(a + 1, "f").Resize(es.Row - 4) = [b2] '保存入库单
Sheet2.Cells(a + 1, "g").Resize(es.Row - 4) = [e2] '保存供应商
Sheet2.Cells(a + 1, "h").Resize(es.Row - 4) = Now() '保存日期时间
MsgBox "保存成功!"
End If
End Sub
Sub 计算()
Set es = Columns(3).Find("*", , xlFormulas, , , xlPrevious)
For Each Rng In Range([c5], es)
Rng.Offset(0, 2) = Rng.Offset(0, 1) * Rng
Next
End Sub
第三步:点击菜单栏:开发工具—插入,选择按钮插件,然后鼠标右键选择指定宏功能即可。这样我们就能够通过指定功能的方式,将控件赋予不同的代码功能。操作如下图所示:
通过上面的三个操作步骤设置,我们就做好了最简单的仓库入库单模板。现在你学会了吗?赶快去操作一下吧!
关注后私信:入库单,获取表格模板!
excel制作一个信息录入系统_制作Excel仓库入库单,一键完成数据录入、计算及保存操作...相关推荐
- excel制作一个信息录入系统_Excel数据总是重复录入?使用这招,让系统帮你做检查,非常实用...
手动录入数据是我们日常工作中都会接触到的,如果数据较多,难免会重复录入,像工号.身份证号.银行卡号等这种唯一性的数据肯定不可以重复,但是如果录入之后再去做重复数据的检查可能又会比较的麻烦.这篇文章就来 ...
- 制作一个银行卡登录系统
制作一个银行卡登录系统 {"expire_date":"2021-01-01","id":"1234","st ...
- 学生信息录入系统java代码
学生信息录入系统可以实现学生本身账号密码登陆,然后录入自己关键信息(其中,带*的为必填)最后 会在电脑f盘生成一个自己信息录入完成的文件,并且可以提交信息,进而将文件中的信息展示出来.我觉得这部分的难 ...
- 【EXCEL技巧】制作一个信息查询表(仅可查看自己)
说明:笔者想制作一个类似分数查询网站一样,通过输入自己独一无二的"编号代码",系统会自动生成对应的数据.奈何编程水平不够,Python也是刚学不久,听说查找数据检索数据很快,mat ...
- 制作一个移动Ubuntu系统,可以做到即插即用(U盘系统,非启动盘)
前言: 博主需要一个即插即用的Ubuntu系统,之前使用启动u盘安装进目标u盘的Ubuntu好像和主板锁定了,并不能够在其它主板上使用,于是就用虚拟机安装了一个即插即用的系统U盘(并非启动u盘) 材料 ...
- c# 一个月中的工作日_在Excel中查找一个月中的第N个工作日
c# 一个月中的工作日 Some events occur on the Nth weekday of a specific month each year. Maybe your book club ...
- 制作多系统启动盘教程_制作U盘启动盘教程
制作 U 盘启动盘图文教程 在笔记本电脑早已普及到会议室的这个年代,商务人士拿笔记本来演示 PPT 以及做电子版 的会议记录:在笔记本电脑已经普及到教室的这个年代,学生们甚至在用笔记本翻阅资料 进行开 ...
- excel怎么一个格子斜分_『在Excel中,把一个格子用线分成三个怎么弄啊』一个单元格怎么斜分两个...
在Excel中,把一个格子用线分成三个怎么弄啊 1.以excel2010版本为例,如选中该单元格后击页面上方的"": 2.在插入栏下,找到"形状"选项,并点击, ...
- MySQL信息发布系统_信息发布系统
系统介绍 由盾华科技自主研发的,用于在网络环境下,对多媒体信息进行编辑处理和控制发布的专业系统平台.联网多媒体信息发布系统融合网络技术.信息技术和多媒体技术,可对音视频.图片.流媒体等多种素材编辑制作 ...
最新文章
- 你听说过反摩尔定律吗?
- mysql的模糊查询在xml_数据库模糊查询语句(mybatis中运用(xml文件))
- MyBatis Plus——自定义配置——自定义属性——注入时间
- centos7升级gcc到5.3.0
- openssl paho.mqtt交叉编译
- 已知若干点求圆心_【求精干货】高中数学知识点总结归纳高一学生必须掌握
- 编写访问数据库的应用层程序,经常catch出的一些错误
- Qt编写linux上视频流播放器(支持海康大华宇视等各种网络摄像机)
- php编程三阶魔方,三阶魔方还原教程
- 基于JSP学生学籍管理系统
- Linux-ubuntu系统查看显卡型号、显卡信息详解、显卡天梯图
- C++ 学生信息管理程序练习
- 基于Android+Springboot+Mybatis+Mysql的个人生活APP设计 说明书+项目源码
- 国际标准智商测试题目
- 【榜单公布】10·24征文活动结果出炉!
- jQuery---什么是jQuery
- NAT在NDIS中间层驱动中的实现
- 带你玩转区块链--以太坊基础、发币、基于智能合约实现彩票项目-第二章-第一节【以太坊篇】
- OpenXML学习(一)使用OpenXML生成PPT
- iPhone 音频警告
热门文章
- 奉劝那些想学编程的人
- 给1-3年的前端 6 点诚心建议
- 不搞代码来搞我,我又动了谁的奶酪?
- 29岁学python的建议_学习Python的建议
- ftpclient读取服务器文件能获得文件名文件大小0_Spring WEB工程整合使用FTP,ftp文本文件解析入库,文件上传下载
- ROS服务中自定义数据类型
- 获得诺贝尔奖之后影响力会下降?绘制精英科学家的职业生涯路线图
- 放弃Venn-Upset-花瓣图,拥抱二分网络
- python的魅力在哪_python的优势在哪
- 拉丁超立方抽样matlab代码_想要数据分析更快?超良心的笔记本/台式电脑配置推荐!...