엑셀 추첨 절차는 반복되지 않습니다.

초기화 버튼을 추가해야 합니다. 코드는 다음과 같습니다. (commandbutton 1 은 다음, commandbutton2 는 초기화 버튼입니다.)

Dim arr (), 개수

개인 하위 명령 버튼 1_Click ()

수< 가 그렇다면 = 29

N = int (rnd * (ubound (arr)-lbound (arr)+1))+lbound (arr)

텍스트 상자 1. 텍스트 = 배열 (n)

Cells (count+ 1, 10) = arr (n)' 테스트 코드를 삭제할 수 있습니다.

셀 (count+ 1, 1 1) = n' 테스트 코드를 삭제할 수 있습니다.

수 = 수+1

Arr(n) = arr(UBound(arr))

UBound(arr)> 1 그리고 ReDim Preserve arr( 1 에서 UBound(arr)-1) 인 경우

기타

MsgBox' 모든 인원이 담배를 다 피웠다'

만약 ... 끝날거야

끝단 접합

개인 하위 명령 Button2_Click ()

ReDim arr( 1 ~ 30)

불규칙하게 만들다

텍스트 상자 1. 텍스트 = ""

I = 1 30 까지의 경우

Arr(i) = Cells(i, 1)

그리고 나서

MsgBox "초기화됨"

개수 = 0

끝단 접합