云易云模具管理软件

提供全面的管理思路!

当前位置: 首页
> 管理课堂
> 光器件零部件MES >excel进行生产报表的分析处理 标签:员工绩效,生产看板,,生产报工
产品分类
  • 销售管理
  • 项目管理
  • 工艺管理
  • 设计管理
  • 模具管理
  • 生产管理
  • 仓库管理
  • 采购/委外管理
  • 质量管理
  • 热门管理课堂
  • 模具erp系统介绍
  • 模具企业生产ERP/MES管理系统软件解决方案
  • 模具管理软件MES制造执行系统
  • 生产企业MES管理软件系统详解
  • excel进行模具管理之VBA编程
  • 模具仓库管理体系的三个层次
  • 模具厂ERP管理软件概述
  • ERP管理系统实现最低量的库存与最快速的周转
  • 自动智能排程APS软件系统高级计划和排程的价值
  • 模具运作流程与软件的必要性
  • 影响模具生产成本的要素
  • 库存积压、物料混乱、人工盘点,你的仓库管理为什么那么累?
  • 模具与零件数控加工的切削刀具
  • 模具生产管理之员工绩效及薪资计算
  • 如何选择APS排程进行生产计划管理?
  • 如何才能做好生产计划,物控工作,PMC/生管部门流程与岗位职责;...
  • 模具ERP、MES、APS排程几种信息管理软件系统集成简述
  • excel进行模具管理数据库编程
  • 模具管理系统中加工工艺简述
  • 模具设备保养与维护维修方法方案
  • 热门功能
  • 模具厂自动智能排程APS软件系统怎么排?
  • 模具MES的生产报工方式
  • ERP软件系统中订单管理怎么操作跟踪?
  • 模具ERP/MES中项目管理的操作方法
  • 模具BOM管理软件的导入与BOM申购管理
  • 模具ERP软件中物料产品配置系统是怎么使用?
  • 模具库存物料条码管理系统、物料管理模块软件
  • 模具行业加工生产过程零件进度报表
  • 零件委外、设计委外、生产工序委外外协、外协供应链管理系统
  • excel进行生产报表的分析处理

    时间:2019-12-12 10:12 浏览数:2843
    导读:模具管理中有生产绩效报表,进度报表、产能负荷报表、机台负荷报表等等,将数据进行分组汇总后,看到的数据还是不够直观,所以要进行图表的建立。如果要生成每个模号的图表。

    模具管理中有生产绩效报表,进度报表、产能负荷报表、机台负荷报表等等,将数据进行分组汇总后,看到的数据还是不够直观,所以要进行图表的建立。如果要生成每个模号的图表。

    第一种方式:建立模板文件,将数据复制进去即可形成图表,这里的前提是分组的数据要用公式先设置好,如果分组是动态的,或者不显示零值的数据。那么就要采用第二种方式。

    第二种方式:通过取数据库数据,然后在excel菜单中点击按钮进行拉取数据,过滤处理后,然后进行分组统计,最后显示数据和图表,这样数据是最新格式,可按程序指令进行格式处理,保证数据的准确安全。并且运行速度是最快的。

    云易云软件基于数据库管理系统,Excel相结合的方式进行模具管理与生产绩效报表分析。Excel的便捷在于,报表的深度加工处理,很多管理系统都无法调整到个性化级别。以及报表电子档方式发送到客户供应商。对于上游客户需要进行产量、质量报备的情况下。数据库与VBA代码可提供管理信息系统的改造,实现企业的生态化管理。

    图片5.png

     

    以下为生成图表的源码,有问题可咨询QQ:53757591

    Private Sub 生成图表(ByVal sh As String, ByVal a1 As Integer, ByVal a2 As Integer, ByVal tol As Long)
    Dim mychart As String
    Dim i As Integer
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
        Charts.Add
        mychart = ActiveChart.Name
        ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="两轴线-柱图"
        ActiveChart.SetSourceData Source:=Sheets(sh).Range("A65536"), PlotBy _
            :=xlColumns
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(1).XValues = "='" & sh & "'!R" & a1 & "C2:R" & a2 & "C2"
        ActiveChart.SeriesCollection(1).Values = "='" & sh & "'!R" & a1 & "C3:R" & a2 & "C3"
        ActiveChart.SeriesCollection(2).Values = "='" & sh & "'!R" & a1 & "C9:R" & a2 & "C9"
        ActiveChart.Location where:=xlLocationAsObject, Name:=sh
        ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="两轴线-柱图"
        With ActiveChart
            .HasTitle = False
            .Axes(xlCategory, xlPrimary).HasTitle = True
            .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "不良项目"
            .Axes(xlValue, xlPrimary).HasTitle = True
            .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "不良数"
            .Axes(xlCategory, xlSecondary).HasTitle = False
            .Axes(xlValue, xlSecondary).HasTitle = True
            .Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "累积影响度"
        End With
        ActiveChart.HasLegend = False
        ActiveChart.Axes(xlValue).AxisTitle.Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .ReadingOrder = xlContext
            .Orientation = xlVertical
        End With
        ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .ReadingOrder = xlContext
            .Orientation = xlVertical
        End With
        ActiveChart.Axes(xlValue).Select
        With ActiveChart.Axes(xlValue)
            .MinimumScale = 0
            .MaximumScale = tol
            .MinorUnit = 4
            .MajorUnit = tol / 5
            .Crosses = xlAutomatic
            .ReversePlotOrder = False
            .ScaleType = xlLinear
            .DisplayUnit = xlNone
        End With
        ActiveChart.Axes(xlValue, xlSecondary).Select
        With ActiveChart.Axes(xlValue, xlSecondary)
            .MinimumScale = 0
            .MaximumScale = 100
            .MinorUnit = 25
            .MajorUnit = 25
            .Crosses = xlAutomatic
            .ReversePlotOrder = False
            .ScaleType = xlLinear
            .DisplayUnit = xlNone
        End With
        ActiveChart.SeriesCollection(1).Select
        With Selection.Border
            .Weight = xlThin
            .LineStyle = xlAutomatic
        End With
        Selection.Shadow = False
        Selection.InvertIfNegative = False
        Selection.Interior.ColorIndex = xlNone
        With ActiveChart.ChartGroups(1)
            .Overlap = 0
            .GapWidth = 0
            .HasSeriesLines = False
            .VaryByCategories = False
        End With
        ActiveChart.PlotArea.Select
        With Selection.Border
            .ColorIndex = 16
            .Weight = xlThin
            .LineStyle = xlContinuous
        End With
        Selection.Interior.ColorIndex = xlNone
        For i = 1 To ActiveSheet.ChartObjects.Count
            ActiveSheet.ChartObjects(i).Select
            ActiveChart.ChartArea.Select
            ActiveSheet.Shapes(i).Left = Range("J31").Left
            ActiveSheet.Shapes(i).Top = Range("J31").Top
            ActiveSheet.Shapes(i).Width = Range("S43").Left - Range("J31").Left
            ActiveSheet.Shapes(i).Height = Range("S43").Top - Range("J31").Top
        Next i
    End Sub

    返回
    模具管理软件QQ咨询 联系云易云微信
    模具项目管理在线留言 在线留言
    ERP即时沟通
    返回顶部