如何在VBA函数中引用单元格数值？事故概率计算函数优化

我来帮你调整这个VBA函数，让事故概率可以直接从单元格读取，不用每次硬改代码里的数值。这里有两种实用的方案，你可以根据需求选：

方案一：给函数增加概率参数（推荐，灵活性更高） #

这种方法让你在调用函数时直接指定概率所在的单元格，想用哪个单元格就用哪个，非常灵活。

修改后的VBA代码：

Public Function AccidentGenerator(N As Long, accidentProb As Double) As Long
    Application.Volatile
    Dim i As Long
    
    ' 先校验概率值是否合法（必须在0到1之间）
    If accidentProb < 0 Or accidentProb > 1 Then
        AccidentGenerator = -1 ' 返回-1表示参数错误，方便你识别问题
        Exit Function
    End If
    
    Randomize ' 初始化随机数生成器，放在循环外更高效
    For i = 1 To N
        ' 逻辑说明：当随机数Rnd()小于等于事故概率时，计数+1
        AccidentGenerator = AccidentGenerator + Int(Rnd() + accidentProb)
    Next i
End Function

使用方法 #

在Excel单元格里输入公式：
=AccidentGenerator(1000, A1)
其中：

• 1000是司机数量
• A1是你存放事故概率的单元格（比如在A1输入0.01代表1%的概率）

以后要修改概率，直接改A1单元格的数值就行，完全不用碰代码。

方案二：固定读取指定单元格的概率（适合不想加参数的场景） #

如果你希望函数调用更简单，不想每次写两个参数，可以直接在代码里指定读取某个固定单元格的概率值。

修改后的VBA代码：

Public Function AccidentGenerator(N As Long) As Long
    Application.Volatile
    Dim i As Long
    Dim accidentProb As Double
    
    ' 指定读取Sheet1工作表的A1单元格概率，你可以改成自己需要的单元格地址
    accidentProb = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    ' 校验概率合法性
    If accidentProb < 0 Or accidentProb > 1 Then
        AccidentGenerator = -1
        Exit Function
    End If
    
    Randomize
    For i = 1 To N
        AccidentGenerator = AccidentGenerator + Int(Rnd() + accidentProb)
    Next i
End Function

使用方法 #

直接在Excel单元格输入：
=AccidentGenerator(1000)
只要修改Sheet1的A1单元格的概率值，函数就会自动用新的概率计算事故数量。

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