中燃料场报表生成器--出库报表

从进销存系统导出的销售明细表一键生成出库报表---V1.0版本

Sub CmdGroup1()
'
' CmdGroup1 宏
' 从进销存到处的销售明细表生成料场出库报表
'' 判断当前数据表是否为进销存的销售明细表If Range("A1") <> "销售明细表" ThenMsgBox "当前数据表不是 《销售明细表》 或者已经被修改，请确认！"End '结束程序的运行End If' 新建一个数据表,位于Sheet1后面Sheets.Add After:=Sheets(1)ThisWorkbook.ActiveSheet.Name = "广宗料场出库明细"'合并后居中单元格Range("A1:N1").SelectWith Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlBottomEnd WithSelection.MergeRange("A1") = "材料出库明细表"'填写表头Range("A2") = "序号"Range("B2") = "出库日期"Range("C2") = "纸质出库单编号"Range("D2") = "采购网出库单编号"Range("E2") = "物资编码"Range("F2") = "物资名称"Range("G2") = "单位"Range("H2") = "出库数量"Range("I2") = "含税单价"Range("J2") = "含税金额"Range("K2") = "其它费用"Range("L2") = "领料单位"Range("M2") = "库房名称"Range("N2") = "备注"'设置表头格式Rows("1:1").RowHeight = 22.5Range("A1:N1").Font.Size = 18Range("A2:N2").Font.Size = 14Range("A2:N2").Font.Bold = TrueWith Range("A2:N2").Interior.Pattern = xlSolid.PatternColorIndex = xlAutomatic.ThemeColor = xlThemeColorLight1.TintAndShade = 0.499984740745262.PatternTintAndShade = 0End WithWith Range("A2:N2").Font.ThemeColor = xlThemeColorDark1.TintAndShade = 0End With'根据单元格的内容自动调整单元格大小Cells.EntireColumn.AutoFitCells.EntireRow.AutoFit'查看销售明细表一共记录了多少行Dim mItemCount As IntegermItemCount = Sheet1.UsedRange.Rows.Count'需要的数据为第10行~mItemCount-1行，复制到对应的表中Sheet1.Range(Sheet1.Cells(10, 2), Sheet1.Cells(mItemCount - 1, 2)).Copy (ActiveSheet.Range("C3"))   '单据编号Sheet1.Range(Sheet1.Cells(10, 3), Sheet1.Cells(mItemCount - 1, 3)).Copy (ActiveSheet.Range("B3"))   '单据日期Sheet1.Range(Sheet1.Cells(10, 8), Sheet1.Cells(mItemCount - 1, 8)).Copy (ActiveSheet.Range("E3"))   '物资编码Sheet1.Range(Sheet1.Cells(10, 9), Sheet1.Cells(mItemCount - 1, 9)).Copy (ActiveSheet.Range("F3"))   '名称Sheet1.Range(Sheet1.Cells(10, 16), Sheet1.Cells(mItemCount - 1, 16)).Copy (ActiveSheet.Range("G3")) '单位Sheet1.Range(Sheet1.Cells(10, 17), Sheet1.Cells(mItemCount - 1, 17)).Copy (ActiveSheet.Range("H3")) '数量Sheet1.Range(Sheet1.Cells(10, 19), Sheet1.Cells(mItemCount - 1, 19)).Copy (ActiveSheet.Range("I3")) '单价Sheet1.Range(Sheet1.Cells(10, 20), Sheet1.Cells(mItemCount - 1, 20)).Copy (ActiveSheet.Range("J3")) '金额Sheet1.Range(Sheet1.Cells(10, 5), Sheet1.Cells(mItemCount - 1, 5)).Copy (ActiveSheet.Range("L3"))   '来往单位Sheet1.Range(Sheet1.Cells(10, 7), Sheet1.Cells(mItemCount - 1, 7)).Copy (ActiveSheet.Range("M3"))   '库房名称'填写序号Dim i As IntegerFor i = 3 To mItemCount - 8 Step 1Cells(i, 1) = i - 2Next iEnd Sub

中燃料场报表生成器--出库报表相关推荐

报表生成器FastReport .Net报表的使用原则
FastReport .Net是适用于Windows Forms,ASP.NET,MVC和.NET Core的全功能报表解决方案.它可以在Microsoft Visual Studio 2005-20 ...
ssrs报表教程_SSRS报表生成器简介和教程
ssrs报表教程 The SSRS report builder is a powerful tool for data visualization. In this article, we will ...
报表生成器的必备知识,及报表主流软件
报表生成器,是面向业务用户的.用于创建报表的工具.市场上有许多报告生成器,大多是基于java web实现的工具.什么是报表生成器产品?报表生成器如何生成报表?本文来介绍报表生成器的必备知识,及报表主流 ...
入库出库JAVA技术详情_基于Java_EE的入库出库管理系统
Java EE的出入库管理系统设计与实现江西理工大学信息学院计算机技术专业刘阳学号:2010G047 摘要: 随着企业规模的扩大,仓库管理系统将发挥越来越重要的作用.高效方便的仓库管理系统,可以为生 ...
WMS出库作业流程简介
一.WMS出库作业的基本概念 WMS出库作业是指将已经确认出库的物料,按照出库单上的要求,从仓库中取出并发运到指定地点的整个过程.WMS出库作业需要遵循一定的流程和规定,以确保出库的准确性和高效性. ...
wms系统的出库单价是这样自动生成的？
wms仓库管理软件中,出库单价是可以自动填写,因为自动生成价格通常有几种情况,所以,用户可以在参数设置,单据定义中设置如何自动产生出库价. wms仓库管理软件 1.按成本价根据用户选择的成本算法(先 ...
2021-05-26wms系统的出库单价是这样自动生成的？
wms仓库管理软件中,出库单价是可以自动填写,因为自动生成价格通常有几种情况,所以,用户可以在参数设置,单据定义中设置如何自动产生出库价. wms仓库管理软件 1.按成本价根据用户选择的成本算法(先 ...
SAP MM 并非奇怪现象之MB5B报表查不到某一笔出库记录？
物料号:1301002696 工厂代码:2160 MB5B,如下查询条件, 查询结果中,期初与期末库存数量都是0,期间的出库入库数量都是0.事实上该物料期初应该是有库存的.并且我用MB51相同时间段查 ...
SQL Server报表生成器中的R脚本词云
什么是R (What is R) R is a very popular data programing language. R is especially used in data analysis ...
进销存ERP系统、销售单、采购单、退货单、库存管理、库存盘点、调拨、借入、借出、出库、入库、归还单、收款单、付款单、资金流水、销售报表、采购报表、库存报表、财务报表、商品库、电商erp、连锁erp
进销存ERP系统.销售单.采购单.退货单.库存管理.库存盘点.调拨.借入.借出.出库.入库.归还单.收款单.付款单.资金流水.销售报表.采购报表.库存报表.财务报表.商品库.电商erp.连锁erp A ...

中燃料场报表生成器--出库报表

中燃料场报表生成器--出库报表相关推荐

最新文章

热门文章