đếm 2 hoặc 3 cell liền kề và đánh dấu màu (1 người xem)

[switch93]

em có bài toán này các bác xem giúp em đếm 2 hoặc 3 cell liền kề nhau có giá trị như file và đánh dấu màu.
Mong các bác coi file và cho em ý kiến!

 

[doveandrose]

coi file rồi . thấy tô màu đẹp đấy .
gặp bài này tự nhiên thấy nhớ Let's Gâu Gâu . hi hi

 

[switch93]

coi file rồi . thấy tô màu đẹp đấy .
gặp bài này tự nhiên thấy nhớ Let's Gâu Gâu . hi hi

bác cứ vui tính. Em không biết thì hỏi mà bác. Mà có bài toán hay bác xem giúp em nha!

 

[Let'GâuGâu]

em có bài toán này các bác xem giúp em đếm 2 hoặc 3 cell liền kề nhau có giá trị như file và đánh dấu màu.
Mong các bác coi file và cho em ý kiến!

xem file hén
===============

coi file rồi . thấy tô màu đẹp đấy .
gặp bài này tự nhiên thấy nhớ Let's Gâu Gâu . hi hi

dzụ gì? ko có xì-pam lung tung nha

 

[switch93]

Em coi qua rồi chưa thấy hàm đâu bác.

 

[doveandrose]

Em coi qua rồi chưa thấy hàm đâu bác.

tôi cũng đâu có thấy 2 file khác gì nhau . nhưng sợ trình độ mình chưa tới không hiểu được Let's Gâu Gâu nên đợi bạn lên tiếng nữa mới dám khẳng định . hic

 

[Let'GâuGâu]

Em coi qua rồi chưa thấy hàm đâu bác.

vào tab home==>condition formating==>mânger rule bạn sẻ thấy cthuc
mà chtuc đó loang ngoan qua, bạn đổi nó thàng cái này gọn hơn

tại C2==>COUNT(B2:D2)>1

=============

tôi cũng đâu có thấy 2 file khác gì nhau . nhưng sợ trình độ mình chưa tới không hiểu được Let's Gâu Gâu nên đợi bạn lên tiếng nữa mới dám khẳng định . hic

chú này phải kiến nghị với mấy sếp hạn chế số lần post bài trong ngày của chú mới được..........hihihihihi

 

[doveandrose]

chú này phải kiến nghị với mấy sếp hạn chế số lần post bài trong ngày của chú mới được..........hihihihihi

dạ em biết em đã sai . hu hu

 

[switch93]

chưa thấy gì em thay rồi k thấy báo kết quả sao bác?

 

[Let'GâuGâu]

chưa thấy gì em thay rồi k thấy báo kết quả sao bác?

à, xin lổi bạn, tại tôi cứ giỡn với DoveandRose, nên hiểu sai ý bạn
để làm lại nha, đợi tí

 

[gtri]

em có bài toán này các bác xem giúp em đếm 2 hoặc 3 cell liền kề nhau có giá trị như file và đánh dấu màu.
Mong các bác coi file và cho em ý kiến!

Đếm
AM2=SUMPRODUCT(($C$2:$AI$2=1)*(OFFSET($C$2:$AI$2,,1)=1)-($C$2:$AI$2=1)*(OFFSET($C$2:$AI$2,,2)=1))

Công thức trong CF
=OR(AND(C$2=1,OFFSET(C$2,,1)=1),AND(C$2=1,OFFSET(C$2,,-1)=1))

 

[switch93]

Đếm
AM2=SUMPRODUCT(($C$2:$AI$2=1)*(OFFSET($C$2:$AI$2,,1)=1)-($C$2:$AI$2=1)*(OFFSET($C$2:$AI$2,,2)=1))

Công thức trong CF
=OR(AND(C$2=1,OFFSET(C$2,,1)=1),AND(C$2=1,OFFSET(C$2,,-1)=1))

bác lấy ô c2 làm chuẩn vậy nếu ô c2 không phải là ô chuẩn có kế tiếp 1 1 thì sao bác gtri?

 

[doveandrose]

bác lấy ô c2 làm chuẩn vậy nếu ô c2 không phải là ô chuẩn có kế tiếp 1 1 thì sao bác gtri?

cái gì cũng phải thực tế . bạn muốn gì thì cứ làm thẳng trên file . công thức ra kết quả đúng => bấm nút cảm ơn . sai thì vô đây khiếu nại . đừng ngồi đó mà nếu như

 

[gtri]

bác lấy ô c2 làm chuẩn vậy nếu ô c2 không phải là ô chuẩn có kế tiếp 1 1 thì sao bác gtri?

Đầu bài của bạn ghi ô nào làm chuẩn vậy?

 

[switch93]

cái gì cũng phải thực tế . bạn muốn gì thì cứ làm thẳng trên file . công thức ra kết quả đúng => bấm nút cảm ơn . sai thì vô đây khiếu nại . đừng ngồi đó mà nếu như

em gửi luôn đây bác coi qua.

 

[gtri]

bác lấy ô c2 làm chuẩn vậy nếu ô c2 không phải là ô chuẩn có kế tiếp 1 1 thì sao bác gtri?

Bài dạng này có khá nhiều trên diễn đàn
nhưng mẫu ví dụ tại bài 15 và ở đây http://www.giaiphapexcel.com/forum/member.php?1021178-switch93 không hoàn toàn tương tự nên nhắc trước là công thức đếm của bài 11 nếu sang mẫu khác sẽ tẻo.

chào.

 

[Let'GâuGâu]

em gửi luôn đây bác coi qua.

sao cái này thấy quen quá
hình như bài nàu bác Bate làm cho bạn rồi phải ko?
thử hàm tự tạo nha

Function countcont(rng As Range)
Dim arr As Variant, i, cnt, preval, k As Long, flag As Boolean
arr = rng.Value
For i = 1 To UBound(arr, 2)
    If preval Then
        If arr(1, i) Then
            flag = False
            k = k + 1
        Else
            If k Then flag = True
            k = 0
        End If
    Else
        flag = False
    End If
    If flag = True Then cnt = cnt + 1
    
    preval = arr(1, i)
Next
countcont = cnt

End Function

cthuc

AM2=countcont(A2:AK2)

 

[switch93]

Dạ, chưa có ai làm bác let's gâu gâu ah? bác BaTe làm bài khác. nhưng bài này bác lọc giúp em điều kiện chỉ có 2 ô kế tiếp có giá trị 1 còn trước đó là khoảng trống.
Cảm ơn bác Let's gâu gâu nha.

 

[Let'GâuGâu]

Dạ, chưa có ai làm bác let's gâu gâu ah? bác BaTe làm bài khác. nhưng bài này bác lọc giúp em điều kiện chỉ có 2 ô kế tiếp có giá trị 1 còn trước đó là khoảng trống.
Cảm ơn bác Let's gâu gâu nha.

Vậy đã đúng chưa???,.......................

 

[switch93]

Vậy đã đúng chưa???,.......................

chưa đúng bác, nó vẫn nhặt ô trước có giá trị khác ah. ví như 311 nó nhặt luôn là 11 bác coi lại coi giúp em.

 

[Let'GâuGâu]

chưa đúng bác, nó vẫn nhặt ô trước có giá trị khác ah. ví như 311 nó nhặt luôn là 11 bác coi lại coi giúp em.

vậy 113 có lấy ko?
thử một cái nữa coi

Function countcont(rng As Range)
Dim arr As Variant, i, cnt, preval, k As Long, Blueflag, flag As Boolean
arr = rng.Value
For i = 1 To UBound(arr, 2)
If preval = 0 And arr(1, i) = 1 Then Blueflag = True
If arr(1, i) > 1 Then Blueflag = False 'neu lay 113 thi bo dong nay
    If preval = 1 Then
        If arr(1, i) = 1 Then
            flag = False
            k = k + 1
        Else
            If k Then flag = True
            k = 0
        End If
    Else
        flag = False
    End If
    If flag = True And Blueflag = True Then cnt = cnt + 1
    
    preval = arr(1, i)
    If arr(1, i) = 0 Then Blueflag = False

Next
countcont = cnt

End Function

 

[Ba Tê]

chưa đúng bác, nó vẫn nhặt ô trước có giá trị khác ah. ví như 311 nó nhặt luôn là 11 bác coi lại coi giúp em.

Bạn "hơi bị siêng". Ví dụ có 1 dòng rồi bảo là "nếu" thế này thì không đúng, thế kia thì không đúng.
- Trường hợp: trống+1+1+trống thì đếm là 1 ?
- Trường hợp: trống+1+1 (cột cuối) đếm không?
.......................................................................
Ví dụ thì cũng tổng quát hết các trường hợp có thể xảy ra để mọi người "thông suốt" một chút. Làm cho bạn rồi "ví như"... chẳng khoái chút nào.

 

[switch93]

Bạn "hơi bị siêng". Ví dụ có 1 dòng rồi bảo là "nếu" thế này thì không đúng, thế kia thì không đúng.
- Trường hợp: trống+1+1+trống thì đếm là 1 ?
- Trường hợp: trống+1+1 (cột cuối) đếm không?
Ví dụ thì cũng tổng quát hết các trường hợp có thể xảy ra để mọi người "thông suốt" một chút. Làm cho bạn rồi "ví như"... chẳng khoái chút nào.

Em đã rõ vấn đề em cũng đâu dám hỏi nữa bác BaTe. Xin lỗi bác (đã quá lời) nhé.