氟塑料企业生产计划安排VBA程序（原创首发）
生产计划安排合理与否直接关系到企业的交货信誉和效益。 考虑到氟塑企业规模都不是很大，产品订单的规格，数量，原料多比较凌乱，基本都是小批量，多规格多品种的订单。这样给生产计划的制定带来许多不便，尤其对当期产品计划的查询，汇总更是困难。哪个订单安排在哪几天生产很难立即查到，究竟哪个车间生产计划多，哪个车间生产计划少，由于没有及时的汇总资料也很难判断。针对这个情况，本人编写了一个氟塑企业生产安排应用程序。现提供给大家，希望对本论坛的氟友能有帮助。程序功能简介：
1 生产计划数据按车间归类。
2 自动设置当月日期和休息日期及调休日期。
3 在窗体中输入订单数据，数据自动导入工作表。
4 生产计划数据可导入，修改，查询，汇总。
5 全部生产计划数据可进行无限制次数的分类汇总，即每天可以N次汇总，方便管理人员随时查阅全部订单信息和各车间生 产计划安排信息，为及时平衡和调整各车间的生产计划提供详细而正确的资料。
6 本程序操作系统xp
7 程序默认安装路径D:\生产计划，在安装时可以根据需要修改安装路径。
8 程序在安装时自带反安装程序，在"D:\生产计划"文件夹内双击UnInstall 生产计划.exe,安装的程序将全部被删除。
9 登陆密码 张三 123，日期设置和调休设置密码222.
10 登陆后在汇总工作表D1单元格有操作说明按钮，点击后将打开详细操作说明书（doc格式文档）。也可在安装文件夹内找到操作说明书。在操作本程序前希望大家先看看操作说明书。
虽然本程序不是直接的氟塑生产工艺，但通过本程序把企业的生产计划安排得让生产管理人员心中有数，让车间操作人员心中有数，对企业按时交货，合理安排生产进度会起到不小的帮助，从而提高企业的市场信誉和生产效率。
另外考虑到氟友们对Excel操作平台可能不是很熟悉，在第一次运行宏（即程序）时，因为微软默认在安装Office系统时把宏安全性设置为高，这样程序是无法运行的（程序启动时会弹出警告框），只有把宏安全性设置为中或低才能运行程序。具体设置方法请参阅ttp://wenku.baidu.com/view/733de300581b6bd97f19eae5.html，03，07，10版都有详细说明。各位版主，不好意思这里给了个外网链接，目的是为了帮助对Excel操作平台不太熟悉的氟友们能顺利地使用程序，希望高抬贵手不要删了，谢谢。
下面是程序的操作说明和程序附件。
使用说明
本程序内工作簿，工作表名称均不允许更改。
1 点击“生产计划安排“工作簿启动登陆界面。输入正确密码后打开图2窗体。
图1
2 点击图2中车间名称打开对应车间名称的图3类型窗体。这里选择点击车削膜。登陆时图2窗体本月生产计划汇总按钮被屏蔽。
本帖最后由 香格里拉 于 2013-5-3 20:02 编辑
3 图3窗体是程序操作主界面，所有数据均在此窗体操作。
3.1点击查看数据按钮或修改按钮打开对应车间工作表。
3.2 点击退出按钮返回图2窗体。
3.3 工作表第1次打开时必须进行日期初始化，点击设置日期出现图4窗体。
4设置日期密码窗体。
4.1 输入正确密码后打开对应车间工作表，并自动在B1单元格填写当前年月，D1和D2单元格填写当月天数和出勤天数。
4.2 从F4-AJ4单元格填写当月每天日期，从F3-AJ3单元格填写当月每天对应的星期。
图4
5 点击返回窗体按钮回到图3界面
图5
6 在车间生产安排情况表B3和C3单元格可可输入当月休息日期，以星期形式表示。输入休息日期后，对应星期单元格颜色变成白色，字体红色。B2，D2单元格休息天数，出勤天数作相应更改。
图6
7 如有临时调休点击调休日期按钮，出现密码输入框，输入正确密码后，出现图8窗体。
图7
8 输入具体日期，这里输入8.
图8
9对应星期单元格颜色变成白色，字体红色。B2，D2单元格休息天数，出勤天数作相应更改。
图9
10 从4-9完成了日期初始化设置。现在可以进入具体操作。
10.1 点击返回窗体按钮回到图10界面。
10.2 在图10中选择各个下拉按钮出现由程序导入的产品原料，设备型号等数据，供操作人员选择，也可以手工输入数据。
10.3 点击产品名称下拉按钮，选择不同的产品名称，产品规格框内会有与产品名称对应的产品规格，即不同的产品名称会有不同的产品规格。
图10
11 点击确定按钮，数据将导入车间生产安排情况表。如图11.
11.1 点击查看数据按钮，打开车间生产安排情况表，但数据不导入车间生产安排情况表。
11.2点击修改按钮，打开车间生产安排情况表并解除工作表保护密码，但数据不导入车间生产安排情况表。
11.3点击退出按钮，返回图2界面。
图11
12 在图12窗体中选择产品名称，产品规格，点击查询按钮，程序将以产品名称，产品规格为依据在当前车间生产安排情况表中查找相关数据。
图12
13 查找结果采用信息框提示方式显示。如图13所示。
图13
14 点击返回窗体按钮继续输入数据。
图14