[VBA ] 溢位問題

[hedis1010 (豆子丁)]

當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://www.ptt.cc/bbs/Visual_Basic/M.1529655997.A.705.html
→ MOONRAKER: 沒救吧噗 給你算到100次已經很爽了好嗎
推 paul60209: Cells(i,4)=CLng(Cells(i,2).Value)^b
→ paul60209: 試試看，因為不清楚你數字到底放到多大
→ paul60209: Cells(i,4)=CDec(Cells(i,2).Value)^CDec(b)
→ MOONRAKER: 他需要cdbl吧噗 而且本來可能就是浮點在算 clng死更快