02
"홈" 을 찾아 오른쪽을 클릭한 다음 "리본에 개발자 탭 표시" 확인란을 찾아 확인을 누릅니다.
03
개발 도구를 눌러 개발 컨트롤을 호출합니다.
04
전송된 개발 컨트롤, 레이블 2 개, 텍스트 상자 2 개, 1 버튼을 사용합니다. 엑셀 지식과 결합하여 다음과 같은 인터페이스를 만듭니다.
05
매크로는 뷰 또는 개발 도구에서 찾을 수 있습니다. 그런 다음 매크로 편집을 켭니다.
06
VBA 코드를 추가합니다.
옵션 기반 1
크기 t 1 긴' 범위 1
T2 를 긴 범위 2 로 설정합니다
정수 형태의 복권 번호
Dim num 은 정수입니다
Sub auto_open ()
신청하다. OnKey“{ ENTER} ","CJ "
신청하다. OnKey "~ ","CJ "
끝단 접합
정수 형태의 공용 함수 tj(lb)
K 를 정수로 치수기입합니다
K = 2
하다
MyR = 장 수 (포인트) 를 설정합니다. 셀 (k, 1)
트리밍하는 경우 (말레이시아 달러. 값) = ""then' 에 빈 레코드가 있습니다.
수출 Do
만약 ... 끝날거야
K = k+1
오류까지 루프
Tj = k-1
기능을 종료합니다
공용 함수 CSF ()
Num = tj("temp ")
워크시트 포함 (임시)
T 1 =. 셀 (숫자, 3) 입니다. 가치
T2 =. 셀 (숫자, 4) 입니다. 가치
로 끝맺다
워크시트 ("복권 계획"). 텍스트 상자 1. 텍스트 = t1.
워크시트 ("복권 계획"). 텍스트 상자 2. Text = T2 입니다.
기능을 종료합니다
공용 함수 CJ ()
Num = tj("temp ")
Csf 에 전화하다
Cjsz 에게 전화
기능을 종료합니다
공용 함수 cjsz ()
치수 r( 10)
I = 1 끝 10 의 경우
Xh = False
하다
D = int ((T2-t1+1) * rnd+t1)
J = 0
하다
J = j+1
R(j) = d 인 경우
Xh = False
수출 Do
기타
Xh = True
만약 ... 끝날거야
J>= 나
Xh = True 까지 루프
R (I) = D.
다음으로 저는
크기 b( 1 끝 10)
I = 1 끝 10 의 경우
B(i) = 적용. 워크시트 Function.Small(r, I)
워크시트 ("복권 계획"). 레이블1입니다. 제목 = ""
그리고 나서
J = 1 끝 10 의 경우
I = 1 ~ 2000 의 경우
제가 Mod 100 = 0 이면
여러 활동
만약 ... 끝날거야
M = int ((T2-t1+1) * rnd+t1)
워크시트 ("복권 계획") label2.caption = format (m, "00000")
다음으로 저는
D = b(j)
워크시트 ("복권 계획") label2.caption = format (d, "00000")
워크시트 ("복권 계획"). 태그 1. 제목 = 워크시트 ("복권 계획"). 태그 1. 제목&; "& 워크시트 ("복권 계획 ") 탭 2. 제목
다음 J.
Nn = TJ ("통계")
워크시트 사용 (통계)
。 셀 (nn+1, 1). 값 = nn
。 셀 (nn+1, 2). 값 = 날짜
。 셀 (nn+ 1, 3). 가치 = 워크시트 ("복권 계획"). 레이블1입니다. 제목
로 끝맺다
I = 1 끝 14 의 경우
J = nn+2-I
J> 라면 1
워크시트 사용 (통계)
A =. 세포 (nn+2-I, 2). 가치
C =. 세포 (nn+2-I, 3). 가치
로 끝맺다
워크시트 포함 ("추첨 절차")
。 셀 (I+1, 14). 값 = a
。 셀 (I+1, 15). 값 = c
로 끝맺다
기타
종료 ...
만약 ... 끝날거야
다음으로 저는
기능을 종료합니다
07
버튼을 클릭하여 테스트하고 무작위 당첨 번호를 받으십시오.