인생은 로또인 거 같습니다. 네 그냥 안 맞습니다. 그래도 혹시라는 마음으로 한주 로또를 구입하게 됩니다. 매주 사는 로또번호를 수동 또는 자동 구입하는데 둘 다 내 맘대로 번호를 뽑고 싶다는 마음에 로또 전체번호(랜덤번호)를 엑셀 VBA로 만들게 되었으니 필요하신 분들은 아래 내용 보시고 받아가시기 바랍니다.
로또당첨번호 조회
로또 당첨번호는 스마트폰에 네이버 어플만 있으면 로또당첨번호를 조회하실 수 있습니다.
당첨번호 조회방법
동행복권에서 당첨번호를 가져오는 크롤링을 윤자동 채널분께서 만드셨는데 시간이 오래 지나 작동방식이 바뀐 걸 확인했습니다.
바뀐 점은 Request URL과 Request Method 그리고 Content-Type 코드인데요 수정한 코드를 적용하면 다음과 같이 동행복권에서 전체 회차 및 1 회차씩 불러올 수 있으니 참고하세요.
전체 회차 번호 불어오기
＊로또 전체 당첨 번호 불어오기
1. 전체회차 추가 K셀안에 마지막 회차번호를 입력
2. 1번 회차 번호에 따라 1회 차부터 입력한 회차까지 순차적으로 불러옵니다.
예) 숫자 20을 입력 후 전체회차번호 불러오기 클릭 = 1회 차 ~ 20회 차까지 불러옵니다.
＊로또 전체 당첨 번호 불러오기 완료
＊로또 당첨번호 1 회차씩 불러오기
1. N셀 안에 불러올 회차 번호 입력
2. 1 회차씩 불러오기 버튼 클릭 시 마지막 해당 회차 번호는 열에 맞춰 불러옵니다.
예) N셀 안에 22회 차 숫자를 입력 + 1 회차씩 불러오기 버튼 클릭 = 23열에 22회 차 당첨번호 불러오기 완료
4. 로또 당첨번호 내림차순 정렬
※ 로또 내림차순 정렬은 동행복권에서 불어온 회차 당첨번호는 1회 차부터 순차적으로 불러오기 때문에 최신순으로 보고 싶은 분들은 "정렬 필터"에서 "내림차순 정렬"하면 최신 당첨번호부터 보실 수 있습니다.
반대로 "오름차순 정렬" 하시면 다시 1회 차부터 정렬되며 회차씩 불러올 때 오름차순으로 정렬한 다음 1 회차씩 불러오고 다시 내림차순 정렬하면 최신순으로 볼 수 있게 되니 참고하세요.
(로또 전체조합 엑셀 다운로드 안내)
 |
 |
 |
 |
| 네이버 메뉴 선택 | 렌즈 선택 | 로또당첨 번호 조회 |
로또당첨 번호 확인 |
(동행복권) 로또 전체조합 Ver_1.2 엑셀 실행하기 전 보안 차단 해제를 먼저 하신 후 작업해야 하니 해당 내용에 따라 차단 해제를 해주시길 바랍니다.
1. 마우스 우클릭 > 속성
2. 보안 > 차단 해제 체크 적용
이렇게 보안 차단 해제를 먼저 해주셔야 엑셀에서 매크로 실행이 되니 참고하세요.
로또 전체번호 및 랜덤번호 추출
로또 전체번호를 찾는 분들이 있으신 거 같아서 몇 가지 기능 추가로 같이 만들어봤습니다. 기능은 로또 전체조합, 번호삭제, 랜덤번호 추출 이렇게 3가지 있으니 아래 내용 참고하시기 바랍니다.
로또번호 전체조합
전체조합 코드는 간단합니다. 다만 '전체조합' 실행 시 개인의 PC성능에 따라 시간 소요가 됩니다. 전체조합을 만드신다면 시간의 여유를 두시고 기다리시면 전체조합이 완성되니 참고하시기 바랍니다.
 |
 |
| 전체조합 VBA | 전체조합 결과 |
로또번호 번호삭제
번호삭제는 B4열부터 B500번까지 당첨번호 예를 들어 1등 ~ 5등까지 번호를 입력하고 번호 삭제를 실행하면 전체번호에서 해당 번호만 추출해 '번호삭제' 시트 B2열부터 아래로 가지고 오는 기능입니다.
 |
 |
 |
| 번호삭제 VBA | 번호삭제 실행 | 번호삭제 완료 |
로또번호 랜덤번호 추출
랜덤번호 추출은 말 그대로 랜덤번호 추출로 보통 자동으로 하시는 분들도 계시는데 똑같은 개념이라고 생각하시면 좋겠습니다.
보통 역대 로또 번호를 '번호삭제' 실행으로 삭제한 다음 남은 번호로 '랜덤번호 추출'을 실행합니다.
 |
 |
 |
 |
| 랜덤번호 VBA | 랜덤번호 실행 |
랜덤번호 갯수 선택 |
랜덤번호 추출 완료 |
정리하면 '전체조합' 실행으로 B2:M1000003 열까지 전체조합이 만들어집니다. 여기서 '회차별 당첨번호'를 대입해 '번호삭제'를 실행하면 삭제된 번호를 제외한 나머지 번호가 'Next'시트에 남게 됩니다.
이때 '랜덤시트'에서 번호추출을 하면 삭제된 번호를 제외 한 나머지 번호를 추출하게 되는 구조이니 필요하신 분들은 다운로드하여가시기 바랍니다.
참고로 각 시트명을 변경하면 VBA작동하지 않으니 참고하시기 바랍니다.
오늘은 로또당첨번호 조회 및 전체번호(랜덤번호 추출) 엑셀 VBA에 대해서 알아봤는데요 로또는 그냥 취미로 하시는 걸 추천해 드리며 동행복권 업데이트 있을 시 첨부된 엑셀 VBA가 업데이트될 예정입니다. 미비하지만 재미로만 즐겨보시길 바랍니다.