중화사전망 - 서예자전 - VBA 임의 고정 갱신?

VBA 임의 고정 갱신?

1: 참조 확인:

VBA 편집기를 열고 맨 위를 클릭합니다.

도구-참조-Microsoft 스크립트 런타임을 확인합니다.

모든 것을 검사해야 한다, 그렇지 않으면 다음 코드는 실행할 수 없다.

2 단계: 인코딩:

하위 임의 순서 ()

Dim DIC 를 새 사전으로, I&, irow & amp, k&, arr

Irow = Range(" A "& amp;; 네. 수). 끝내기 (3). 줄

Irow & lt2 가 종료 Sub' 데이터가 2 보다 작으면 종료됩니다.

Arr = range ("a1:a" amp; Irow) 를 참조하십시오

열 ("a"). ClearContents 는 a 열을 지웁니다.

I = 1 끝 UBound(arr) 의 경우

If arr(i,1) < & gt ""그러면 dic(i) = arr(i, 1)' 는 비어 있지 않은 값을 사전에 씁니다.

그리고 나서

I = 1 끝 irow 의 경우

K = Int(Rnd * DIC. "개수" 난수

범위 ("A" & ampI) = DIC. 항목 (k)' 은 그려진 데이터를 출력합니다.

Dic. Dic.keys(k 삭제 (k)' 사전에서 내보낸 데이터를 삭제합니다.

Dic 가 있는 경우. Count = 0, 그리고 Sub' 를 종료합니다. 흡연을 마치면 담배를 끊으세요.

그리고 나서

끝단 접합