新VBA

Function PredictSortedSet(seedText As String, lineIndex As Integer) As Variant
Dim i As Integer, j As Integer, tmp As Integer
Dim seedVal As Long
Dim numbers As Collection
Dim selected(1 To 6) As Integer
Dim result(1 To 1, 1 To 6) As Integer

‘ シード値生成（安定性高め）
For i = 1 To Len(seedText)
seedVal = seedVal + Asc(Mid(seedText, i, 1)) * i
Next i
seedVal = seedVal + lineIndex * 999

Randomize seedVal

‘ 1～43の中から6個ランダムに選ぶ（重複なし）
Set numbers = New Collection
Do While numbers.Count selected(j) Then
tmp = selected(i)
selected(i) = selected(j)
selected(j) = tmp
End If
Next j
Next i

‘ 出力用配列（横並び）
For i = 1 To 6
result(1, i) = selected(i)
Next i

PredictSortedSet = result
End Function

=PredictSortedSet(TEXT($A$2,”yyyy-mm-dd”), 1)