함수 및 VBA 방법을 사용하여 이러한 문제나 유사한 문제를 해결할 수 있습니다.
솔직히 말해서, 소위 샘플링이란 단지 난수를 취하는 문제일 뿐이다.
먼저 함수를 사용하여 샘플링을 구현합니다
VBA 를 모르는 경우 아래의 의도적 순환법을 사용할 수 있지만 이론적으로는 100% 가 성공하지 못하고 숫자가 너무 많아 시간이 많이 걸린다.
A1input = if (sum ($ b $1:$ b $100) < > 100, int (rand () *1000+1), A 1)
B1input = countif ($ a $1:$ a4100, a 1
A 1:B 1 을 A 100:B 100 으로 드래그합니다.
그런 다음 도구 → 옵션 → 계산 → 반복 메뉴 작업을 수행합니다. 체크 → 최대 횟수 10000 → OK, A 1:B 100 은 항상 계산됩니다.
10000 회 작업이 실패하면 성공할 때까지 F9 키를 다시 눌러 작업을 수행할 수 있습니다. 성공하면 즉시 A 1:A 100 을 붙여넣고 B 1:B 100 의 내용을 지우고 체크 아웃 반복 작업을 완료해야 합니다.
둘째, VBA 샘플링 방법 사용
조건은 1 부터 1000 까지 100 개의 반복되지 않는 난수 (양의 정수) 를 선택하는 것입니다.
반복되지 않는 변수가 필요하기 때문에 순환 프로그램으로 판단해야 합니다.
가장 쉬운 방법은 매크로를 실행하는 것입니다. 다음 코드를 사용하면 100 개의 반복되지 않는 변수가 A 1 에 즉시 표시됩니다. A 100.
Sub My 샘플 ()
Dim xx( 1 에서 1000 까지) 는 정수입니다
T = 1 끝 100 의 경우
레란드:
X = int (rnd () *1000+1)
Xx (x) > 0 그리고 다시 착륙합니다.
R = r+1
셀 (r, 1) = x
Xx (x) = R.
그리고 나서
끝단 접합