Excel 을 사용하여 3d 복권에서 이중 간격을 계산하는 방법

1. 새 EXCEL 스프레드시트를 작성하고 "bit 1? 2 위? 세 번째 장소 "는 그림과 같습니다.

2. 메뉴 막대 개발 도구 -Visual Basic 을 클릭합니다. VBA 편집기를 열고 코드를 입력하면 됩니다.

3. VBA 편집기에서 메뉴 막대 삽입-모듈을 클릭하여 코드 편집기를 열고 빈 공간에 코드를 채웁니다.

4. 코드를 입력합니다.

옵션 기반 1

하위 복리후생 복권 번호 ()

Dim n 은 정수, I 는 정수, j 는 정수입니다

Dim l () 은 정수입니다

N = 적용. InputBox ("3D 복권 번호 입력:", "행운의 숫자",,,,,,,, 2)

L(n, 7) 을 정수로 다시 설정합니다

I = 1 끝 n 의 경우

J = 1 ~ 3 의 경우

불규칙하게 만들다

L(i, j) = Int( 10 * Rnd)

그리고 나서

그리고 나서

I = 1 끝 n 의 경우

J = 1 ~ 3 의 경우

시트 (6). 셀 (I+1, j+1) = l(i, j)

그리고 나서

디버깅. 인쇄

그리고 나서

끝단 접합

5. 엑셀 워크시트로 돌아가서' 개발도구'-삽입-버튼을 클릭하고 십자화살표를 끌어 직사각형 버튼을 그리고' 매크로 지정' 대화 상자를 팝업한다. 매크로 이름 Sheet5 를 선택합니다. 복권 번호 "를 클릭하고 확인을 클릭하십시오.

6. 버튼을 마우스 오른쪽 버튼으로 클릭하고 "텍스트 편집" 을 선택한 다음 버튼 이름을 "3D 숫자 선택" 으로 변경합니다. 지금 버튼을 클릭하면' 3D 복권 번호 입력' 대화 상자가 나타납니다. 우리는 "6" 을 입력하고 확인을 클릭하면 6 세트의 무작위 복권이 나타납니다.