중화사전망 - 서예자전 - 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' 를 종료합니다. 흡연을 마치면 담배를 끊으세요.
그리고 나서
끝단 접합