VBA学习笔记之入库单制作

最新推荐文章于 2023-04-03 15:32:03 发布
最新推荐文章于 2023-04-03 15:32:03 发布
阅读量2.5k 收藏 8
点赞数
原文链接：http://www.cnblogs.com/gilgamesh-hjb/p/7444091.html
版权 
Sub 开单()
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious) '注意es是最下面有数据的区域
a = es.Address
[b2] = "SM" & Format(Now(), "ymdhms") '根据当前时间生成不重复的入库单号
Range([a5], es.Offset(4)) 
最低0.47元/天 解锁文章
aiyin1399
关注
  • 0
    点赞
  • 踩
  • 8
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
php制作入库单,教你如何利用vba制作自动登记数据的仓库入库单
weixin_42300424的博客
03-25 1244
Excel的强大之处不在于日常的一些函数、vba代码及日常表格的操作，而是在于它可以通过这些函数和代码实现我们需要的数据报表功能。如仓库人员经常会涉及到的入库单、HR经常会利用到的自动化人员信息登记表等等。【效果图】看了上面的动态效果，是不是感觉这个入库单非常神奇的呀。我们只要点击开单，就可以重新更新表格，点击计算可以计算金额，点击保存可以保存我们输入的数据。下面我们就来讲一下如何制作这个仓库入库...
利用宏和VBA设计产品出入库查询系统：
qq_29704567的博客
09-24 6849
一、实现入库明细表的内部功能 创建出入库明细表： 步骤： 新建工作簿“出入库系统.xlsx” 新建表“入库明细”，输入内容并做简单样式设置--设置产品登记或查询区域：选中1-5行—右键—插入。插入的空行用来登记或查询的对应项目如图： 新建工作表“出库明细” 将工作簿“出入库系统.xlsx”另存为“出入库系统.xlsm” 2. 利用VBA制作出入库查询表： 在产品出入库明细表中统计出入库次...
es 插入数据_制作Excel仓库入库单，一键完成数据录入、计算及保存操作
weixin_39581945的博客
11-21 1963
Excel除了我们日常的数据整理，利用表格特有的代码功能，我们还可以实现一些高级的数据操作。比如说仓库入库单的制作，它能够实现通过点击自动完成数据录入、计算以及保存等操作。上面就是我们仓库入库单的效果演示，我们可以通过计算、保存、开单的按钮设置，点击就能够自动进行数据的计算、保存以及清除之前数据重新输入等多种操作。是不是感觉非常的方便了？下面我们就来学习一下具体的操作方法。第一步：首先在表格中填写...
php出库单编号怎么编,求大神帮忙写VBA，出库单自动保存到明细，自动编号
weixin_36152359的博客
03-09 1080
上午花了2个小时，帮你写了一小段，主要是给你做个示范。你这个可不是一时半会能搞定的，草稿估计也要两三天，要完整弄的好用那就说不好了。我主要讲下你的表格：1、我写的代码只包括“出库明细表”，其他都没看，2个小时也写不了多长。有三个按钮：新建、保存、查询；新建：只有一行代码，只是一个清屏，便于下一次的编辑；保存：保存前会查询出库明细表是否存在，防止重复。如果存在，就修改它，如果不存在就添加；它是为了配...
vba：数字格式‘Range.NumberFormatLocal 属性
pgymeitianjinbu的博客
04-03 1613
Range([a5], es).Copy Worksheets("记录保存").Cells(a + 1, 1).Cells(a + 1, "h").Resize(es.Row - 4) = Now() '保存日期时间。.Cells(a + 1, "f").Resize(es.Row - 4) = [b2] '保存入库单。.Cells(a + 1, "g").Resize(es.Row - 4) = [e2] '保存供应商。With Worksheets("记录保存")Sub 保存1111()
excel按条件选择工作表_在Excel工作表中选择“实际使用范围”
culiao2169的博客
08-13 771
excel按条件选择工作表 在Excel工作表中选择“实际使用范围” (Select Actual Used Range in Excel Sheet) It's easy to select the current range in Excel – just press Ctrl + A. That shortcut selects all the cells in the block that...
在Excel中用vba编写的进销存管理系统
热门推荐
08-22 1万+
以Access为数所库，用vba编写的进销存管理系统，包括七大功能界面： 1、“入库单”操作界面 2、“出库单”操作界面 3、“入库明细查询”操作界面 4、“出库明细查询”操作界面 5、“入库汇总查询”操作界面 6、“出库汇总查询”操作界面 7、“进销存报表“操作界面
VBA 学习笔记
08-04
一些关于Excel VBA学习的课程笔记。
Excel VBA学习笔记
05-27
这篇“Excel VBA学习笔记”涵盖了多个关键知识点，下面将对这些内容进行详细讲解。 一、VBA基础 1. **环境介绍**：VBA开发环境包括VBE（Visual Basic Editor）编辑器，它提供了代码编辑器、项目浏览器、对象浏览器...
EXCEL VBA ListView+Toolbar 控件学习笔记
02-11
EXCEL VBA ListView+Toolbar 控件学习笔记，加示例和代码
vba（Excel）出库单（可添加记录、生成出库单、打印出库单等操作）
06-08
vba（Excel）出库单（可添加记录、生成出库单、打印出库单等操作） 使用说明： 1、出库单号由8位出库日期和3位序列号组成，如20220606001； 2、出库单号只需填写序列号（1~999）； 3、当出库日期更新或出库单号不符合规则时，出库单号显示为系统默认可用序列号； 4、点击"添加"，将出库信息添加到出库清单 5、点击"生成"，生成出库单 6、选中出库清单中的记录，点击右键，可以删除该记录 7、双击出库清单，可以清空出库单中记录
VBA数据库查询及数据自动导出多Excel报表
12-24
本代码是我以前使用的一个东东，删除了敏感的一些信息，保留了主要的功能。主要功能包含：一是VBA连接SQL Server数据库查询的功能，二是根据自动获取的日期动态将结果数据导出为多个Excel文档的功能。导出的文件命名为按机构编码和日期动态命名方法，格式：机构编码+主文件名+日期，生成的文件存放在与本文件同目录下的各个子目录下，以机构编码为子目录的名称，非常适合每天都出同种格式报表的应用。机构编码单独存放在名为shopid的sheet页里，位置可以根据需要自己修改，导出的最后一个功能是将原数据转存的功能，我写的是导出为B00B打头的文件名。所有任务执行完毕，程序会自动关闭文档。欢迎大家帮助改进执行效率或丰富功能。
VBA数据录入工具自动生成Excel
11-03
此工具是VBA开发，有录入绑定数据功能，可根据不同需求变更设置，扫描绑定数据自动录入Excel，可用于不同环境，工厂记录关联数据等
进销存管理系统（Excel VBA实现）
01-19
进销存管理系统（Excel VBA实现）。书上的源码，留作以后学习之用！
VBA-Excel数据库报价单分离.zip
最新发布
06-24
在IT行业中，数据库管理和自动化是提高工作效率的关键环节。...学习并掌握VBA编程，对于提升日常办公效率和数据分析能力具有重要意义。在实际工作中，可以根据具体需求进行定制化开发，以满足各种复杂的业务场景。
VBA数组学习笔记.pdf
10-08
VBA 数组学习笔记 VBA 数组学习笔记是指在 Visual Basic for Applications（VBA）中对数组的学习和应用。数组是 VBA 编程中非常重要的一部分，它可以用来存储和处理大量的数据。 数组的声明 在 VBA 中，数组的...
VBA学习笔记之Find方法
aiyin1399的博客
08-24 1047
1 Sub 查找最后一个单元格() 2 Set endrng = Cells.Find("*", , xlFormulas, , , xlPrevious) ' *表示查找的内容不确定，只要找到就行，逗号表示跳过该参数 3 'xlFormulas表示...
Excel VBA 高级编程-出入库系统
Rubicon_Chen的博客
09-09 9282
大家好，我是陈小虾，是一名自动化方向的IT民工。写博客是为了记录自己的学习过程，通过不断输出倒逼自己加速成长。但功能说明：由于水平有限，博客中难免会出现一些BUG，或者有更优方案恳请各位大佬不吝赐教！微信公众号：万能的Excel 1.本表由VBA编码制作而成请使用office版，用户使用本模板时需启动宏，工作表中带有公式的不用去填写也不要去更改，本工作簿需要用户将基础信息录入进来，方便入库单和出库单的信息录入。 2.入库单和出库单供应商和客户的信息都可以双击单元格弹出窗体，选中窗体信息双击即可完成录.
他山之石——VBA出入库管理
预见未来to50的专栏
07-04 3905
说实话，不知道这样的程序还有没有实际价值？也就是说，有没有人在实际的出入库业务中使用这样的Excel程序来辅助业务？Sub 入库录入() Dim arr, arr1, x As Integer, mydate As Date, hm As String, sr As String, sql As String Dim mydata As New Data查询 mydate = [e6...
vba入库单自动汇总代码
09-19
在VBA中，编写入库单自动汇总代码可以实现自动收集和计算入库数据的功能。以下是一个示例代码： 假设有一个名为"Invoice"的工作表，其中包含以下列：日期、产品名称、数量和单价。现在要编写代码来汇总所有入库单的总数量和总金额。 首先，在VBA编辑器中创建一个新的模块。然后，在模块中输入以下代码： ```vba Sub 汇总入库单() Dim ws As Worksheet Dim lastRow As Long Dim totalQuantity As Integer Dim totalAmount As Double ' 设置工作表 Set ws = ThisWorkbook.Sheets("Invoice") ' 获取最后一行 lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 初始化变量 totalQuantity = 0 totalAmount = 0 ' 循环遍历入库单数据并进行汇总 For i = 2 To lastRow totalQuantity = totalQuantity + ws.Cells(i, 3).Value totalAmount = totalAmount + ws.Cells(i, 3).Value * ws.Cells(i, 4).Value Next i ' 在汇总表中输出结果 ws.Range("F1").Value = "总数量" ws.Range("G1").Value = "总金额" ws.Range("F2").Value = totalQuantity ws.Range("G2").Value = totalAmount MsgBox "入库单汇总完成！" End Sub ``` 请注意，以上代码假定入库单数据从第2行开始，并且日期、产品名称、数量和单价分别在第1列到第4列。 运行此代码后，将在"Invoice"工作表的第6列和第7列中显示汇总结果，分别为总数量和总金额。然后，将弹出一个消息框显示"入库单汇总完成！"。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值