Excel RANDBETWEEN 하나의 복제 허용

Question

저는 Excel, VBA에서 꽤 발전했습니다. 그러나 RANDBETWEEN 수식을 사용하고 단 하나의 복제 만 허용하는 방법을 찾기 위해 문제가 발생했습니다.

예 : 50 명으로 구성된 목록이 있습니다. 각 사람에게 1-25 사이의 숫자를 줄 수 있어야하지만 번호는 한 번만 나타날 수 있습니다. 그래서 두 사람이 숫자 1을 갖게 될 것입니다. 두 사람은 2 등을 갖게 될 것입니다 ....

아이디어가 있으십니까?

Answer 1

RANDBETWEEN 그런 식으로 작동하지 않습니다. 그냥 두 개의 지정된 숫자 사이에 임의의 숫자를 반환합니다. (한 번만 무작위로 번호를 할당 한 경우!)

'somethings'(즉, 1부터 25까지의 숫자, 1에서 25까지의 숫자, 색상, 이름 등)를 무작위로 지정해야하는 경우 파일, 등 등)가이처럼 할 수있는 빠른 방법 : 기본적으로 그냥

1. 각 항목)이 필요한만큼 자주 나타나는 하나의 열에있는 모든 가능성의 목록을 (만들어

   을

은
2. 각 숫자 옆에 =RAND()이 포함 된 두 번째 열을 추가하고
3. RAND()이있는 열을 기준으로 목록을 정렬하십시오.

   

   ---

   RAND()

는 pseudo-random number 0과 1을 반환한다.

따라서 RANDBETWEEN (x,y)은 정확히 INT(RAND()*y)+x과 같습니다.

단지 문제를 혼동하기 위해서은 VBA의 동일한 기능이 철자가 맞습니다. RND()입니다.

• 워크 시트 또는 VBA에서 더 많은 숫자는 Chip Pearson's site입니다.

• 무엇이든 lists을 포함하여 게으른 방식으로 무작위로 지정하는 경우는 random.org입니다. A51 (50 명)하고 해당 범위 B2에서 임의의 숫자를 할당 할 :

Answer 2

가정 당신의 이름은 범위 A2에, 당신은 ... 이런 식으로 뭔가를 시도 할 수 B51

Sub getRandomNumbers(ByVal Rng As Range, ByVal bottomNum As Integer, topNum As Integer) 
Dim i As Long, Num As Integer 
Rng.Cells.Clear 
For i = 1 To Rng.Cells.Count 
    Num = Application.RandBetween(bottomNum, topNum) 
    Do While Application.CountIf(Rng, Num) = 2 
     Num = Application.RandBetween(bottomNum, topNum) 
    Loop 
    Rng.Cells(i) = Num 
Next i 
End Sub 

당신은 표준 모듈에 위의 절차가 제공, 당신은 ... 대상 범위, 바닥 번호와 아래처럼 그것을 가기 숫자 매개 변수를 전달 후를 호출 할 수

Sub AssignRandomNumbers() 
getRandomNumbers Range("B2:B51"), 1, 25 
End Sub 

Answer 3

원하는 경우 하나의 수식으로이 작업을 수행 할 수 있습니다 .....당신이 B2이 공식을 사용할 수있는 헤더 또는 공백을 포함 A2:A51 및 B1에서

가정 이름은 그냥 각각의 2 있었다는 것을 확인하기 위해 F 열에서 COUNTIF 공식을 사용

=AGGREGATE(14,6,ROW(INDIRECT("1:25"))*{1,1}/(COUNTIF(B$1:B1,ROW(INDIRECT("1:25")))<{1,2}),RANDBETWEEN(1,51-ROWS(B$1:B1)))

아래로 복사 영업의 특정한 경우를 들어 수