Workbook_Open事件中Rnd函数返回固定值问题求助

问题根源在于VBA随机数生成器的种子初始化逻辑：Excel启动时，随机数生成器的种子是固定值，直接调用Rnd会生成相同序列的第一个结果，导致每次打开文件都返回7。

解决方法 #

在调用Rnd之前执行Randomize语句，它会基于系统当前时间重置随机数种子，确保每次生成的随机数序列不同。

修改后的代码示例 #

方式1：在Welcome宏内初始化种子

Public Sub Welcome()  
    Dim WelcomeStart As String  
    Randomize ' 基于系统时间初始化随机数生成器种子
    wsAssistant.Range("D2") = 1 + Round(Rnd * 9, 0)  
    WelcomeStart = WorksheetFunction.VLookup(wsAssistant.Range("D2"), wsAssistant.Range("B2:C11"), 2, 0)  
    wsAssistant.Range("E2") = WelcomeStart  
End Sub

方式2：在Workbook_Open事件中提前初始化种子

Private Sub Workbook_Open()  
    Application.DisplayFullScreen = True  
    UserForm1.Show  
    Randomize ' 先重置随机数种子
    Welcome 
    wsAssistant.Range("E2").Speak  
End Sub

补充说明 #

• Randomize不带参数时，默认使用系统计时器的返回值作为种子，足够满足日常随机需求。
• 若需要覆盖B2:B11的1-11范围，可将1 + Round(Rnd * 9, 0)修改为1 + Round(Rnd * 10, 0)。

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