기금넷 공식사이트 - 복권 조회 - 대신은 VBA 로 테이블 10 을 찾고 8 을 선택하여 중복되지 않는 배열을 모두 찾습니다.

대신은 VBA 로 테이블 10 을 찾고 8 을 선택하여 중복되지 않는 배열을 모두 찾습니다.

45 그룹 데이터는 다음과 같습니다.

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

끝단 접합