MS Access生成静态随机数失败，求可行解决建议

看起来你是在Access或VBA环境里尝试生成固定的静态随机数，但遇到了公式每次刷新都重新计算的问题——这是个很常见的坑，毕竟Rnd()函数本身就是动态计算型的，只要触发工作表/窗体刷新，它就会重新生成数值。咱们一步步来解决：

问题根源分析 #

你原公式的问题主要有两点：

• Rnd([Numbers]+11111111) 里的参数会随着[Numbers]变化（或每次刷新）触发重新计算，导致随机数一直变动；
• 公式逻辑有小错误，正确的区间随机数计算应该是 Int((上限 - 下限 + 1) * Rnd + 下限)，你原格式把下限加到了Rnd的参数里，偏离了正确逻辑。

两种有效解决方法 #

方法1：用VBA生成一次性静态随机数（推荐批量场景） #

如果需要批量生成固定随机数，直接用VBA生成后赋值为纯数值（而非公式），这样就不会再随刷新变化。示例代码如下：

Sub GenerateStaticRandomNumbers()
    Dim lowerBound As Long
    Dim upperBound As Long
    Dim targetRange As Range
    Dim cell As Range
    
    ' 设置随机数范围：11111111到99999999
    lowerBound = 11111111
    upperBound = 99999999
    
    ' 替换成你要生成随机数的目标单元格范围，比如Sheet1的A1:A100
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A100")
    
    ' 遍历单元格生成随机数并赋值为静态数值
    For Each cell In targetRange
        cell.Value = Int((upperBound - lowerBound + 1) * Rnd + lowerBound)
        ' 如果需要格式化为文本，可添加下面这行
        ' cell.NumberFormat = "@"
    Next cell
End Sub

运行这个宏后，单元格里会直接是固定的数字，再也不会随刷新变动。

方法2：手动将公式结果转为静态值（适合少量数据） #

如果不想用VBA，可以先临时用公式生成随机数，再把结果转为静态值：

1. 先输入修正后的公式（去掉会触发变动的[Numbers]参数）：

   =INT((99999999-11111111+1)*RND()+11111111)
   

2. 选中生成了随机数的单元格，按Ctrl+C复制；
3. 右键点击单元格，选择「粘贴选项」里的「值」（或按Ctrl+Shift+V，不同版本快捷键可能略有差异）。
   这样公式就会被替换成固定数值，不再动态变化。

额外提示：固定随机种子（适合需要可重复的静态随机数） #

如果需要每次生成的随机数序列完全一致（比如测试场景），可以在VBA开头设置固定随机种子：

' 设置固定种子（比如123），每次运行都会生成相同的随机序列
Randomize 123

把这行代码加到上面的VBA宏开头即可。

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