我现在正在尝试编写一个脚本,从一份餐食列表中随机抽取一餐并在日历中输入 . 它产生4周(周日至周六),每周两餐 . 我希望每次从列表中抽出一顿随机餐来检查已经拉过的饭菜,以防止同一餐在一个月内出现两次 . 以下是我写的:

Dim ranDnr As Integer
Dim ranDnr2 As Integer
Dim usdMls(3) As Integer
Dim usdMls2(3) As Integer

Sub GnrtMlsMnthClndr()
Randomize

For i = 0 To 3
For j = 0 To 3
For x = 2 To 17 Step 5
For y = 2 To 17 Step 5

    ranDnr = Int(60 * Rnd + 1)

    While IsInArray(ByVal ranDnr, ByVal usdMls) = True
        ranDnr = Int(60 * Rnd + 1)
    Wend
    usdMls(i) = ranDnr
    Worksheets("Sheet1").Cells(x, 1) = Worksheets("Sheet2").Cells(ranDnr, 1)

    ranDnr2 = Int(60 * Rnd + 1)

    While IsInArray2(ByVal ranDnr2, ByVal usdMls2) = True
        ranDnr2 = Int(60 * Rnd + 1)
    Wend
    usdMls2(j) = ranDnr2
    Worksheets("Sheet1").Cells(x, 9) = Worksheets("Sheet2").Cells(ranDnr2, 1)

Next y
Next x
Next j
Next i

End Sub

Public Function IsInArray(ByVal ranDnr, ByVal usdMls) As Boolean
    'Dim i
    For i = 0 To 3
        If usdMls(i) = ranDnr Then
            IsInArray = True
            Exit Function
        End If
    Next i
    IsInArray = False

End Function

Public Function IsInArray2(ByVal ranDnr2, ByVal usdMls2) As Boolean
    'Dim i
    For i = 0 To 3
        If usdMls2(i) = ranDnr2 Then
            IsInArray2 = True
            Exit Function
        End If
    Next i
    IsInArray2 = False

End Function

我对VBA缺乏经验,并且完全不知道为什么这不起作用,因为它对我来说似乎合乎逻辑,并且在运行它时不会产生任何错误 . 可以提供任何可能提供的援助 .