Nhờ các anh chị sửa giúp em hàm này

[adua29]

Cho một vùng ô excel chứa các giá trị số
Mục đích hàm: quét tất cả các ô,
Đếm các ô nếu chuỗi số trong ô có chứa giá trị "maxd" nếu nxd là sai.
Đếm các ô nếu chuỗi số trong ô không chứa giá trị "maxd" nếu nxd là đúng.
Em mới bắt đầu tập VBA và đã thử lập như thế này nhưng nó báo lỗi, em chưa biết sửa như thế nào cho đúng.
Mong các anh chị giúp hoàn thiện. Em xin cảm ơn!

Function dem(vung As Range, maxd As Byte, nxd As Boolean)

Dim tong, i As Integer
Dim Bebe()

tong = 0
sophantu = CountA(vung) + CountBlank(vung)
Bebe = Range(Chuoi)
For i = 1 To sophantu
For j = 1 To Len(Bebe(i))
If nxd = False And Mid(Bebe(i), j, 1) = maxd Then
tong = tong + 1
End If
If nxd = True And Mid(Bebe(i), j, 1) <> maxd Then
tong = tong + 1
End If
Next
dem = tong
End Function

 

[tintam7251]

Bạn xem thử cái này

Function dem(vung As Range, maxd As Long, nxd As Boolean)
Dim cls As Range, Rng As Range
Dim tong As Long
    For Each cls In vung
      Set Rng = cls.Find("*" & maxd & "*", LookIn:=xlValues, LookAt:=xlWhole)
          If Not Rng Is Nothing Then
               tong = tong + 1
          End If
     Next
If nxd = True Then
   dem = tong
Else
   dem = vung.Cells.Count - tong
End If
End Function