宏：焊件切割清单中自动增加『单重』和『总重』的属性+3！（限額5位）

如果用过焊件，相信必会感到再加上重量属性时非常不便，
相关帖子：https://www.icax.net/487297p1p1 92楼的例子
如果焊件切割清单中存在100项的话，就要分别增加重量属性100次了，
一旦面对设变，那就更糟糕透了。

只要采取一些二次开发的伎俩，编写一个简单的宏，
每次更新的时候运行一下，那就无后顾之忧了。

如有谁人可以顺利应用并展示效果，加三分起！（限額5位）

游客，如果您要查看本帖隐藏内容请回复

zhanghaitao 发表于 2009-12-15 09:06
只有顶顶了,不懂红

不会吧，S大不是已经参加了ICT举办的二次开发技术交流会吗？怎么还会说不懂啊？

其实也不需要懂得什么，要尝试，只要复制内码到VBA编辑器即可运行，这是基本功啊。

由版主带头说不懂，这是不良现象，菜鸟们更会大条理由要求喂食。

gneful 发表于 2009-12-17 19:13
刚才试验了一下，
发现运行后没动静
反复测试未果。

结果把SW改为英文界面，有结果了

正在找变通的方案

（使用了SW2007和SW2010，测试结果是一样的）

********************************************** ...

非常感谢gneful兄帮忙反复测试！

渔樵兄啊，您兄有救了

還有一個加3分的名額啊！

zhoufors 发表于 2009-12-29 11:40
再顶起来看看情况怎样了

期待周兄的好消息

一口氣看了所有回帖，
兩年以來沒一人動手應用，剩餘的3分就不再送出了。

看來潮流是『只在乎擁有，不在乎使用』，難怪A片如此受歡迎。

gt.adan 发表于 2013-7-2 14:38
悶大午安，阿丹也碰上問題了，如下圖所示。
運行時總是出現這個回應，偵錯後指出紅線標示處有誤…
能請 ...

試一下把約在第3行的
Dim TotalW As Double
改為
Dim TotalW

gt.adan 发表于 2013-7-2 17:42
謝謝悶大抽空回覆，阿丹試了下，還是有問題…
抱歉俺不懂宏…有勞悶大再指導了…
【修改】

估計作業系統有別，導致“容錯”也有分別。

在悶人的電腦，String（文字）和直接當作 Double（雙精度浮點）使用，無需特意轉換。

機似主人型般嚴謹，蛋大的電腦不容馬虎，實在強大呀！

只需要利用Val函數，轉換原為string的TotalW為double即可解決。

可能依然會有問題，因為Val傳回的不是double，需再加上CDbl才可傳回正確的double給custPropMgr.Add所用。

wxg263 发表于 2013-7-2 20:42
不知道我这个算对的 还是错的呢？

怎麼答復了就不見人，這就是提問原則？{:soso_e132:}