作者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/cn.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