[엑셀 실무_로또]꿈에서 본 숫자(들)는 고정(포함)시키고 나머지 숫자 무작위로 로또 번호 뽑기( pick up numbers except for some numbers)

-------------------------------------------------------------------------------- 좋아요/구독 눌러주세요. 큰 힘이 됩니다. -------------------------------------------------------------------------------- 질문 사항이 있으시면 [email protected]으로 해 주세요. File Link: https://drive.google.com/open?id=1gZG... '--------------------------------------------- Sub get_Lotto_number() '--------------------------------------------- Dim i As Long Dim ocol As VBA.Collection: Set ocol = New Collection '----------------------------------------------------- ' add numbers into basket '----------------------------------------------------- For i = 1 To 45 ocol.Add i Next i Dim j As Long, r As Long Dim sTemp As String Dim l As Long ' 추첨된 숫자를 저장할 ArrayList Dim oList As Object: Set oList = CreateObject("System.Collections.ArrayList") '------------------------------------------- Dim sLike As String '------------------------------------------- ' 꼭 들어가야 될 숫자 sLike = InputBox("꿈에 본 본 숫자를 ,구분하세요", "[꿈에 본 숫자]", "5,20,8") ' 배열 Dim vLike As Variant: vLike = Split(sLike, ",") Dim Y As Long ' ArrayList에 추가하고 Collection에서 삭제 For Each v In vLike Y = Int(v) oList.Add Y Next ' 나머지 숫자 뽑기 '----------------------------------------------------- For j = 1 To (6 - oList.Count) Do ' make random index r = Application.WorksheetFunction.RandBetween(1, ocol.Count) l = Int(ocol.Item(r)) ' ArrayList에 존재하지 않는 값이면 추가 If Not oList.contains(l) Then oList.Add l Exit Do End If Loop Next ' ArrayList Sort oList.Sort ' 배열로 변환한 후 시트에 뿌리기 Range("D5").Resize(1, 6).Value = oList.toArray End Sub