找回密码
 注册
楼主: 香格里拉

[分享] 模压产品用料和压力计算之VBA方法

 火... [复制链接]

该用户从未签到

 楼主| 发表于 2012-2-13 18:59:56 | 显示全部楼层
对初学者来说,很方便。感谢吴工!

谢谢,因工作需要我编制了三十多个统计,财务方面的VBA程序,比如各生产车间只要填写好日报表,由VBA程序自动填写月报表,仓库只要填写日报表,由VBA程序自动填写月报表及原料,产品入库出库详细分类汇总,库存情况详细分类汇总.这样统计人员只要填写好每天的流水账即可.且日报表和月报表是100%的一致,随时随地可把日报表变成月报表.速度上是立等可取.忙里偷闲顺便编制了一些工艺文件方面的VBA程序.

评分

参与人数 1技术 +5 收起 理由
PTFE + 5 不错的精品文章!

查看全部评分

回复

使用道具 举报

该用户从未签到

发表于 2012-2-13 20:12:36 | 显示全部楼层
这程序 怎么弄  谢谢
回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-13 20:36:21 | 显示全部楼层
本帖最后由 香格里拉 于 2012-2-14 21:00 编辑

有些氟友下载后不会使用,我在此再写点使用说明:
1 office默认状态宏安全性设置为高,你必须把他设置为中.否则在宏启动时会弹出安全警告.设置方法如下:
打开任何一张EXCEL表格(空白的也可以)点击工具栏上面工具=>选项=>在弹出的框内点击安全性=>在弹出的框内右下角点击宏安全性按钮=>在弹出的框内选择中=>确定
2下载后,把Excel放在桌面上,点击后在弹出的安全警告框内点击中间启用宏按钮=>点击工具栏上面调节字体大小(字号)旁边我添加的按钮即可运行,这样比较方便.我已把此按钮的属性和对象设置好了.也可以按下面3的方法操作
3下载后,把Excel放在桌面上,点击后在弹出的安全警告框内点击中间启用宏按钮=>点击工具栏上面的工具=>在下拉框内点击宏=>在弹出框内点击宏=>第一次在弹出框内点击一下框内出现的产品用料和压力计算,使"产品用料和压力计算"这几个文字跳入上面空白框内(以后不需要这一步操作)=>最后点击执行按钮即可.

评分

参与人数 1技术 +5 收起 理由
PTFE + 5 很详细!

查看全部评分

回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-13 21:06:23 | 显示全部楼层
你经过试用后再把压机吨位栏改成你厂里的数据,缸径面积栏填上对应的数据,这样就变成了你需要的模压产品用料和压力计算VBA程序.

评分

参与人数 1技术 +2 收起 理由
PTFE + 2 感谢您参与主题讨论!

查看全部评分

回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-13 21:46:43 | 显示全部楼层
金山等国产办公软件免费的个人版是没有运行宏的功能的因此无法运行此程序,只有专业版有此功能.

评分

参与人数 1技术 +2 收起 理由
PTFE + 2 感谢您参与主题讨论!

查看全部评分

回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-16 21:53:14 | 显示全部楼层
其实 我觉得一个简单的excel表格就能解决问题啦 没必要用到宏

光计算用料和压力一张EXCEL是能解决的,但像本厂烧结温度和时间曲线多算出来的,不用宏恐怕无法解决吧.

评分

参与人数 1技术 +2 收起 理由
PTFE + 2 感谢您参与主题讨论!

查看全部评分

回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-16 22:06:59 | 显示全部楼层
压力计算就是 针对不同压机的表压换算 根据 P1*S1=P2*S2 很容易就可以啦

调用IF函数(可以7重嵌套)不够用的话再加条件格式,压力计算就不需要P1*S1这种东西了.

评分

参与人数 1技术 +2 收起 理由
PTFE + 2 感谢您参与主题讨论!

查看全部评分

回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-16 22:32:56 | 显示全部楼层

压力计算就是 针对不同压机的表压换算 根据 P1*S1=P2*S2 很容易就可以啦

如果不会调用函数,就用笨办法也能直接算出压力.在EXCEL每一行写好压机吨位和缸径面积,填好计算公式.计算后压力太大或太小就换一行重算.

评分

参与人数 1技术 +3 收起 理由
PTFE + 3 感谢您参与主题讨论!

查看全部评分

回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-18 21:20:40 | 显示全部楼层
捕捉-10.jpg
用一张EXCEL表格计算模压产品用料和压力的方法今也传上来,下面附件是含公式的EXCEL表格,不知道EXCEL上传后公式还能不能保存.
Book1.xls (17 KB, 下载次数: 18)

评分

参与人数 1技术 +6 收起 理由
PTFE + 6 不错的精品文章!

查看全部评分

回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-20 22:16:46 | 显示全部楼层
一张EXCEL表格计算方法是我厂以前用的,现在用的是VBA的。你应该把填充料的也一起算出来这样比较好。

评分

参与人数 1技术 +2 收起 理由
PTFE + 2 感谢您参与主题讨论!

查看全部评分

回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-21 20:31:48 | 显示全部楼层
那张EXCEL是我那天晚上临时搞的,对一般厂已经可以了。以前我们用的设置了好几个自定义函数,比如铜粉的比重,石墨的比重等。这些东西不便公开,所有那张表上是没有的。

评分

参与人数 1技术 +2 收起 理由
PTFE + 2 感谢您参与主题讨论!

查看全部评分

回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-22 21:18:18 | 显示全部楼层
学习了不少东西

对氟友能有帮助使我很开心
回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-22 21:29:44 | 显示全部楼层
是啊 好多东参数都是经过无数次试验总结而来的 ,这也是一个成熟配方能立足于市场的基础

氟友们比较熟悉的PCTFE,PVDF,PFA,PEEK等原料,我经过二年时间的探索才得出它们烧结温度,烧结时间曲线的VBA程序。

评分

参与人数 1技术 +2 收起 理由
PTFE + 2 感谢您参与主题讨论!

查看全部评分

回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-2-23 23:02:00 | 显示全部楼层
我们主攻模压PTFE管料

机加工能力强的话,多搞些机加工。

评分

参与人数 1技术 +1 收起 理由
PTFE + 1 感谢您参与主题讨论!

查看全部评分

回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2012-3-10 21:24:54 | 显示全部楼层
按我写的标题,文章到此应该还没有结束,仅关心用料和压力计算结果对VBA方法没有兴趣的氟友可以不看下面的内容。需要了解一些VBA知识的,请仔细阅读。.
对一个优秀程序员来说,你开发的应用程序应能和专业程序员不分上下,一般按下面步骤操作:
1 接受任务。
2 分析问题,设计方案。
3 编写程序,调试程序,修改程序,这一步需要大量的精力和时间。
4 封装程序。
5 安装程序。就是把封装程序打包。
今天给大家介绍的就是4,5二个内容。只有完成了这二步编程才算圆满结束。第四步对一般程序员来说还是比较复杂。程序封装格式有很多种,exe,dll等,为了保密现在都采用DLL格式封装程序, DLL格式就是用破解程序最多也仅能导出汇编程序,所以对破解人员来说毫无意义。封装方法网上和书上有不少介绍,虽然基本都不够完善,仅适合超级短的程序,但思路是准确的。对于有程序要封装的氟友还得再下点功夫从对象的属性和定义及类的属性和定义方面思考问题。程序安装就比较简单,网上有很多现存程序下载一个就可以了。我附件中是用最简单的WinRAR做的。下载后放在桌面,双击后仅出现一个许可文本对话框就开始安装程序,最后在桌面上自动生成一个名称为氟塑的文件夹,里面有DLL文档和EXCEL文档,打开EXCEL文档,按我以前说得操作即可。
很遗憾由于封装格式DLL和WinRAR做的安装格式是EXE附件无法上传,只好上传个再次压缩的rar文件。

氟塑.rar

63.75 KB, 下载次数: 12

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|免责声明|手机版|Archiver|氟塑料论坛 ( 苏ICP备14011106号-3 )

GMT+8, 2024-12-26 23:21 , Processed in 0.107087 second(s), 20 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表