기금넷 공식사이트 - 복권 조회 - 대신은 VBA 로 테이블 10 을 찾고 8 을 선택하여 중복되지 않는 배열을 모두 찾습니다.
대신은 VBA 로 테이블 10 을 찾고 8 을 선택하여 중복되지 않는 배열을 모두 찾습니다.
1 2 3 4 5 6 7 8
1 2 3 4 5 6 7 9
1 2 3 4 5 6 7 10
1 2 3 4 5 6 8 9
1 2 3 4 5 6 8 10
1 2 3 4 5 6 9 10
1 2 3 4 5 7 8 9
1 2 3 4 5 7 8 10
1 2 3 4 5 7 9 10
1 2 3 4 5 8 9 10
1 2 3 4 6 7 8 9
1 2 3 4 6 7 8 10
1 2 3 4 6 7 9 10
1 2 3 4 6 8 9 10
1 2 3 4 7 8 9 10
1 2 3 5 6 7 8 9
1 2 3 5 6 7 8 10
1 2 3 5 6 7 9 10
1 2 3 5 6 8 9 10
1 2 3 5 7 8 9 10
1 2 3 6 7 8 9 10
1 2 4 5 6 7 8 9
1 2 4 5 6 7 8 10
1 2 4 5 6 7 9 10
1 2 4 5 6 8 9 10
1 2 4 5 7 8 9 10
1 2 4 6 7 8 9 10
1 2 5 6 7 8 9 10
1 3 4 5 6 7 8 9
1 3 4 5 6 7 8 10
1 3 4 5 6 7 9 10
1 3 4 5 6 8 9 10
1 3 4 5 7 8 9 10
1 3 4 6 7 8 9 10
1 3 5 6 7 8 9 10
1 4 5 6 7 8 9 10
2 3 4 5 6 7 8 9
2 3 4 5 6 7 8 10
2 3 4 5 6 7 9 10
2 3 4 5 6 8 9 10
2 3 4 5 7 8 9 10
2 3 4 6 7 8 9 10
2 3 5 6 7 8 9 10
2 4 5 6 7 8 9 10
3 4 5 6 7 8 9 10
VBA 코드 프로그램:
명시적 옵션
부분조립품 10 선택 8 ()
어두운 I&, I1& I2&, i3&, i4&, i5&, i6&, i7&, i8&
I 1 = 1 ~ 3 의 경우
I2 = I 1+0 ~ 4 의 경우
I3 = I2+1 ~ 5 의 경우
I4 = i3+1 ~ 6 의 경우
I5 = i4+1 7 인 경우
I6 = i5+1 에서 8 까지의 경우
I7 = i6+1 에서 9 까지의 경우
I8 = i7+1 끝 10 의 경우
I = I+1
Cells(i,1) = I1& "& ampi2 & amp" & ampi3 & amp "& ampi4 & amp" & ampi5 & amp "& ampi6 & amp" & ampi7 & amp "
그 다음 i8, i7, i6, i5, i4, i3, I2, I 1
끝단 접합