作者hedis1010 (豆子丁)
看板Visual_Basic
標題[VBA ] 溢位問題
時間Fri Jun 22 16:26:31 2018
當b值達到100左右時就會溢位，想請問如何解決
程式碼如下所示：
Sub cal()
Dim b As Long
n = Range("H3")
r = Range("H4")
b = Range("H5")
For i = 3 To n + 2
Cells(i, 4) = Cells(i, 2) ^ b ← 溢位
Cells(i, 5) = WorksheetFunction.Ln(Cells(i, 2))
Next i
Cells(6, 8) = (WorksheetFunction.Sum(Range(Cells(3,4),Cells(n+2,4)))/r)^(1/ b)
End Sub
謝謝
--
◢◤▅▇▇▆▄
▃▄▄▂ ▂▄▄▂◢◢▃▂▇▇▂▃▃▂ ▃▅▄▆◤
▊ ▃▆▎
▊ ▃▄▅▂ ▅▆▆▂ ▆▄▄
▇ ▃▄▄▃
▏ ▃▅▆ ◤
▌ ▎
▉▏
▉▍ ▃▄▂ ▌
▎ ▃▄ ▏
▃▂ ▎ ▂▃ ▋
▅▂▁ ▅
▎
▎▍▏ ▃▂▂▄
▃ˍ▄
▎
▄▂ ▅
▎ ▂▃ ▂▁ ▃▅▆
▎
◥◣▄▂ˍ▂▄ ▅▄▂▂▄ ▂▃▂▂ ▃ ▃ ▄ ▄▋
▄▃▃▅ ▄
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 140.124.76.60
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1529655997.A.705.html
1F：→ MOONRAKER: 沒救吧噗 給你算到100次已經很爽了好嗎 06/23 00:42
2F：推 paul60209: Cells(i,4)=CLng(Cells(i,2).Value)^b 06/26 12:14
3F：→ paul60209: 試試看，因為不清楚你數字到底放到多大 06/26 12:14
4F：→ paul60209: Cells(i,4)=CDec(Cells(i,2).Value)^CDec(b) 06/26 12:17
5F：→ MOONRAKER: 他需要cdbl吧噗 而且本來可能就是浮點在算 clng死更快 06/28 11:55