MacOS VBA 16.36版Sqr()函数溢出错误调试求助（几何布朗运动模拟）

作为VBA新手遇到这种问题很正常，我来帮你分析原因并给出解决方案。

首先，你遇到的运行时错误‘6’：溢出，核心原因是变量类型的隐式转换问题——尤其是MacOS版本的VBA对Variant类型的处理和Windows版存在差异。你的代码里所有数值变量默认都是Variant类型，而InputBox返回的是字符串，直接赋值给Variant后，后续运算可能触发意想不到的类型转换，最终导致数值溢出。

具体修复方案 #

• 明确声明变量类型：给所有数值变量指定合适的类型（比如Double用于浮点数值，Long用于整数），避免Variant的隐式转换风险。
• 转换InputBox返回值为数值：用CDbl()（转双精度浮点数）或CLng()（转长整数）把InputBox返回的字符串转为数值类型，确保后续运算都是纯数值操作。

修改后的完整代码 #

Sub Simulating_Geometric_Brownian_Motion()
    ' 明确声明所有变量的类型，避免隐式转换问题
    Dim T As Double, S As Double, mu As Double, sigma As Double
    Dim dt As Double, SigSqrdt As Double, LogS As Double, drift As Double
    Dim i As Long, N As Long
    
    ' 将InputBox返回的字符串转换为对应数值类型
    T = CDbl(InputBox("Enter the length of the time period (T)"))
    N = CLng(InputBox("Enter the number of periods (N)")) ' N是整数，用CLng更合适
    S = CDbl(InputBox("Enter the initial stock price (S)"))
    mu = CDbl(InputBox("Enter the expected rate of return (mu)"))
    sigma = CDbl(InputBox("Enter the volatility (sigma)"))
    
    dt = T / N
    SigSqrdt = sigma * Sqr(dt)
    drift = (mu - 0.5 * sigma * sigma) * dt
    LogS = Log(S)
    
    ActiveCell.Value = "Time"
    ActiveCell.Offset(0, 1) = "stock price"
    ActiveCell.Offset(1, 0) = 0 ' 初始时间
    ActiveCell.Offset(1, 1) = S ' 初始股价
    
    For i = 1 To N
        ActiveCell.Offset(i + 1, 0) = i * dt
        LogS = LogS + drift + SigSqrdt * RandN() ' 修复了原代码漏掉drift项的逻辑错误
        ActiveCell.Offset(i + 1, 1) = Exp(LogS)
    Next i
End Sub

Function RandN() As Double ' 明确函数返回类型为Double
    RandN = Application.NormSInv(Rnd())
End Function

额外说明 #

我还修复了一个关键逻辑错误：原代码更新LogS时漏掉了drift项。几何布朗运动的对数形式公式是Log(S_t) = Log(S_0) + drift * t + sigma * sqrt(dt) * Z_t，必须加上drift才能正确模拟股价的趋势性变化。

用你提供的示例输入（T=1000, N=1000, S=10, mu=10, sigma=1）测试修改后的代码，应该就能正常运行，不会再出现溢出错误了。

内容的提问来源于stack exchange，提问作者vin win