Random số ngẫu nhiên

[ithongkhanh]

Random số ngẫu nhiên​

Đề bài 1 :

1. Có 4 số ngẫu nhiên từ 00 -> 100 .
2. Có dãy số 16 số từ 00 -> 100 .

Câu hỏi : Làm sao tạo 4 số trên không có trong số 16 số ở dưới . Đảm bảo rằng các số không lập lại trong 16 + 4 số .
Đề bài 2 :

1. Có 4 số ngẫu nhiên từ 00 -> 100 .
2. Có dãy số 16 số từ 00 -> 100 .

Câu hỏi : Làm sao tạo 4 số trên có 1 số trùng số trong 16 số ở dưới . Đảm bảo rằng các số không lập lại trong 16 + 4 số .

*Câu hỏi khó, các bạn giúp mình với nha !

 

[VetMini]

...
*Câu hỏi khó, các bạn giúp mình với nha !

Muốn chơi đề lại còn đi khích tướng bà con à?

Loại bải "lấy số ngẫu nhiên" này ở đây có cả đống. Đã muốn làm giàu thì chịu khó bỏ công tìm chứ.

 

[ithongkhanh]

Muốn chơi đề lại còn đi khích tướng bà con à?

Loại bải "lấy số ngẫu nhiên" này ở đây có cả đống. Đã muốn làm giàu thì chịu khó bỏ công tìm chứ.

Chào bạn, mình là CTY in thẻ cào - Website : inthecao.com - nên mình mới hỏi, chứ lô đề gì đâu ạ !

 

[SA_DQ]

Bài này xử bỡi VBA là đẹp hơn, còn công thức thì mình mù!

 

[VetMini]

Bài này xử bỡi VBA là đẹp hơn, còn công thức thì mình mù!

Đã nói bài này ở GPE có hàng tá. Thớt không biết cách tìm thôi.
Tôi bảo đảm quý vị có viết code lại cũng không đầy đủ bằng những bài có sẵn đâu. Chúng đã được soi đi ngắm lại hằng chục bình luận, cải tiến,...

Vả lại do thớt viết tiêu đề toàn chữ hoa nên tôi không thích chỉ dẫn thêm.

 

[ithongkhanh]

Bài này xử bỡi VBA là đẹp hơn, còn công thức thì mình mù!

Mình chưa hình dung cách chạy nữa, hơi bí ý tưởng ạ!

Bài đã được tự động gộp: 19/11/22

Đã nói bài này ở GPE có hàng tá. Thớt không biết cách tìm thôi.
Tôi bảo đảm quý vị có viết code lại cũng không đầy đủ bằng những bài có sẵn đâu. Chúng đã được soi đi ngắm lại hằng chục bình luận, cải tiến,...

Vả lại do thớt viết tiêu đề toàn chữ hoa nên tôi không thích chỉ dẫn thêm.

Mình đã sửa tiêu đề ít chữ hoa rồi, bạn chỉ cho mình với nha!

 

[SA_DQ]

Mình chưa hình dung cách chạy nữa, hơi bí ý tưởng ạ!
. . . . .

Ý tưởng có thể là vầy:
B1: Tạo vòng lặp duyệt qua hết 16 số đã có & nối chúng vô 1 tham biến kểu chuỗi;
(Ví dụ: '11;13;35;17;19;09;. . . . "
B2: Tạo vòng lặp Do . . .Loop (để tạo ra cho đủ 4 số ngẫu không trùng với 16 số kia)
Trong vòng lặp ta thực hiện
B2.1 Tạo ra 1 số ngẫu (từ 0 đến 99
B2.2: Dùng hàm InStr() để kiểm tra xem số vừa tạo có trong chuỗi 16 số kia không
Nếu không thì ghi nhận số ngẫu vừa tạo & tăng biến đếm đến khi biến đếm này = 4; Bằng ngược lạ thì thực hiện lại B2.1
B2.3: Báo cáo kết quả
Chúc bạn thành công.

 

[VetMini]

1. ô A1, gõ số 1
2. kéo xuống đến A100. Tức là được A1:A100 = 1:100
3. ô E1:E16, gõi 16 số định sẵn
4. ô B1, gõ =IF(ISERROR(Match($A1, $E$1:$E$16, 0)), Rand(), 2)
5. copy cột B, paste values qua cột C
6. sort A1:C100 theo cột C
7. C1:C4 là 4 số muốn lấy.

Mỗi lần muốn lấy 4 số thì cứ lặp lại bước 5-7