엑셀 자동 추첨 VBA 문제

VBA 를 사용하면 쉽게 완성할 수 있으며 생성된 난수는 A 1 셀에 배치됩니다.

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

Dim 플래그는 부울 값이고 iNum 은 정수입니다

하다

INum = 응용 프로그램. 워크시트 함수. RandBetween( 1, 50)

플래그 = false

INum & gt= 20 이고 iNum & lt 인 경우 = 25

플래그 = 참

만약 ... 끝날거야

Flag = True 일 때 루프

셀 (1, 1) = iNum

끝단 접합