Đêm số cặp số 2,4 trong 1 bảng tính (1 người xem)

[AnhPhong411]

E chào anh, chị
Mong anh chị giúp em giải bài toán sau với ạ.
Trong 1 bảng tính co rất nhiều số hạng khác nhau. Trong đó có cặp số 2,4. Bằng công thức excel đếm ra có bao nhiêu cặp số 2,4 trong bảng dữ liệu ạ. với điều kiện là số 2 đứng trên số 4 như trong file excel em mô tả ạ.
Cảm ơn anh/chị.

 

[leonguyenz]

E chào anh, chị
Mong anh chị giúp em giải bài toán sau với ạ.
Trong 1 bảng tính co rất nhiều số hạng khác nhau. Trong đó có cặp số 2,4. Bằng công thức excel đếm ra có bao nhiêu cặp số 2,4 trong bảng dữ liệu ạ. với điều kiện là số 2 đứng trên số 4 như trong file excel em mô tả ạ.
Cảm ơn anh/chị.

Công thức:

=SUMPRODUCT((D5:J15=2)*(D6:J16=4))

 

[AnhPhong411]

Công thức:

=SUMPRODUCT((D5:J15=2)*(D6:J16=4))

Em cảm ơn anh nhiều ạ

 

[nhapmon]

E chào anh, chị
Mong anh chị giúp em giải bài toán sau với ạ.
Trong 1 bảng tính co rất nhiều số hạng khác nhau. Trong đó có cặp số 2,4. Bằng công thức excel đếm ra có bao nhiêu cặp số 2,4 trong bảng dữ liệu ạ. với điều kiện là số 2 đứng trên số 4 như trong file excel em mô tả ạ.
Cảm ơn anh/chị.

đang ở box lặp trình mà kêu là bằng hàm excel?

Function CapSo(rng As Range, No1 As Integer, No2 As Integer)
Dim arr As Variant, i, j, cnt As Long, flag As Boolean
arr = rng.Value
For j = 1 To UBound(arr, 2)
    For i = 1 To UBound(arr)
     If arr(i, j) = No1 Then flag = True
     If arr(i, j) = No2 And flag = True Then cnt = cnt + 1
     If arr(i, j) <> No1 Then flag = False
    Next
    flag = False
Next
CapSo = cnt
End Function

=capso(D5:J15,2,4)

 

[AnhPhong411]

đang ở box lặp trình mà kêu là bằng hàm excel?

Function CapSo(rng As Range, No1 As Integer, No2 As Integer)
Dim arr As Variant, i, j, cnt As Long, flag As Boolean
arr = rng.Value
For j = 1 To UBound(arr, 2)
    For i = 1 To UBound(arr)
     If arr(i, j) = No1 Then flag = True
     If arr(i, j) = No2 And flag = True Then cnt = cnt + 1
     If arr(i, j) <> No1 Then flag = False
    Next
    flag = False
Next
CapSo = cnt
End Function

=capso(D5:J15,2,4)

Em cảm ơn anh,
Do em kiên thức về VBA còn hạn chế nên mun đăng ở đây để được hỗ trợ ạ về VBA ạ. Em chân thành cảm ơn.

 

[sealand]

Có thể như thế này giảm bớt vòng lặp và tăng tốc hơn chăng:

Function Count24(ByVal Rg As Range) As Long
Dim Tm(), Ch, Lg, i
For i = 1 To Rg.Columns.Count
Tm = WorksheetFunction.Transpose(Rg.Columns(i))
Ch = Join(Tm, "")
Count24 = Count24 + (Len(Ch) - Len(Replace(Ch, "24", ""))) / 2
Next
End Function