đếm dùm em dãy số này với!

[SA_DQ]

Bạn hãy đối chiếu lại hàm cũ xem sao nha?!

Option Explicit
Function CountNum(SColumns As Range, Num As Byte) As Byte
 Dim Clls As Range
 For Each Clls In SColumns
   If Clls.Value = Num Then
      With Clls.Interior
         If .ColorIndex < 3 Or (.ColorIndex > 2 And Clls.Offset(1).Interior.ColorIndex > 2) Then
            CountNum = CountNum + 1
         End If
      End With
   End If
 Next Clls
End Function

Chúc vui!

 

[lammtv]

thành thật sorry!bài của bạn viết đã đúng ý mình!khả năng diễn đạt của mình kém quá!thành thật cảm ơn các bạn trong diễn đàn đã tận tình giúp đỡ mình!

 

[sealand]

Mình tham gia 1 hàm nó cũng na ná hàm của bác HYen nhưng mình muốn không lệ thuộc vào màu tô cố định, miễn là nó thống nhất thôi.

Option Explicit
Function Demso(Rg As Range, so As Integer) As Integer
Dim mau, i
mau = Rg.Cells(1).Interior.ColorIndex
For i = 1 To Rg.Cells.Count
If Rg.Cells(i) = so And Rg.Cells(i).Interior.ColorIndex <> mau Then Demso = Demso + 1
If Rg.Cells(i) = so And Rg.Cells(i).Interior.ColorIndex = mau And _
Rg.Cells(i + 1).Interior.ColorIndex = mau Then Demso = Demso + 1
Next
End Function

Cú pháp: =Demso(Vung dem, So dem)
Ví dụ đếm số 1 trong vùng D110 ta viết =Demso(D110,1)

 

[lammtv]

Option Explicit
Function CountNum(SColumns As Range, Num As Byte) As Byte
 Dim Clls As Range
 For Each Clls In SColumns
   If Clls.Value = Num Then
      With Clls.Interior
         If .ColorIndex < 3 Or (.ColorIndex > 2 And Clls.Offset(1).Interior.ColorIndex > 2) Then
            CountNum = CountNum + 1
         End If
      End With
   End If
 Next Clls
End Function

Chúc vui!

lần này thì đúng rồi!thanks bạn rất rất nhiều!

 

[lammtv]

tất cả các CODE sau này của các bạn đều đúng ý của mình hết!
Chân thành cảm ơn các thành viên trong diễn đàn đã giúp đỡ!
Mình sẽ rút kinh nghiệm về khả năng diễn đạt
Thanks!

 

[lammtv]

TUONG TỰ BÀI ĐẾM VỪA RỒI!NHỜ CÁC BẠN TÍNH TỔNG DÙM MÌNH THEO ĐIỀU KIỆN CỦA CỘT E!CHI TIẾT NHỜ CÁC BẠN XEM FILE NHEN!
VẪN TÍNH TỔNG NHỮNG HÀNG TRẮNG VÀ hàng xanh mà hàng kế tiếp không phải là hàng trắng!NHƯNG THÊM ĐIỀU KIỆN CỦA CỘT E NỮA!
thanks!

 

[lammtv]

Mình định tạo 1 chủ đề mới nhưng do mình thấy điều kiện tính tổng này giống điều kiện đếm nên mình để chung!mong admin bỏ qua dùm nhen!

 

[concogia]

TUONG TỰ BÀI ĐẾM VỪA RỒI!NHỜ CÁC BẠN TÍNH TỔNG DÙM MÌNH THEO ĐIỀU KIỆN CỦA CỘT E!CHI TIẾT NHỜ CÁC BẠN XEM FILE NHEN!
VẪN TÍNH TỔNG NHỮNG HÀNG TRẮNG VÀ hàng xanh mà hàng kế tiếp không phải là hàng trắng!NHƯNG THÊM ĐIỀU KIỆN CỦA CỘT E NỮA!
thanks!

Còn nghĩ được cái gì mới nữa không bồ tèo, mỗi lúc "dzặn" ra một tí vậy
Nói "dzui" thôi nhé
Sửa code một tí là được thôi mà
Hihi
----------
Topic này "dzui" quá sao không thấy .....ra tay cho người ta học vậy Trời

 

[lammtv]

Thanks bạn nhiều!nếu mình ko dùng code, mình dùng hàm như bài #17 thì được ko vậy bạn?

 

[ChanhTQ@]

Đã dính đến màu thì công thức trong excel khó gặm được lắm bạn à.

Mình với bạn ta thử tính ngược xem sao:

Option Explicit
Function SumFor(LookupRange As Range, Num As Long)
 Dim Clls As Range
 With Application.WorksheetFunction
   SumFor = .SumIf(LookupRange.Offset(, 1), Num, LookupRange)
 End With
 For Each Clls In LookupRange
   If Clls.Offset(, 1).Value = Num Then
      If Clls.Interior.ColorIndex > 2 And Clls.Offset(1).Interior.ColorIndex < 3 Then _
         SumFor = SumFor - Clls.Value
   End If
 Next Clls
End Function