[VBA ] 溢位問題
當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
→
06/23 00:42,
6年前
, 1F
06/23 00:42, 1F
推
06/26 12:14,
6年前
, 2F
06/26 12:14, 2F
→
06/26 12:14,
6年前
, 3F
06/26 12:14, 3F
→
06/26 12:17,
6年前
, 4F
06/26 12:17, 4F
→
06/28 11:55,
6年前
, 5F
06/28 11:55, 5F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章