[길벗북마스터]엑셀2010 책 당첨자를 위한 난수표 생성기 강좌!!

>> 난수표 정의

0 ~ 9 로 이루어진 랜덤한 숫자표

하지만 각 숫자가 출현할 확률은 동일해야함.

예를 들어, 숫자 6 * 10 의 난수표 라고 하면, 각 0 ~ 9 의 숫자가 6번씩 나와야 함

>> 만들기

1. 엑셀을 실행시키고 적당한 위치에 난수표의 제목을 써줍니다.

2. 개발도구 > 삽입 에서 단추를 선택하여 오른쪽 상단에 그려줍니다. 

3. 매크로 지정 창이 나오면 적당한 이름 ex) 난수표생성_Click 를 입력후 "새로 만들기" 를 선택합니다.

4. 아래와 같이 입력합니다. ( 사진 아래쪽에 실제 소스를 올렸습니다 )

Option Explicit Sub 난수표생성_Click() ' 0부터 9까지 숫자집합이 5번 반복 ' 즉, 5 * 10 의 난수표를 만들기 위한 것 Dim staticNumber(1 To 60) As Integer Dim i As Integer Dim j As Integer j = 1 For i = 1 To 60 staticNumber(i) = j j = j + 1 If (j = 10) Then j = 0 Next i Dim temp As Integer Dim index As Integer '섞어주기 For i = 1 To 60 index = Int(60 * Rnd + 1) temp = staticNumber(i) staticNumber(i) = staticNumber(index) staticNumber(index) = temp Next i '순서대로 워크시트에 출력 Dim colNumber As Integer i = 6 j = 2 index = 1 colNumber = j + 10 Do Worksheets("sheet1").Cells(i, j).Value = staticNumber(index) j = j + 1 index = index + 1 If (j >= colNumber) Then j = 2 i = i + 1 End If Loop While index <= 60 End Sub

5. 버튼 이름을 "생성" 으로 바꿔줍니다. 

6. "생성" 버튼을 클릭하면 아래쪽에 난수표가 생성됩니다.

7. 참쉽죠?

>> 최종 결과파일

난수표생성기.xls