Xác định số giống nhau liên tiếp trong dãy số (2 người xem)

[sacalataba127]

Dạ, em muốn hỏi cách xác định trong dãy số cho sẵn có 3 số nào giống nhau và sắp xếp liên tiếp không, nếu đúng là có giống nhau và xếp liên tiếp thì trả về kết quả đúng
Ví dụ: số 12345 trả về false, số 12333 trả về true
Chúc mọi người cuối tuần vui vẻ, đầu tuần nhiều năng lượng

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

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

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

ai giúp giùm e với ạ, em cảm ơn

 

[Phuocam]

Dạ, em muốn hỏi cách xác định trong dãy số cho sẵn có 3 số nào giống nhau và sắp xếp liên tiếp không,
nếu đúng là có giống nhau và xếp liên tiếp thì trả về kết quả đúng
Ví dụ: số 12345 trả về false, số 12333 trả về true

Quy luật của nó là chia hết cho 111

=SUMPRODUCT(--(MOD(--MID(A1,ROW(INDIRECT("1:"&LEN(A1)-2)),3),111)=0))>0

 

[sacalataba127]

Quy luật của nó là chia hết cho 111

trường họp nó nằm đầu 33345, nằm giữa 23334 thì sao bạn
Có công thức nào dạng tổng quát không ạ

 

[Phuocam]

trường họp nó nằm đầu 33345, nằm giữa 23334 thì sao bạn
Có công thức nào dạng tổng quát không ạ

Có, Trong bài #2.

 

[sacalataba127]

Có, Trong bài #2.

ok đã làm được, cảm ơn bạn.
Cho mình hỏi chút ạ, cái này có làm được bằng biểu thức chính quy không ạ?

 

[CHAOQUAY]

ok đã làm được, cảm ơn bạn.
Cho mình hỏi chút ạ, cái này có làm được bằng biểu thức chính quy không ạ?

Bạn chạy thử cái này xem sao.

Sub Lientiep()
Dim Nguon
Dim i As Integer
Dim Kq() As Boolean
Nguon = Sheet1.Range("E11:E14")
ReDim Kq(1 To UBound(Nguon), 1 To 1)
With CreateObject("VbScript.RegExp")
    .Pattern = "(\d)\1{2}"
    For i = 1 To UBound(Nguon)
        If .test(Nguon(i, 1)) Then
            Kq(i, 1) = True
        Else
            Kq(i, 1) = False
        End If
    Next i
End With
With Sheet1
    .Range("G11").Resize(UBound(Nguon), 1) = Kq
End With
End Sub