I 3 개 값 (5, 4, 8) 및 I 10 개 세포

Question

I 10 셀 A1을 사이에 무작위로 배포 할 가지고 A1 : A10에서 무작위로 배포하므로 10 개 중 3 개만 채우고 나머지 7 개는 비어있게됩니다.

어떻게 만들 수 있습니까? 예

:리스트의 순서를 Randomise 1~10

행 번호의리스트 (또는 배열)를 확인 please see the screenshot

please see the other screenshot

Answer 1

2. 플롯의 수치 무작위 순서 A1 : 10 *
3. 이익!

4, 5, 8이 arent 상관 번호가 생성 및 배열을 무작위 화 및 A1로 인쇄 빈 셀

로 변환 될 수있다 : * 10

Sub RunShuffle() 
    Dim i As Integer 
    Dim j As Integer 
    Dim MyArray(9) As Variant 

    'Fill the array with numbers 1 to 10 
    For i = LBound(MyArray) To UBound(MyArray) 
     MyArray(i) = i + 1 
    Next i 

    'Randomise the order of the array 
    ShuffleArrayInPlace MyArray 

    'Print the randomised array to A1:10 
    For j = LBound(MyArray) To UBound(MyArray) 
     Sheets(1).Cells(j + 1, "A").Value = MyArray(j) 
     If MyArray(j) <> 4 And MyArray(j) <> 5 And MyArray(j) <> 8 Then 
      Sheets(1).Cells(j + 1, "A").Value = "" 
     End If 
    Next j 

End Sub 

'This Sub shuffles the array given as input 
Sub ShuffleArrayInPlace(InArray() As Variant) 
    Dim n As Long 
    Dim Temp As Variant 
    Dim j As Long 

    Randomize 
    For n = LBound(InArray) To UBound(InArray) 
     j = CLng(((UBound(InArray) - n) * Rnd) + n) 
     If n <> j Then 
      Temp = InArray(n) 
      InArray(n) = InArray(j) 
      InArray(j) = Temp 
     End If 
    Next n 
End Sub 

원본 무작위 화 코드 : CPearson.com

Answer 2

자동화하려는 경우 다음 VBA를 명령 단추에 연결할 수 있습니다. 숫자 4,5,8이있는 배열을 임의화할 수있는 방법에 대한 링크를 포함했습니다. TargetSheet라는 시트에서 실행 중이라고 가정합니다.

는

Option Explicit 

Sub AssignNumbers() 
Dim wb As Workbook 
Dim ws As Worksheet 
Dim rng As Range 
Dim x As Long, i As Long 
Dim Arr() 

Set wb = ThisWorkbook 
Set ws = wb.Sheets("TargetSheet") 
Set rng = ws.[A1:A10] 

Arr = Array(4, 5, 8) 'You can randomize this array as follows (somewhat irrelevant as assignment is random): _ 
http://www.cpearson.com/excel/ShuffleArray.aspx 

rng.ClearContents 

For i = 0 To 2 
    'Loop until we find an empty cell to place the value in 
    Do 
     x = Application.WorksheetFunction.RandBetween(1, 10) 
     'Exit the loop as soon as we find a place to put the value 
     If IsEmpty(rng.Cells(x, 1).Value) Then Exit Do 
    Loop 
    'Have found an empty cell - we can now set the value 
    rng.Cells(x, 1) = arr(i) 
Next i 
End Sub 

는

Answer 3

는 또한 일반 엑셀 수식이를 달성하고 여기 당신이 그것을 어떻게 할 수

• Column A : 당신이 언급 한 세 가지 값 (5, 4, 8을 입력) 및 하나의 빈 공간이있는 다른 7 개의 셀.

• Column B이 fomrula =INDEX($A$2:$A$11,RANK(B2,$B$2:$B$11))

이것이하는 일은 순위에 의해 비 중복 무작위 목록을 반환하는 것입니다 기입 :이 공식 =RAND()

Column C을 작성합니다. 따라서 빈 공간이있는 다른 7 개의 셀을 가져야합니다.

헤더 행이 있으므로 필요에 맞게 수식을 약간 조정해야 할 수도 있습니다. 시도하고 알려주세요.