[Excel] Hỏi_cách tạo ra một dãy số có điều kiện (2 người xem)

[giabao252009]

Dạ phiền anh em cho mình hỏi một chút
Mình muốn tạo ra một dãy số gồm 5 chữ số liền nhau theo điều kiện
Số 1 đi với số 3 hoặc 8 hoặc 9
Số 3 đi với số 3 hoặc 8
Số 6 đi với số 1 hoặc 6 hoặc 8
Số 8 đi với số 3 hoặc 6 hoặc 9
Ví dụ ta sẽ có dãy số sau: 06133
Anh em cho mình hỏi dùng hàm nào để tạo ra dãy số có điều kiện như vậy ạ

 

[Phuocam]

Dạ phiền anh em cho mình hỏi một chút
Mình muốn tạo ra một dãy số gồm 5 chữ số liền nhau theo điều kiện
Số 0 đi với số 6 hoặc số 8
Số 1 đi với số 3 hoặc 4 hoặc 8 hoặc 9
Số 2 đi với số 1 hoặc 2 hoặc 3 hoặc 5 hoặc 9
Số 3 đi với số 3 hoặc 8
Số 6 đi với số 1 hoặc 6 hoặc 8
Ví dụ ta sẽ có dãy số sau: 06133
Anh em cho mình hỏi dùng hàm nào để tạo ra dãy số có điều kiện như vậy ạ

Giả sử đầu tiên ra số 0
tiếp đến ra số 8
Rồi sao nữa?

 

[SA_DQ]

Giả sử đầu tiên ra số 0
tiếp đến ra số 8 . . . Rồi sao nữa?

Rồi thì lấy 1 số ngẫu bất kì để làm con số thứ 3

Nhưng như vậy phải xài VBA rồi!

 

[giabao252009]

Giả sử đầu tiên ra số 0
tiếp đến ra số 8
Rồi sao nữa?

dạ em có điều chỉnh lại dãy số để thích họp cho vòng lặp ạ

 

[CHAOQUAY]

Dạ phiền anh em cho mình hỏi một chút
Mình muốn tạo ra một dãy số gồm 5 chữ số liền nhau theo điều kiện
Số 1 đi với số 3 hoặc 8 hoặc 9
Số 3 đi với số 3 hoặc 8
Số 6 đi với số 1 hoặc 6 hoặc 8
Số 8 đi với số 3 hoặc 6 hoặc 9
Ví dụ ta sẽ có dãy số sau: 06133
Anh em cho mình hỏi dùng hàm nào để tạo ra dãy số có điều kiện như vậy ạ

Ví dụ ta sẽ có dãy số sau: 06133 thì tiếp theo sẽ là gì, bạn ví dụ luon cho dễ hiểu

 

[SA_DQ]

Ví dụ ta sẽ có dãy số sau: 06133 thì tiếp theo sẽ là gì, bạn ví dụ luon cho dễ hiểu

Theo mình hiểu thì đề bài là vầy:
Tạo chuỗi số gồm 5 kí số có ràng buột điều kiện
Số đầu tiên lấy ra nhờ hàm ngẫu
Số thứ 2 phụ thuộc vào số thứ nhất.
Số thứ 3 cũng có thể phụ thuộc vô số thứ hai hoặc cũng có thể không (Nếu không phụ thuộc ta lại xài hàm ngẫu để ấn định cho nó 1 kí số
. . . . & cứ thế đến kí số thứ 5
Chúc bạn thành công!

 

[CHAOQUAY]

Theo mình hiểu thì đề bài là vầy:
Tạo chuỗi số gồm 5 kí số có ràng buột điều kiện
Số đầu tiên lấy ra nhờ hàm ngẫu
Số thứ 2 phụ thuộc vào số thứ nhất.
Số thứ 3 cũng có thể phụ thuộc vô số thứ hai hoặc cũng có thể không (Nếu không phụ thuộc ta lại xài hàm ngẫu để ấn định cho nó 1 kí số
. . . . & cứ thế đến kí số thứ 5
Chúc bạn thành công!

Cám ơn bác.
Khi nãy viết câu hỏi xong, nhìn lại đầu bài cũng hiêu phần nào, giờ bác nói thêm là rõ rồi.
Có lẽ chờ thớt giải thích thêm rồi sẽ code thử vì trong bài 1 còn thấy thiếu các số 4, 5, 7

 

[giabao252009]

Cám ơn bác.
Khi nãy viết câu hỏi xong, nhìn lại đầu bài cũng hiêu phần nào, giờ bác nói thêm là rõ rồi.
Có lẽ chờ thớt giải thích thêm rồi sẽ code thử vì trong bài 1 còn thấy thiếu các số 4, 5, 7

Dạ trong đề chỉ cho số 1,3,6,8 thôi ạ không có số 4,5,7 ạ

 

[VetMini]

Giải thuật:
Tạo một mảng a(0 to 9) As String
Đặt vòng lặp, gán a(i) = "0123456789"
gán a(1) = "389": a(3) = "38": a(6) = "168": a(8) = "369"
Như vậy, mảng chứa các chữ số có thể theo sau một chữ số
Random 5 lần để lấy số, mỗi lần thì dựa vào số trước nó mà lấy theo randbetween.
cs = Val(MID(a(cs), Application.Randbetween(1, Len(a(cs))), 1))

 

[HieuCD]

Dạ phiền anh em cho mình hỏi một chút
Mình muốn tạo ra một dãy số gồm 5 chữ số liền nhau theo điều kiện
Số 1 đi với số 3 hoặc 8 hoặc 9
Số 3 đi với số 3 hoặc 8
Số 6 đi với số 1 hoặc 6 hoặc 8
Số 8 đi với số 3 hoặc 6 hoặc 9
Ví dụ ta sẽ có dãy số sau: 06133
Anh em cho mình hỏi dùng hàm nào để tạo ra dãy số có điều kiện như vậy ạ

Những trường hợp cần làm rỏ:
số đầu 9 số kế tiếp như thế nào?
số đầu 4 số kế tiếp như thế nào?

 

[VetMini]

Function NamChuSo() As String
' hàm lấy ngẫu nhiên 5 chữ số với điều kiện quái đản
' quái đến mức độ không biết phải chú thích code như thế nào luôn
Dim a(0 To 9) As String ' mảng chứa điều kiện
Dim i As Integer, cs As String
Randomize
For i = 0 To 9
a(i) = "0123456789"
Next i
' các điều kiện
a(1) = "389": a(3) = "38": a(6) = "168": a(8) = "369"
cs = "0" ' khởi đầu, chọn đại một chữ số mà điều kiện không bắt buộc (không phải 1, 3, 6, 8)
For i = 1 To 5
cs = Val(Mid(a(cs), Application.RandBetween(1, Len(a(cs))), 1))
NamChuSo = NamChuSo & cs
Next i
End Function