이번시간에는 로또번호번호추출기 엑셀로 로또번호를 한번 생성하는 방법을 알아보도록 하자.​무작위 번호 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)​ ɱ에서 45까지의 숫자를 numberPool 컬렉션에 추가 For i ϑ To 45 numberPool.Add i Next i​ '중복 없는 6개의 로또 번호 추출 For i ϑ 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 ϑ To 5 For j =i + 1 To 6 If selectedNumbers(i) &gtselectedNumbers(j) Then temp 로또번호번호추출기 =selectedNumbers(i) selectedNumbers(i) =selectedNumbers(j) selectedNumbers(j) =temp End If Next j Next i​ '정렬된 번호를 Sheet1의 H3에서 H8에 입력 For i ϑ To 6 Sheets(Sheet1).Cells(i + 2, 8).Value =selectedNumbers(i) Next iEnd 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 㷺lseEnd Function클릭할때마다 로또번호 변함자 그러면 버튼을 클릭할때마다 새로운 로또번호가 생성되는 방법을 로또번호번호추출기 알아보았다.​​​3. 로또번호를 사이트에서 가져오기​최신 로또번호를 로또사이트에서 가져오는 엑셀기능도 존재한다. 이것을 사이트에서 가져와서 , 구매한 로또번호를 엑셀에 모두 기입한뒤, 이번의 총 로또번호를 통한 수익도 바로 확인할 수 있는 기능을 제공하려한다.​​해당코드를 입력하면된다. 그러면 로또사이트 시트에 최신로또번호가 몇번인지 버튼을 클릭하면 업데이트가 된다.그렇다면 이걸 통해서 뭘 알수 있을까?바로 이번 회차때 내가 얼마를 벌수 있는지 파악할 수 있다.​+ ) 로또 번호를 가져왔다면, 로또 당첨금액도 가져올수 있다.​​4.3번에서 해당회차의 로또번호와 우리가 구매한 로또번호를 기입한다.- 이렇게 하면 우리의 로또번호의 수익을 직접 기입하면서 확인이 가능하다. 많이 로또번호번호추출기 구매한사람들에게 유리하게 최대 20개로 세팅했다.​​자 그러면 로또사이트 시트에서 내 수익을 본격적으로 확인할수 있다.​​​자, 이렇게 오늘은 엑셀로 로또사이트의 로또번호를 가져오고, 로또번호를 중복값없이 추출하는 방법에 대해서 알아봤다.​해당 엑셀파일에 대해서 랜덤하게 값을 입력하는 부분만 무료로 공유해드리겠다.​​​만약 이 엑셀파일 전체를 원하신다면 아래에서 선착순 다섯명에게는 단돈 5000원에 구매가 가능하니, 로또하나 샀다 생각하고 한번 구매해보는건 어떨까?​추가로 구매시, 리뷰 작성해주면 선착순 5명에게 2천원, 포토리뷰시 4천원의 리뷰이벤트를 진행하려한다.(단돈 천원에 구매가능!)​​​​​ 엑셀 템플릿 둘러보기(무료템플릿 제공중!)​엑셀 상담하기​​​​