Nhờ hỗ trợ về việc tìm số liên tiếp trong các ô excel khác nhau (2 người xem)

[huydoduc]

Cảm ơn mọi người đã hỗ trợ nhé!
Mình đã xử lý dc rồi. Giải pháp là thêm mấy ô tính trung gian, chứ gộp hết vào 1 ô thì câu lệnh phúc tạp quá ko ra dc

 

[batman1]

Mình đã xử lý dc rồi. Giải pháp là thêm mấy ô tính trung gian, chứ gộp hết vào 1 ô thì câu lệnh phúc tạp quá ko ra dc

Bạn xử lý được hay không không quan trọng. Cũng chả ai quan tâm đến chuyện bạn sẽ có giải đáp hay không. Ở thời điểm này thì đây là trò tiêu khiển của mọi người.

Tôi chả nghĩ nhiều. Cơ sở lý luận của tôi là: 5 số a, b, c, d, e là 5 số liên tiếp khi và chỉ khi a+4 = b+3 = c+2 = d+1 = e.
Hi vọng là không nhầm lẫn.

Từ cơ sở trên có công thức. Liệt kê thôi. May mà chĩ có 7 ô.

=OR(AND(A1:D1+{4\3\2\1}=MOD(E1-1,10)+1),AND(B1:E1+{4\3\2\1}=MOD(F1-1,10)+1),AND(C1:F1+{4\3\2\1}=MOD(G1-1,10)+1))

Kết thúc bằng Ctrl + Shift + Enter.

Nếu không xét 0 ở cuối thì chỉ cần = e. Vì có 0 cuối nên mới phải xoay xở với MOD

 

[Phuocam]

Thử viết hàm tự tạo:

Public Function DemLienTiep(r As Range, num As Long) As Long
Dim i As Long, k As Long
For i = 0 To 10
    If Application.CountIf(r, i Mod 10) > 0 Then
        k = k + 1
        If k = num Then
            DemLienTiep = 1
            Exit For
        End If
    Else
        k = 0
    End If
Next

End Function

 

[VetMini]

Hưởng ứng lời của bài #22, "bây giờ là trò tiêu khiển của mọi người"

Cái này tôi đoán là trong toán số có bài tính bằng cách loại trừ (deduction by elimination). Rất tiếc là chưa học tới cho nên dùng dã chiến (brute force) vậy.
Giải thuật của tôi là đặt một string dài 10 ô. Duyệt các số, cứ 1 thì set ô 1, 2 set ô 2,... 0 set ô 10.
Split theo " ". Trong các chuỗi con, nếu có dài 5 là có kết quả.
(nếu số lớn hơn 9 thì tuỳ tiện đặt chuỗi dài hơn)

Chú: nếu có 1234567 thì tính là 1 hay 3?
điều kiện ở bài #1 chỉ là T/F (1/0)

 

[Phuocam]

Hahaha.

Public Function DemLienTiep2(r As Range, num As Long) As Long
Dim cell As Range, strX As String
strX = "01234567890"
For Each cell In r
    strX = Replace(strX, cell.Value, "X")
Next
DemLienTiep2 = IIf(InStr(1, strX, String(num, "X")) > 0, 1, 0)

End Function

 

[VetMini]

Hahaha.

Public Function DemLienTiep2(r As Range, num As Long) As Long
Dim cell As Range, strX As String
strX = "01234567890"
For Each cell In r
    strX = Replace(strX, cell.Value, "X")
Next
DemLienTiep2 = IIf(InStr(1, strX, String(num, "X")) > 0, 1, 0)

End Function

Nên đặt "X" là một Const

 

[batman1]

Chết thật.
Có thể tôi hiểu lầm ý tác giả.

Tôi hiểu là: nếu trong 5 ô LIÊN TIẾP có ̀ 5 số LIÊN TIẾP thì mới tính. Nếu trong 5 ô LIÊN TIẾP mà trong 4 ô đầu có 4 số LIÊN TIẾP 6, 7, 8, 9 và ô thứ 5 chứa 0 thì cũng tính - trên cơ sở "quay vòng", tức nếu xếp 0, 1, ..., 9 vào bàn tròn thì sau 0 là 1, sau 1 là 2, ..., sau 9 là 0.

 

[VetMini]

Chết thật.
Có thể tôi hiểu lầm ý tác giả.

Tôi hiểu là: nếu trong 5 ô LIÊN TIẾP có ̀ 5 số LIÊN TIẾP thì mới tính. Nếu trong 5 ô LIÊN TIẾP mà trong 4 ô đầu có 4 số LIÊN TIẾP 6, 7, 8, 9 và ô thứ 5 chứa 0 thì cũng tính - trên cơ sở "quay vòng", tức nếu xếp 0, 1, ..., 9 vào bàn tròn thì sau 0 là 1, sau 1 là 2, ..., sau 9 là 0.

Ông nội tôi cũng không hiểu nổi ý thật của thớt. Nhưng mà đã bảo "tự tiêu khiển" thì cần gì biết thớt ý nào.
Mình cứ làm theo kiểu tự đặt giả thiết.
Và bác có quyền tự đặt:
giả thiết 1: nó là một cái bàn tròn "01234567890123" (5 số)
giả thiết 2: nó có một phần tử vừa là lớn nhất vừa là nhỏ nhất "01234567890" (như con ách trong bộ bài)
giả thiết 3: nó thực sự xếp theo trị của chữ số "0123456789"
giả thiết 4: nó thực sự xếp theo trị của chữ số, nhưng 0 đại diện cho 10, và không có trị 0 "1234567890"

 

[batman1]

giả thiết 2: nó có một phần tử vừa là lớn nhất vừa là nhỏ nhất "01234567890" (như con ách trong bộ bài)

Khổ cái là trong đời tôi có biết "Đánh xập xám chướng", lô đề, cá độ mặt mũi cụ thể như thế nào đâu. Cũng nghe người này than là: mẹ em suốt ngày lô đề, bố em máu cá độ bóng đá thì đoán nó là "đỏ đen" chứ luật chơi thế nào tôi đâu có biết. Hồi xưa thỉnh thoảng chơi tú lơ khơ với lũ bạn cho vui, chưa bao giờ tôi chơi ăn tiền, dù chỉ 1 hào, 1 xu. Xổ số nhà nước thì thỉnh thoảng mua gì đó ở kiốt, tiện có hứng thì mua 1 vé theo không khí chung. Thế thôi.

Tôi là người "lạc hậu". Game, chát chít, lô đề, cá độ, phây sờ cúc hay sờ búc ... không là những thứ cho tôi. Không hẳn vì tác hại của chúng. Đơn giản chỉ là chúng không cuốn hút tôi.

 

[ppc0312]

Khổ cái là trong đời tôi có biết "Đánh xập xám chướng", lô đề, cá độ mặt mũi cụ thể như thế nào đâu. Cũng nghe người này than là: mẹ em suốt ngày lô đề, bố em máu cá độ bóng đá thì đoán nó là "đỏ đen" chứ luật chơi thế nào tôi đâu có biết. Hồi xưa thỉnh thoảng chơi tú lơ khơ với lũ bạn cho vui, chưa bao giờ tôi chơi ăn tiền, dù chỉ 1 hào, 1 xu. Xổ số nhà nước thì thỉnh thoảng mua gì đó ở kiốt, tiện có hứng thì mua 1 vé theo không khí chung. Thế thôi.

Tôi là người "lạc hậu". Game, chát chít, lô đề, cá độ, phây sờ cúc hay sờ búc ... không là những thứ cho tôi. Không hẳn vì tác hại của chúng. Đơn giản chỉ là chúng không cuốn hút tôi.

Thế thì bài này khó cho bác rồi. Tôi e rằng chủ topic còn không lường hết kết quả

 

[batman1]

Thế thì bài này khó cho bác rồi. Tôi e rằng chủ topic còn không lường hết kết quả

Thôi thì ngồi chém gió thôi.
Thực ra tôi không ham những bài chỉ để giải quyết những vấn đề do ai đó tự bịa ra để giết thời gian mà không có ứng dụng cho công việc hàng ngày. Và chuyện vấn đề có thực tế hay không là do tôi tự đánh giá. Vd. chọn số thế này này thì dĩ nhiên ai đang chơi lô đề thì họ cho là thực tế, nhưng tôi đánh giá là không. Chỉ khi buồn ơi là buồn mới tham gia để tiêu khiển.

 

[VetMini]

Khổ cái là trong đời tôi có biết "Đánh xập xám chướng", lô đề, cá độ mặt mũi cụ thể như thế nào đâu. Cũng nghe người này than là: mẹ em suốt ngày lô đề, bố em máu cá độ bóng đá thì đoán nó là "đỏ đen" chứ luật chơi thế nào tôi đâu có biết. Hồi xưa thỉnh thoảng chơi tú lơ khơ với lũ bạn cho vui, chưa bao giờ tôi chơi ăn tiền, dù chỉ 1 hào, 1 xu. Xổ số nhà nước thì thỉnh thoảng mua gì đó ở kiốt, tiện có hứng thì mua 1 vé theo không khí chung. Thế thôi.

Tôi là người "lạc hậu". Game, chát chít, lô đề, cá độ, phây sờ cúc hay sờ búc ... không là những thứ cho tôi. Không hẳn vì tác hại của chúng. Đơn giản chỉ là chúng không cuốn hút tôi.

Tôi thì cũng không ham đỏ đen.
Nhưng lại thích tám. Mà cái bàn đỏ đen thì nó tám dữ. Tôi thường chỉ ngồi nghe chúng tám, thỉnh thoảng cầm bài giùm khi chúng bận thôi.

Ba cái mớ ghêm ghiếc này nọ cũng như bác, chúng chẳng thu hút nổi tôi. Thử ngồi chơi 1/2 giờ là chán, mỏi tay, mờ mắt, ù tai. Mà cái này thì chả thấy tám với chín, cho nên chừa luôn.

Thế thì bài này khó cho bác rồi. Tôi e rằng chủ topic còn không lường hết kết quả

Ở đây, mười người hỏi đã có đến chín không lường hết kết quả.
Một trăm ngừoi "có ý tưởng" đã có đến 99 không biết cái ý tưởng ấy nó thực sự ra sao.

 

[huydoduc]

Để mọi người đỡ mất công nghĩ nhiều, mình xin giải thích ý nghĩa thực tế như sau.
Mục đích tính khả năng ra sảnh (straight) trong bài xì phé (poker) tương ứng với hand trong tay (gọi là hand có 2 lá) và trên bàn (flop có 5 lá)
Cụ thể có 13 cây bài 2, 3, 4, 5, 6, 7, 8, 9, 10, J, Q, K, A.
Sảng được tính khi có 5 cây liên tiếp, riêng cây A có thể kết hợp với 10, J, Q, K, A hoặc A, 2, 3, 4, 5 để thành sảnh.
Mình chạy 1 số lượng lớn bài giả lập và thống kê tỷ lệ tạo thành straight với từng nhóm hand!
Cảm ơn các bạn đã giúp đỡ!

 

[ppc0312]

Để mọi người đỡ mất công nghĩ nhiều, mình xin giải thích ý nghĩa thực tế như sau.
Mục đích tính khả năng ra sảnh (straight) trong bài xì phé (poker) tương ứng với hand trong tay (gọi là hand có 2 lá) và trên bàn (flop có 5 lá)
Cụ thể có 13 cây bài 2, 3, 4, 5, 6, 7, 8, 9, 10, J, Q, K, A.
Sảng được tính khi có 5 cây liên tiếp, riêng cây A có thể kết hợp với 10, J, Q, K, A hoặc A, 2, 3, 4, 5 để thành sảnh.
Mình chạy 1 số lượng lớn bài giả lập và thống kê tỷ lệ tạo thành straight với từng nhóm hand!
Cảm ơn các bạn đã giúp đỡ!

Có ra $ nhiều không? chia sẻ bớt cho diễn đàn 1 số cho vui văn vẻ

 

[VetMini]

Thấy đếm 5 số liên tiếp là biết chơi bài rồi. Lúc đầu còn làm bộ e ấp.

Cái mà thớt diễn tả ở bài #33 không phải là sì phé.
Đúng tiếng Mẽo nó là Texas Holdem Poker. Nó là một môn chơi mới.
Ngày xưa, người Mẽo đánh sì tố (quý vị xem phim cao bồi sẽ thấy). Ngừoi chơi được phát 5 cây, và sau đó được quyền đổi bài trong chỗ còn lại (chỉ đổi 1 lần, muốn đổi 0 đến 5 lá đều được)
Cái mà tiếng Việt gọi sì phé là một loại khác. Lúc chơi chỉ lấy từ quân 7 trở lên. Và trước khi chơi thường giao hẹn trước "chỉ chơi sảnh đầu và sảnh cuối, và sảnh nhỏ 78910J ăn sảnh lớn 10JKQA. Và vì không chơi sảnh giữa nên sảnh ăn thùng". Nếu không giao trước thì cứ liên tiếp là sảnh, và như vậy sảnh dưới thùng.
sảnh = straight; thùng = flush; thùng phá sảnh = straight flush; thùng phá sảnh chúa = royal flush

Thực ra, các từ sảnh, thùng, dách phé, thú phé, xám chi, cú lũ là ngôn ngữ của xập xám chướng.
Dân chơi sì phé có cách gọi khác: suốt, đồng hoa, đôi, hai đôi, ba con, mùn xẩu.

Chú thích:
1. cũng có ngừoi gọi ngược lại hai từ sì phé và sì tố.
2. thùng phá là tiếng Quảng Đông đọc từ đồng hoa
3. cú lũ cũng là tiếng Quảng, nghĩa là đứng đầu. (3 con + 1 đôi)
4. mùn xẩu do tiếng gì tôi chưa biết.

 

[huydoduc]

Thấy đếm 5 số liên tiếp là biết chơi bài rồi. Lúc đầu còn làm bộ e ấp.

Cái mà thớt diễn tả ở bài #33 không phải là sì phé.
Đúng tiếng Mẽo nó là Texas Holdem Poker. Nó là một môn chơi mới.
Ngày xưa, người Mẽo đánh sì tố (quý vị xem phim cao bồi sẽ thấy). Ngừoi chơi được phát 5 cây, và sau đó được quyền đổi bài trong chỗ còn lại (chỉ đổi 1 lần, muốn đổi 0 đến 5 lá đều được)
Cái mà tiếng Việt gọi sì phé là một loại khác. Lúc chơi chỉ lấy từ quân 7 trở lên. Và trước khi chơi thường giao hẹn trước "chỉ chơi sảnh đầu và sảnh cuối, và sảnh nhỏ 78910J ăn sảnh lớn 10JKQA. Và vì không chơi sảnh giữa nên sảnh ăn thùng". Nếu không giao trước thì cứ liên tiếp là sảnh, và như vậy sảnh dưới thùng.
sảnh = straight; thùng = flush; thùng phá sảnh = straight flush; thùng phá sảnh chúa = royal flush

Thực ra, các từ sảnh, thùng, dách phé, thú phé, xám chi, cú lũ là ngôn ngữ của xập xám chướng.
Dân chơi sì phé có cách gọi khác: suốt, đồng hoa, đôi, hai đôi, ba con, mùn xẩu.

Chú thích:
1. cũng có ngừoi gọi ngược lại hai từ sì phé và sì tố.
2. thùng phá là tiếng Quảng Đông đọc từ đồng hoa
3. cú lũ cũng là tiếng Quảng, nghĩa là đứng đầu. (3 con + 1 đôi)
4. mùn xẩu do tiếng gì tôi chưa biết.

Ặc, bái phục kiến thức của bạn! Đúng là mình dùng để tính Texas Holdem Poker

 

[VetMini]

Đánh Texas Holdem mà giờ này mới làm phần mềm đếm sảnh thì sạt nghiệp.

Tối thiểu thì cũng phải biết kỹ thuật BAO sảnh.
Ví dụ: nhìn 5 quân trên bàn (sau river) có 3 5 7 thì biết là chỉ những người nắm trong tay 4 6 mới có thể sảnh.
Nếu 3 5 7 ra từ 3 lá đầu (flop) thì khả năng sảnh tương đối. Nhưng nếu hai trong 3 lá trên ra vào đợt sau thì khả nămg rất nhỏ. Có mấy ai cầm 4 6 mà dám ở lại đấu đến 3 lượt, chờ trúng sảnh bao giờ?
Nếu river màb ra 456 thì khả năng sảnh rất nguy hiểm.
Các nước khác cũng có cách đoán bao của chúng.

Đánh bài là đúng châm ngôn "biết ngừoi biết ta"
Dân đánh bài thì phải đoán tay của địch và làm cho địch đoán sai tay của mình. Đánh bài mà chỉ biết đếm bài mình thì chắc chắn sạt nghiệp.