엑셀 함수로 랜덤추출 / VBA 로 로또번호 난수생성

 

안녕하세요 낭만고양이 입니다. 오늘은 엑셀 함수를 이용해서 설정한 범위의 셀에서 랜덤으로 셀데이타를 추출하는 방법과 엑셀 VBA를 이용해서 로또번호를 중복없이 생성하는 방법을 알아보도록하겠습니다.알아두면 유용하게 사용되는 함수와 VBA 이니 배워서 잘 사용하셨으면 ㅈ

 

=INDIRECT("A"&RANDBETWEEN(1, 12))

A열에 12개의 데이타가 있을때 위와같이 RANDBETWEEN 함수와 INDIRECT함수를 이용해서 랜덤으로 추출할수가 있습니다.

=INDIRECT("B"&RANDBETWEEN(1, COUNTA(B:B)))

이제 조금 응용해서 B열에 헤아릴수 없을만큼의 많은 데이타가 있을경우에는 위와같이 COUNTA 함수를 추가해서 랜덤으로 추출할수가 있습니다. 엑셀은 만능입니다. 안되는게 없습니다 ^^

로또번호 랜덤생성.xlsm

Sub example_12()
 
Dim lotto(1 To 7) As Integer
Dim i As Integer
Dim a As Integer
Dim ii As Integer
Dim n As Integer
Dim m As Integer
Dim sorttemp As Integer
 
i = 1
 
For i = 1 To 7                   
 
restart:
 
Randomize                       
   a = Int(Rnd * 50) + 1       
 
lotto(i) = a                      
            
 
            For ii = LBound(lotto) To (i - 1)       
                Select Case lotto(ii)             
                    Case lotto(i)
                  GoTo restart               
                End Select
            Next ii                  
 
Next i
 
 
 
For n = 1 To UBound(lotto) - 1
    
    For m = 1 To UBound(lotto) - n
        If lotto(m) > lotto(m + 1) Then
            sorttemp = lotto(m + 1)
            lotto(m + 1) = lotto(m)
            lotto(m) = sorttemp
        End If
    
    Next m
 
Next n                                                
 
Cells(4, 2).Resize(, UBound(lotto)) = lotto       
 
 
End Sub
 

VBA 를 이용해서 위와같이 로또 번호도 랜덤으로 추출할수가 있습니다. 위 엑셀 파일을 다운받아서 VBA 소스를 확인하실수가 있습니다.로또 많이 구입하시는분들에게 도움이 될수있는 파일이겠네요 ~^^ 위 소스는 제가 만든 VBA 는 아니라서 물어보셔도 답변은 못드립니다. 저도 인터넷으로 돌아다니다가 발견한 소스인데 출처가 어딘지는 모르겠네요 아시는분은 댓글달아주세요~

→  한글 엑셀에서 특수문자 단축키 넣기 꿀팁