表格送货单自动编号vba_制作仓库入库单,自动登记商品数据,这段代码只需三步搞定...
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
第三步:点击菜单栏:开发工具—插入,选择按钮插件,然后鼠标右键选择指定宏功能即可。这样我们就能够通过指定功能的方式,将控件赋予不同的代码功能。操作如下图所示:
通过上面的三个操作步骤设置,我们就做好了最简单的仓库入库单模板。现在你学会了吗?赶快去操作一下吧!
关注后私信:入库单,获取表格模板!
表格送货单自动编号vba_制作仓库入库单,自动登记商品数据,这段代码只需三步搞定...相关推荐
- iphone看python文件_Python实战 | 只需 ”三步“ 爬取二手iphone手机信息(转发送源码)...
原标题:Python实战 | 只需 "三步" 爬取二手iphone手机信息(转发送源码) 本次实战是爬取二手苹果手机的信息,共爬取了300部手机信息,效果如下: 开发环境 环境:M ...
- oracle select之后自动保存excel_Excel制作自动化仓库入库单,数据录入、计算、保存只需一键完成...
Excel除了我们日常的数据整理,利用表格特有的代码功能,我们还可以实现一些高级的数据操作.比如说仓库入库单的制作,它能够实现通过点击自动完成数据录入.计算以及保存等操作. 上面就是我们仓库入库单的效 ...
- 甘特图制作_使用excel制作甘特图其实很简单,仅需4步搞定,项目进度一目了然...
Hello,今天跟大家分享下如何在excel中制作甘特图.甘特图能直观的表现出任务的进度,以及各个项目之间的关联性 如果说你的项目众多,可以使用更专业的Project来制作甘特图,使用Project制 ...
- word activex部件不能创建对象_如何用Word批量制作员工工作证?1分钟搞定1000份!只需三步...
工作证是我们工作中很常见的东西,不过由于每个人的名字.部门.照片都不同,很多小伙伴都不知道怎么批量制作,总是傻傻地一张一张制作,这样特别浪费时间,今天小编就来跟大家分享如何批量制作! 一.准备工作 1 ...
- excel表中怎么插入visio_快速制作组织架构图,还在用Visio就out了,Excel简单三步搞定...
工作中相信绝大多数人都见过一种图表类型,那就是组织架构图.组织架构图经常用于企业内部部门结构.人员编制分工的展示.通过组织架构图,我们能够清晰的查看到各部门人员结构.业务等情况. 如上图所示,我们需要 ...
- 代码批量加引号_如何用Word批量制作员工工作证?1分钟搞定1000份!只需三步
工作证是我们工作中很常见的东西,不过由于每个人的名字.部门.照片都不同,很多小伙伴都不知道怎么批量制作,总是傻傻地一张一张制作,这样特别浪费时间,今天小编就来跟大家分享如何批量制作! 一.准备工作 1 ...
- 只需三步!使用3DCG软件Blender制作时尚图片
你好,我是bpm,主要从事开发工作!这次我想介绍一下利用免费3DCG软件Blender制作时尚图片的方法. Blender的优点 先介绍一下,在接触了Blender一段时间后,为什么我会觉得用它来处理 ...
- pdf批量添加图章_1分钟学会制作电子公章,三步搞定,轻松在PDF文件中添加公章图片...
相信职场办公的各位都有同感吧,平常需要盖章的地方真的蛮多的,如果是纸质文件还好,但是电子文档如何盖章呢?其实也很简单,今天小编就教大家用Word制作电子印章,超简单的,三步就搞定,一起看看吧! 一.如 ...
- stm32f103+FFT+OLED的音乐频谱制作(只需三步即可)
效果演示:FFT音乐频谱DIY STM32+OLED_哔哩哔哩_bilibili 制作过程: 1.准备材料: stm32f103核心板 1块 OLED12864显示屏 1块(SPI接口) 声音检测传感 ...
- 怎么把图片做成gif动图?三步搞定gif在线制作
在日常办公.生活中经常会使用一些gif动态图片,生动有趣画面丰富.很好奇这些gif动图是怎么制作的吧!其实,制作gif表情包的方法很简单,给大家分享几个简单实用的gif制作(https://www.g ...
最新文章
- 2018-3-31(nature-Inspired Metaheuristic Algorithm Second Edition)笔记二---Random Walk and levy flighes
- Matlab编程与数据类型 -- 字符型数组
- 操作-《oracle入门到精通》第六章开始
- GPLinker:基于GlobalPointer的事件联合抽取
- 04.search_template
- 北京80后整体亮相《北京作家》
- strictmath_Java StrictMath scalb()方法与示例
- Mac技巧|如何在 MacBook上设置一位数登录密码
- Windows环境下的NodeJS+NPM+Bower安装配置步骤
- 【BZOJ2326】【codevs2314】数学作业,第100篇博文纪念
- php openssl des ecb,php7.2 des-ede3-ecb加密报错:openssl_encrypt():Unknown cipher algorithm 落叶随风博客...
- mybatis3动态创建表,判断表是否存在,删除表
- 计算机基础知识点总结
- 黑马程序员-学习日志-文件的合并
- 数据分析师的就业前景如何?
- 「Java」冒泡排序
- 2021.05.05青蛙过河
- 未来技术 html5 app,未来web浏览技术提前体验:10个会让你惊叹不已的HTML5画布(canvas)技术应用演示...
- 关于eclipse中没有js代码提示的解决
- 苹果云服务icloud_苹果手机icloud手动备份和还原个人用户资料