Kiểm tra dữ liệu với điều kiện phức tạp!

[Sơn Mã]

Mình có dòng dữ liệu rất nhiều, cần kiểm tra dữ liệu như sau:
- dòng 2 có 3 loại dữ liệu là x, y, z xếp không tuân theo một quy luật nào cả.
- Cần kiểm tra xem trong dòng có chỗ nào mà các dữ liệu cùng loại xếp cạnh nhau liên tiếp 4 ô trở lên với 4 đoạn liên tiếp mà ở giữa các đoạn đó không có trường hợp nào là có dữ liệu cùng loại xếp cạnh nhau đúng 3 ô liên tiếp: nếu có N trường hợp như vậy thì dán kết quả vào ô A2!
- Mong GPE giúp đỡ. Xin cảm ơn!

 

[TheThienChu]

Mình có dòng dữ liệu rất nhiều, cần kiểm tra dữ liệu như sau:
- dòng 2 có 3 loại dữ liệu là x, y, z xếp không tuân theo một quy luật nào cả.
- Cần kiểm tra xem trong dòng có chỗ nào mà các dữ liệu cùng loại xếp cạnh nhau liên tiếp 4 ô trở lên với 4 đoạn liên tiếp mà ở giữa các đoạn đó không có trường hợp nào là có dữ liệu cùng loại xếp cạnh nhau đúng 3 ô liên tiếp: nếu có N trường hợp như vậy thì dán kết quả vào ô A2!
- Mong GPE giúp đỡ. Xin cảm ơn!

Nếu có trường hợp dữ liệu cùng loại xếp cạnh nhau đúng 3 ô liên tiếp thì vùng dữ liệu tiếp theo sẽ thế nào?

 

[Sơn Mã]

Nếu có trường hợp dữ liệu cùng loại xếp cạnh nhau đúng 3 ô liên tiếp thì vùng dữ liệu tiếp theo sẽ thế nào?

- Cảm ơn bạn đã quan tâm. Chỉ đếm những trường hợp mà có 4 đoạn (mỗi đoạn có dữ liệu cùng loại xếp cạnh nhau ít nhất 4 ô liên tiếp) mà khoảng giữa các đoạn đó không có các dữ liệu cùng loại nào xếp cạnh nhau đúng 3 ô liên tiếp. (Nếu giữa 4 đoạn đó mà có dữ liệu cùng loại xếp cạnh nhau vừa đúng 3 ô liên tiếp thì không đếm). Mong bạn xem giúp!

 

[anhtuanle123]

làm bằng macro thôi !
khuyến mại thêm việc tô màu vùng tìm thấy !
code bị sai tí , bản này mới đúng ^^
http://www.mediafire.com/file/f1mv9r0j7qm22fi/kiemtra_dulieu1.xls

 

[Sơn Mã]

làm bằng macro thôi !
khuyến mại thêm việc tô màu vùng tìm thấy !
code bị sai tí , bản này mới đúng ^^
http://www.mediafire.com/file/f1mv9r0j7qm22fi/kiemtra_dulieu1.xls

Cảm ơn bạn đã giúp đỡ. Mình xem file thì đây là tìm số đoạn mà dữ liệu cùng loại xếp cạnh nhau ít nhất 4 ô liên tiếp.
- Yêu cầu tìm của bài này là:Đếm có bao nhiêu trường hợp mà có 4 đoạn (mỗi đoạn có dữ liệu cùng loại xếp cạnh nhau ít nhất 4 ô liên tiếp) mà khoảng giữa các đoạn đó không có các dữ liệu cùng loại nào xếp cạnh nhau đúng 3 ô liên tiếp. (Nếu giữa 4 đoạn đó mà có dữ liệu cùng loại xếp cạnh nhau vừa đúng 3 ô liên tiếp thì không đếm). Mong bạn xem giúp!

 

[anhtuanle123]

là khoảng ở giữa 2 chuỗi 4 xuất hiện một chuỗi 3 thì loại phải ko nhỉ !
vậy thì tìm tiếp chuỗi 3 ở khoảng giữa !
http://www.mediafire.com/file/03na6ud28c0y8rc/kiemtra_dulieu2.xls

 

[TheThienChu]

- Cảm ơn bạn đã quan tâm. Chỉ đếm những trường hợp mà có 4 đoạn (mỗi đoạn có dữ liệu cùng loại xếp cạnh nhau ít nhất 4 ô liên tiếp) mà khoảng giữa các đoạn đó không có các dữ liệu cùng loại nào xếp cạnh nhau đúng 3 ô liên tiếp. (Nếu giữa 4 đoạn đó mà có dữ liệu cùng loại xếp cạnh nhau vừa đúng 3 ô liên tiếp thì không đếm). Mong bạn xem giúp!

Bạn chạy code này cho file bài 1

Sub SonMa()
Dim DArr, Res, Temp, c, i, j, N

DArr = Sheet1.Range("B2", Sheet1.Range("B2").End(xlToRight))
ReDim Res(1 To UBound(DArr, 2))
Temp = DArr(1, 1): j = 1
For c = 2 To UBound(DArr, 2)
If DArr(1, c) = Temp Then
j = j + 1
If j > 4 Then
i = i + 1
Res(i) = j - 1
Temp = DArr(1, c)
j = 1
End If
Else
If j = 3 Or j = 4 Then
i = i + 1
Res(i) = j
End If
Temp = DArr(1, c)
j = 1
End If
Next c
Res = Split(Replace(Replace(Join(Res), " ", ""), "3", " "))

For c = 0 To UBound(Res)
N = N + Len(Res(c)) \ 4
Next c

Sheet1.Range("A2").ClearContents
Sheet1.Range("A2") = N
End Sub

 

[Sơn Mã]

là khoảng ở giữa 2 chuỗi 4 xuất hiện một chuỗi 3 thì loại phải ko nhỉ !
vậy thì tìm tiếp chuỗi 3 ở khoảng giữa !
http://www.mediafire.com/file/03na6ud28c0y8rc/kiemtra_dulieu2.xls

Cảm ơn bạn. Bạn ơi, nếu mình muốn tô màu tất cả những chuỗi có ít nhất 5 ô dữ liệu liên tiếp cùng loại trở lên là chung 1 màu đỏ. Tô màu tất cả những chuỗi chỉ có đúng 4 ô liên tiếp dữ liệu cùng loại là chung 1 màu xanh thì làm như thế nào ạ? Xin cảm ơn bạn!

 

[anhtuanle123]

5 trở lên màu đỏ , 4 màu xanh ^^
http://www.mediafire.com/file/nrv06jciwkvv8vc/kiemtra_dulieu3.xls