Проверка случайного значения по массиву для предотвращения дублирования - PullRequest
Новая
       17

Проверка случайного значения по массиву для предотвращения дублирования

0 голосов
/ 09 декабря 2018

В настоящее время я пытаюсь написать сценарий, который бы выбирал случайную еду из списка блюд и вводил их в календарь.Он генерирует 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 и совершенно не знаю, почему это не работает, так как это кажется мне логичным и не выдает никаких ошибок при запускеЭто.Буду признателен за любую помощь, которая может быть оказана.

...