Tạo dãy số ngẫu nhiên trong khoảng không bị trùng lặp. (2 người xem)

[vanle33]

Trong Sheet 2 của file đính kèm. Tôi muốn tạo dãy số ngẫu nhiên không trùng trong khoảng (ví dụ từ 0 đến 100).
Dùng hàm RANDBETWEEN nhưng có các giá trị trùng.
Mong các thành viên chỉ giúp cách nào hoặc = công thức để thực hiện được yêu cầu trên.
Xin cảm ơn!

 

[befaint]

Tạo dãy số ngẫu nhiên không trùng

Trên diển đàn GPE đã có rất nhiều bài viết nói về vấn đề này! Tôi cũng đã tham khảo rất nhiều code ở các trang nước ngoài nhưng thấy rằng hầu hết đều viết rất khó hiểu và dài dòng! Trong 1 dịp tình cờ khi nghiên cứu về Dictionary Object, tôi nhận thấy rằng nó có khả năng làm được điều này mà...

www.giaiphapexcel.com

Tạo số ngẫu nhiên không trùng nhau trong danh sách có điều kiện

Em có một vấn đề như sau: Em cần tạo số ngẫu nhiên không trùng nhau cho một cột: Trường hợp 1: Em sử dụng = RANDBETWEEN (A4,A12) nhưng vẫn bị trùng lặp. Em muốn không trùng lặp số Trường hợp 2: Bây giờ chỉ lấy các thứ tự tương ứng ở cột A với các ô đã được đánh dấu ở trường hợp 2 để tạo ngẫu...

www.giaiphapexcel.com

Nhờ các bác code giúp tạo dãy 64 số từ 00 đến 99 không trùng

Nhờ các bác code giúp tạo dãy 64 số trong các số từ 00 đến 99 không trùng nhau em ko biết phải diễn tả như nào. Em có file đính kèm với yêu cầu bài trong đó ạ

www.giaiphapexcel.com

Tạo một số ngẫu nhiên không trùng từ dãy số cho trước

Mình đang viết code cho file excel để làm báo giá, với ý tưởng là quản lý từng báo giá theo một số code riêng biệt, và sẽ lưu các code này trong suốt quá trình sử dụng, Mình có tìm được hàm tạo số ngẫu nhiên nhưng chưa biết làm sao để tạo 1 số code ko trùng từ các số code đã lưu trước đó. Nhờ...

www.giaiphapexcel.com

https://www.giaiphapexcel.com/diendan/threads/nh%E1%BB%9D-ch%E1%BB%89nh-code-t%E1%BA%A1o-d%C3%A3y-s%E1%BB%91-ng%E1%BA%ABu-nhi%C3%AAn-kh%C3%B4ng-tr%C3%B9ng.125815

 

[LmoovoenX]

Cách này tuy không phải là tuyệt đối nhưng xác suất bị trùng rất thấp, bạn tham khảo.
Đầu tiên dùng hàm Rand() để tạo dãy số ngẫu nhiên.
Tiếp theo, dùng hàm Rank để lấy thứ tự của từng số trong dãy số ngẫu nhiên. Tuỳ thuộc bạn muốn lấy ngẫu nhiên trong phạm vi nào thì chọn range cho phù hợp. Trong sheet 3 mình lấy từ 1-100.

 

[vanle33]

Tôi muốn dùng công thức hoặc cách nào đơn giản nhất, không cần dùng VBA!
Kết quả hiển thị ở 100 cell là các số lần lượt từ 1 đến 100 không có số nào trùng với số nào!

Bài đã được tự động gộp: 4/1/23

Cách này tuy không phải là tuyệt đối nhưng xác suất bị trùng rất thấp, bạn tham khảo.
Đầu tiên dùng hàm Rand() để tạo dãy số ngẫu nhiên.
Tiếp theo, dùng hàm Rank để lấy thứ tự của từng số trong dãy số ngẫu nhiên. Tuỳ thuộc bạn muốn lấy ngẫu nhiên trong phạm vi nào thì chọn range cho phù hợp. Trong sheet 3 mình lấy từ 1-100.

Cảm ơn bạn.
Có thể xuất kết quả bảng dạng 10 dòng x 10 cột như trong Sheet 2 file tôi đính kèm ở bài #1 được không bạn?
Tôi muốn in gọn trong 1 trang A4 ngang.

 

[LmoovoenX]

Mình dùng Indirect nhé bạn.

 

[bebo021999]

Click vô nút "Tạo số" nhe bạn

Option Explicit
Sub random()
Dim i&, j&, r&, rng
Dim dic As Object
Set dic = CreateObject("Scripting.dictionary")
rng = Range("B1:K10").Value
For i = 1 To UBound(rng)
    For j = 1 To UBound(rng, 2)
        r = Int(Rnd() * 100) + 1
        Do While dic.exists(r)
            r = Int(Rnd() * 100) + 1
        Loop
        dic.Add r, ""
        rng(i, j) = r
    Next
Next
Range("B1:K10").Value = rng
End Sub

 

[hocexcel_1991]

Excel 365 đủ 5 từ

=WRAPCOLS(SORTBY(SEQUENCE(100,,0),RANDARRAY(100)),10)

 

[vanle33]

@bebo021999 : Muốn thay đổi số ngẫu nhiên lên đến 200 thì thay số 100 màu xanh trong code thành 200 à bác?
Em mù tịt về code! hihi.
@hocexcel_1991 : Cám ơn bạn. Nhưng xin lỗi tôi đã quên nói ở #1 là trong Excel 2010.

 

[bebo021999]

Một cách dùng công thức. Xác suất 100% ngẫu nhiên.
Dùng sheet3, cột A để tạo 100 số ngẫu nhiên.
Tại A2:

=AGGREGATE(15,6,ROW($1:$100)/(COUNTIF($A$1:A1,ROW($1:$100))=0),RANDBETWEEN(1,100-ROWS($1:1)+1))

Kết quả tại sheet2
Tại B2:

=INDEX(Sheet3!$A$2:$A$101,(COLUMNS($A:A)-1)*10+ROWS($1:1))

Bài đã được tự động gộp: 4/1/23

@bebo021999 : Muốn thay đổi số ngẫu nhiên lên đến 200 thì thay số 100 màu xanh trong code thành 200 à bác?

Bảo đảm 2 thành phần này cũng thay đổi tương ứng:
Range("B1:K10") => tương ứng 100 cells
r = Int(Rnd() * 100) + 1 ==> thay đổi con số 100

 

[VetMini]

Loại vấn đề này ở đây có cả đống. Một trong những nơi đề nghi ở bài #2 sẽ có giải pháp. Tại bạn lười hoặc khong biết cách đọc tìm chỗ gần trường hợp của mình.
Cũng có thể do bạn tham, muốn ra bảng 2D thay vì cột dọc.

Cứ ra cột dọc thì dễ, sau đó có cả đống phương pháp chuyển thánh 2D.

Cách dễ nhất để ra cột dọc là:
- Tạo cột phụ bên cạnh đám số cần phân bổ
- Trong cột phụ, ghi hàm Rand()
- Copy/Paste Value cột.
- Sort cột số và cột pju theo cột phụ.
- Tùy tiện bốc ra từ dòng 1 đến dòng N

 

[bebo021999]

- Trong cột phụ, ghi hàm Rand()

Xác suất tuy rất nhỏ, nhưng có.

 

[VetMini]

Xác suất tuy rất nhỏ, nhưng có.

Xác suất trùng không thể có.
N ngẫu nhiên đi kèm với N dữ liệu. Khi sắp xếp lại, những ngẫu nhiên bằng nhau sẽ tự động xếp vào vị trí đúng của chúng.
Xác suất một vài dữ liệu bị đứng yên chỗ cũ có thể xảy ra, nhưng rất nhỏ và khong thành vấn đề vì nó vẫn là ngẫu nhiên. Và không có giải thuật nào tránh được cái này,
Xác suất không có dữ liệu nào xếp lại cả cũng có thể xảy ra nhưng chỉ bị khi con số N (số dữ liệu) rất nhỏ. Và không có phương pháp nào tránh được. Chỉ có cách duy nhất là sau khi lấy xong, xem lại thấy nó không đúng ý thì làm lại.

Vấn đè duyu nhất của hàm Rand() là nó bắt đầu bằng Pseudo-Random (ngẫu nhiên giả). Để tránh trường hợp này, trong VBA code người ta dùng ham Randomize để tạo chuỗi Random "hoàn toàn" ngẫu nhiên. Trong bảng tính, người ta gọi buộc Rand() tính lại nhiều lần để vượt qua các lớp (sê-ri) đầu. Random là hàm volatile cho nên buộc nó tính lại rất dễ.