이번시간에는 엑셀로 로또번호를 한번 생성하는 방법을 알아보도록 하자.
1. 무작위 번호 1~45번까지 만드는 방법
먼저 첫번째 방법은 아주 간단하게 로또번호 생성이 가능하다.
2.중복값없이 로또번호 생기게 하는방법
이부분 부터 약간 어려워진다. 왜냐하면 이전에 랜덤으로 나온숫자값을 인식하고 또 랜덤으로 돌려야하기 때문인데, 이렇게 될경우, 진짜 랜덤으로 나오는게 아니게 될 수 있다.
따라서 나는 vba를 사용해서 비복원추출 하는 코드를 짠뒤, 오름차순으로 정렬하는 코드를 만드려고한다.
|
Sub GenerateAndSortLottoNumbers()
Dim numberPool As Collection Dim selectedNumbers() As Integer Dim i As Integer, j As Integer Dim temp As Integer Dim lottoNumber As Integer Set numberPool = New Collection ReDim selectedNumbers(1 To 6) ' 1에서 45까지의 숫자를 numberPool 컬렉션에 추가 For i = 1 To 45 numberPool.Add i Next i ' 중복 없는 6개의 로또 번호 추출 For i = 1 To 6 Do lottoNumber = Int((45 - i + 1) * Rnd + 1) Loop While IsInArray(numberPool(lottoNumber), selectedNumbers) selectedNumbers(i) = numberPool(lottoNumber) numberPool.Remove lottoNumber Next i ' 선택된 번호를 오름차순으로 정렬 For i = 1 To 5 For j = i + 1 To 6 If selectedNumbers(i) > selectedNumbers(j) Then temp = selectedNumbers(i) selectedNumbers(i) = selectedNumbers(j) selectedNumbers(j) = temp End If Next j Next i ' 정렬된 번호를 Sheet1의 H3에서 H8에 입력 For i = 1 To 6 Sheets("Sheet1").Cells(i + 2, 8).Value = selectedNumbers(i) Next i End Sub ' 배열 안에 특정 값이 있는지 확인하는 함수 Function IsInArray(val As Variant, arr As Variant) As Boolean Dim i As Integer For i = LBound(arr) To UBound(arr) If arr(i) = val Then IsInArray = True Exit Function End If Next i IsInArray = False End Function |
자 그러면 버튼을 클릭할때마다 새로운 로또번호가 생성되는 방법을 알아보았다.
3. 로또번호를 사이트에서 가져오기
최신 로또번호를 로또사이트에서 가져오는 엑셀기능도 존재한다. 이것을 사이트에서 가져와서 , 구매한 로또번호를 엑셀에 모두 기입한뒤, 이번의 총 로또번호를 통한 수익도 바로 확인할 수 있는 기능을 제공하려한다.
해당코드를 입력하면된다. 그러면 로또사이트 시트에 최신로또번호가 몇번인지 버튼을 클릭하면 업데이트가 된다.
그렇다면 이걸 통해서 뭘 알수 있을까?
바로 이번 회차때 내가 얼마를 벌수 있는지 파악할 수 있다.
+ ) 로또 번호를 가져왔다면, 로또 당첨금액도 가져올수 있다.
4.3번에서 해당회차의 로또번호와 우리가 구매한 로또번호를 기입한다.
- 이렇게 하면 우리의 로또번호의 수익을 직접 기입하면서 확인이 가능하다. 많이 구매한사람들에게 유리하게 최대 20개로 세팅했다.
자 그러면 로또사이트 시트에서 내 수익을 본격적으로 확인할수 있다.
자, 이렇게 오늘은 엑셀로 로또사이트의 로또번호를 가져오고, 로또번호를 중복값없이 추출하는 방법에 대해서 알아봤다.
해당 엑셀파일에 대해서 랜덤하게 값을 입력하는 부분만 무료로 공유해드리겠다.
만약 이 엑셀파일 전체를 원하신다면 아래에서 선착순 다섯명에게는 단돈 5000원에 구매가 가능하니, 로또하나 샀다 생각하고 한번 구매해보는건 어떨까?
추가로 구매시, 리뷰 작성해주면 선착순 5명에게 2천원, 포토리뷰시 4천원의 리뷰이벤트를 진행하려한다.
(단돈 천원에 구매가능!)
https://smartstore.naver.com/do-excel/products/9807892917
엑셀 템플릿 둘러보기(무료템플릿 제공중!)
https://smartstore.naver.com/do-excel
엑셀 상담하기
https://open.kakao.com/o/seqScy0c
엑셀 로또번호생성 로또프로그램 [4천원할인 리뷰이벤트] : 엑셀x템플릿
[엑셀x템플릿] 초등학생도 사용하는, 쉬운데 유용한 엑셀 템플릿을 추구합니다.
smartstore.naver.com