Thống kê tập con của 1 tập hợp:( (1 người xem)

[omertaj123]

Chào các bạn. Giả sử mình có các số từ 1 tới 25, bây giờ mình muốn phân bố một cách ngẫu nhiên các số đó vào 1 bảng 5x5 (5 hàng x năm cột). Các số trong bảng đó không được lặp lại thì phải làm thế nào?
Làm sao có thể thống được tất cả các cách phân bố đó một cách nhanh nhất? Cảm ơn các bạn trước nhé

 

[ndu96081631]

Chào các bạn. Giả sử mình có các số từ 1 tới 25, bây giờ mình muốn phân bố một cách ngẫu nhiên các số đó vào 1 bảng 5x5 (5 hàng x năm cột). Các số trong bảng đó không được lặp lại thì phải làm thế nào?
Làm sao có thể thống được tất cả các cách phân bố đó một cách nhanh nhất? Cảm ơn các bạn trước nhé

Muốn ngon lành thì dùng code VBA, dựa vào hàm này:

Function UniqueRandomNum(Bottom As Long, Top As Long, Amount As Long)
  On Error Resume Next
  If Amount > Top - Bottom + 1 Then Amount = Top - Bottom + 1
  With CreateObject("Scripting.Dictionary")
    Do
      .Add Int(Rnd() * (Top - Bottom + 1)) + Bottom, ""
    Loop Until .Count = Amount
    UniqueRandomNum = .Keys
  End With
End Function

Giờ ta viết thêm 1 Sub để chạy:

Sub Main()
  Dim Rng As Range, Clls As Range, i As Long, Arr
  On Error Resume Next
  Set Rng = Selection
  Arr = UniqueRandomNum(1, 25, 25)
  For Each Clls In Rng
    Clls.Value = Arr(i)
    i = i + 1
  Next
End Sub

-------------------
Áp dụng:
- Quét chọn khối cell với kích thước 5x5
- Bấm Alt + F8, chạy Sub Main sẽ thấy kết quả

 

[omertaj123]

Cảm ơn bác Ndu. Bác đúng Master!

 

[omertaj123]

Hi hi, em làm được rồi anh ạ. Cảm ơn anh nhiều nhé