Công thức để tạo ra 25 số ngẫu nhiên trong năm

[SA_DQ]

tungchualang

Mình đang tìm một công thức để chọn ra 25 số ngẫu nhiên trong 1 cột kết quả nhiều số có 2 chữ số trong một năm mà số này cách số kia không vượt quá 15 ngày (thì một trong 25 số đó lại xuất hiện). nhờ bạn giải giúp. xin trân trọng cám ơn

 

[huuthang_bd]

tungchualang

Mình đang tìm một công thức để chọn ra 25 số ngẫu nhiên trong 1 cột kết quả nhiều số có 2 chữ số trong một năm mà số này cách số kia không vượt quá 15 ngày (thì một trong 25 số đó lại xuất hiện). nhờ bạn giải giúp. xin trân trọng cám ơn

Thông thường để chọn ngẫu nhiên thì dung các hàm Rand(). Nếu thêm điều kiện có lẽ phải chèn thêm một số hàm. Bạn thử tạo một CSDL ảo rồi post lên thử xem.

 

[SA_DQ]

Đâm lao phải theo lao thôi

Nếu thêm điều kiện có lẽ phải chèn thêm một số hàm. Bạn thử tạo một CSDL ảo rồi post lên thử xem.

A|B|C|D
Ngay | Num || Selection
1/1/2009|09||59
1/2/2009|35||71
1/3/2009|90||03
1/4/2009|53||39
1/5/2009|39||. .
1/6/2009|30|
1/7/2009|20|
1/8/2009| 59 |
1/9/2009|77|
1/10/2009|05|
1/11/2009|99|
1/12/2009|44|
1/13/2009|66|
1/14/2009|37|
1/15/2009|07|
. . . |. .||
1/18/2009|59|
1/19/2009| 71 |
. . . |. .||
. . . | 03 ||
2/10/2009|09|
2/11/2009| 39 |
2/12/2009|14|
2/13/2009|60|
2/14/2009|76|
2/15/2009|77|
. . . |. .||
. . . |. .||

 

[ChanhTQ@]

Trong khi chờ các nhà thiện nghệ về công thức, các bạn xem đỡ cái ni

Option Explicit
Sub SoNgau()
 Dim jJ As Integer, SoNg As Integer
 
 Range([b2], [b2].End(xlDown)).Interior.ColorIndex = 0
 For jJ = 1 To 25
   Randomize
   SoNg = SoNg + Int(15 * Rnd()) + (jJ Mod 11)
   With Cells(SoNg, "B")
      Cells(jJ + 1, "D").Value = .Value
      .Interior.ColorIndex = 34 + (jJ Mod 6)
      Cells(jJ + 1, "C").Value = .Row
   End With
 Next jJ
End Sub

 

[huuthang_bd]

Chọn 25 ngày ngẫu nhiên theo điều kiện trước, rồi từ những ngày chọn được dò ra số cần tìm. Mời bạn xem file. F9 để thay đổi các số chọn.