ERP之物料查询系统

lotteryman

附件是一个物料库存分配到工单需求的后，可查还欠多少物料的，也可查还有多少剩余库存。
     有7100，7200两个不同的工厂，分别代表含税物料与不含税物料，并各自有个自的物料库存与工单需求。
     它们的关系是：
     1， 7100的工单（工单号以71开头）可以用7200的相同物料的库存；
     2， 但是7200的工单（工单号以72开头）不可以使用7100相同物料的库存；
     3， 7100工单使用7200物料库存时，须先使用7100物料库存，减去7100物料库存后还是欠料才可以使用7200物料的库存。
     4， 按需要日期的分后顺序来分配物料。
工作表： 物料需求与库存， 是用公式按日期把物料库存分配给工单需求，求出到此日期（每行的日期）的累计库存数，
         正数是还有库存，负数为欠料。
工作表： 欠料查询， 是用VBA把欠料数据从工作表“物料需求与库存”提取并显示；
工作表： 过剩物料料查询， 是用VBA把过剩物料数据从工作表“物料需求与库存”提取并显示；

lotteryman

补充说明：物料需求与库存需先排序，第一关键字段按物料， 第二关键字段按需要日期排序。
否则数据将不正确。

学生甲1

我建意兄弟把这段代码,放在你表格中关闭事件内,要不然好多兄弟就没有菜单栏了.

Sub HuiFu() '恢复模块
   ActiveWindow.DisplayHeadings = True '恢复行号列标
   ActiveWindow.DisplayWorkbookTabs = True '恢复工作表标签
   ActiveWorkbook.Protect , , False '恢复工作表左上角图标和右上角最小化/最大化/关闭按钮
      With Application
         .CommandBars.DisableAskAQuestionDropdown = False '恢复帮助
         .CommandBars("Standard").Visible = True '恢复常用工具栏
         .CommandBars("Formatting").Visible = True '恢复格式工具栏
         .CommandBars("Stop Recording").Visible = True '恢复常用工具栏
         .CommandBars("ply").Enabled = True '恢复工作表标签右键
         .CommandBars("cell").Enabled = True '恢复工作表右键
         .DisplayFormulaBar = True '恢复编辑栏
         .DisplayStatusBar = True
         .Caption = ""   '恢复标题栏
      With .CommandBars(1)
         .Controls("文件(&F)").Visible = True '恢复工作表菜单
         .Controls("编辑(&E)").Visible = True
         .Controls("视图(&V)").Visible = True
         .Controls("插入(&I)").Visible = True
         .Controls("格式(&O)").Visible = True
         .Controls("工具(&T)").Visible = True
         .Controls("数据(&D)").Visible = True
         .Controls("窗口(&W)").Visible = True
         .Controls("帮助(&H)").Visible = True
      End With
End Sub

lotteryman

我的程序里没有任何修改菜单栏的属性的语句呀？
我自己的菜单也没有任何变化过呀？
所以不明白，为什么会“要不然好多兄弟就没有菜单栏了”
请说明一下吗？
我加上以上代码，一点问题都没有，只是想了解清楚。

学生甲1

不好意思,兄弟我弄错了,对不起啊!

duwei9981

谢谢分享。

lotteryman

版主，你可以帮我优化吗？公式太长了。

TFQWFN

谢谢分享了

lotteryman

现在又加了一个功能，就是针对已开出的工单，判断是否齐料，如果未齐料，把所欠物料全部列出来。
文件放在办公室的电脑里，明天上传给大家。
不知对大家是否有用。

lotteryman

本想再上传一个更新版本：
增加每个欠料与已开工单的关联，即哪些工单已齐料，哪些工单欠料，欠什么物料。
增加过剩物料查询按金额大小来排序，以充分说明过剩物料中的A类物料状况。
增加每个欠料与所属采购员，所属供应商。
但是这个帖子不热，没有人气呀。
看来我这个EPR物料查询系统对大家没有什么用处的。