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

只看该作者 · 发表于 2013-7-2 17:01:21

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

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

只看该作者 · 发表于 2013-7-2 17:42:12

Francis 发表于 2013-7-2 17:01
試一下把約在第3行的
Dim TotalW As Double
改為

謝謝悶大抽空回覆，阿丹試了下，還是有問題…
抱歉俺不懂宏…有勞悶大再指導了…
【修改】

【執行後偵錯結果】

只看该作者 · 发表于 2013-7-2 18:01:03

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

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

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

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

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

只看该作者 · 发表于 2013-7-2 18:11:34

本帖最后由 Francis 于 2013-7-2 18:42 编辑

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

只看该作者 · 发表于 2013-7-2 19:19:04

本帖最后由 gt.adan 于 2013-7-2 19:36 编辑

Francis 发表于 2013-7-2 18:11
可能依然會有問題，因為Val傳回的不是double，需再加上CDbl才可傳回正確的double給custPropMgr.Add所用。

回覆悶大…操做成功了！
阿丹不懂宏，所以問了很多蠢問題，盼誤怪…
####################################################
發現會有第一次的提問，是因為阿丹根本沒有打開零件就運行了新建的宏…{:soso_e118:}
自己的操作錯誤引來悶大花了不必要的時間幫阿丹解答…俺自己先去罰站了…
再試了下，先建零件再運行宏(用悶大1樓提供的原始碼)，完全沒問題~
謝謝悶大不厭其煩的回覆阿丹，也抱歉浪費了您的時間…{:soso_e183:}

只看该作者 · 发表于 2013-7-2 20:03:03

謝謝悶大的好物！正在學習，期待自己有天也能做一個實用的巨集~

只看该作者 · 发表于 2013-7-2 20:27:41

不得不学的好东西啊

只看该作者 · 发表于 2013-7-2 20:42:47

不知道我这个算对的还是错的呢？

只看该作者 · 发表于 2013-7-3 11:36:59

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

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

只看该作者 · 发表于 2013-7-3 12:05:10

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

看了上门的丹大的，我怎么显示是重量不是单重

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

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源