作者yimean (溫柔殺手)
看板Office
標題[算表] VBA計算後溢位問題
時間Tue Jul 7 10:49:36 2020
軟體:Excel
版本:Office 365
各位版上的神人早上好。
我撰寫了一個簡單的用料計算程式。
執行的時候會卡在
PrPS = Round(1220 * 2440 * MP * Density * Thick / 10 ^ 6, 2)
錯誤資訊是"溢位"
我有嘗試把變數宣告為Variant或著甚至不宣告都出現這個問題
在儲存格中打公式不會有問題，但是在VBA中就會有。
在這應用情境中
MP=170, Density=2.7, Thick=2, length=133.5, width=133.5, buffer=2
煩請高手協助，感恩。
--------我是Code--------
Sub Non_circule_material_calculate(length As Single, width As Single, buffer
As Single, MP As Single, Density As Single, Thick As Single)
Dim R_L, R_W As Single 'R_L stands for remainder of length
Dim PsPS As Integer 'PsPP stands for pice per sheet
Dim PrPS As Variant 'PrPS stands for price per sheet
Dim PrPP As Single 'PrPP stands for price per pice
Dim CoilP As Variant 'Coil price
PrPS = Round(1220 * 2440 * MP * Density * Thick / 10 ^ 6, 2)
R_L = (1220 Mod (length + buffer)) * (length + buffer)
R_W = (1220 Mod (width + buffer)) * (width + buffer)
If R_L < R_W Then
PsPP = (1220 \ (length + buffer)) * (2440 \ (width + buffer))
PrPP = PrPS / PsPS
Else
'除卻第一種狀況只有等於與不等於的問題。如果是等於，那麼不論是哪一種排
法其實都沒有問題。
PsPP = (2440 \ (length + buffer)) * (1220 \ (width + buffer))
PrPP = PrPS / PsPS
End If
CoilP = Round((length + buffer) * (width + buffer) * MP * Density * Thick
/ 10 ^ 6, 2)
[D10] = CoilP
[D11] = PrPP
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.33.116.8 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1594090178.A.A66.html
※ 編輯: yimean (114.33.116.8 臺灣), 07/07/2020 10:50:36
1F：→ soyoso: 如無合適方式的話，可改為1 / 10 ^ 6 * 1220 * 2440 * MP 07/07 11:09
2F：→ soyoso: * Density * Thick 07/07 11:09
3F：→ soyoso: 或是 MP * Density * Thick * 1220 * 2440 / 10 ^ 6 07/07 11:16
4F：→ soyoso: 若要以原本1220 * 2440 * MP..的話，1220改為csng(1220) 07/07 11:19
5F：→ yimean: @s大Csng(1220)的解決方法是可行的，感謝。可是，為什麼 07/07 14:46
6F：→ yimean: 只有包一個1220就可以呢？煩請撥冗解惑，感謝。 07/07 14:47
7F：→ soyoso: 出現溢位的錯誤視窗，按說明有寫 07/07 14:59
8F：→ soyoso: 轉型為整數integer所以溢位 07/07 15:00
9F：→ soyoso: 當然以clng也是可以，目的就是不要被轉型 07/07 15:08
10F：→ yimean: @s大，我看了說明，說明也是只包一個，我的疑問是，為什麼 07/07 15:38
11F：→ yimean: 不是包整個算式。這跟內建函數的概念不太依樣呢。 07/07 15:39
12F：→ soyoso: 說明網頁內搜尋運算子，*運算子 07/07 16:03
13F：→ soyoso: 註解有寫result 的資料類型通常是運算式的相同的最精確運 07/07 16:03
14F：→ soyoso: 算式。 精確的順序，從最低到最精確，是Byte、integer(整 07/07 16:03
15F：→ soyoso: 數)、 Long、Single、Currency、Double.... 07/07 16:03
16F：→ soyoso: 1220*2440都是做為整數integer來運算，套到上述註解來看相 07/07 16:03
17F：→ soyoso: 同最精確就會是以integer，那就溢位了，那改以1220*MP來看 07/07 16:03
18F：→ soyoso: ，變數MP是single，最精確是single，所以不會溢位，這就是 07/07 16:03
19F：→ soyoso: 為什麼只要改一個就好，要clng、csng加在1220或2440都可以 07/07 16:03
20F：→ yimean: @s原來如此，感恩您。 07/08 11:20