Giúp đếm có điều kiện (1 người xem)

[dqt_nt]

Chào các bạn, mình có một bài toán về đếm có điều kiện mong các bạn giúp đỡ.
Thân!!!

 

[dunglev]

mình viết thêm macro để thực hiện công việc này bạn xem lại file gửi kèm này nhé

 

[SA_DQ]

Xài hàm người dùng đi bạn, dễ dàng hơn chăng!?

Option Explicit
  Function MaxRF(Ngay As Range, Optional Fep As String = "F") As Byte
   Dim Clls As Range, GPE As Byte
   
   If Fep = "" Then Fep = "F" Else Fep = UCase$(Fep)
   For Each Clls In Ngay
      If Clls.Value = Fep Then
          GPE = 1 + GPE
      Else
          If MaxRF < GPE Then MaxRF = GPE
          GPE = 0
      End If
   Next Clls
  End Function

 

[dqt_nt]

mình viết thêm macro để thực hiện công việc này bạn xem lại file gửi kèm này nhé

Mình đã thấy code của bạn. Nhưng nếu bây giờ mình thêm một dạng nghỉ nữa (ngoài F và R..., mình thêm O hay N chẳng hạn) thì phải sửa code như thế nào?
Phiền bạn, vì mình không rành VBA lắm!!!
Thank!

 

[ndu96081631]

Mình đã thấy code của bạn. Nhưng nếu bây giờ mình thêm một dạng nghỉ nữa (ngoài F và R..., mình thêm O hay N chẳng hạn) thì phải sửa code như thế nào?
Phiền bạn, vì mình không rành VBA lắm!!!
Thank!

Đâu có sửa code gì chứ... chỉ cần thay đổi tham số trong hàm là được rồi
Ví dụ: Muốn đếm O thì cú pháp hàm là:
=MaxRF($B3:$AF3,"O")
Đếm N
=MaxRF($B3:$AF3,"N")
vân... vân... đếm gì viết nấy

 

[dqt_nt]

Em mở bài của anh dunglev và thấy code VBA của anh ấy như sau:

Sub Button1_Click()
Sodong = Sheet1.Cells(1, 2) - 1
For j = 0 To Sodong
R = 0
F = 0
MaxR = 0
MaxF = 0

For i = 2 To 32
Value = Sheet1.Cells(5 + j, i)
If Value = "R" Then
R = R + 1
End If

If Value = "F" Then
F = F + 1
End If

If (Value <> "F") And (Value <> "R") Then
If (F > MaxF) Then
MaxF = F
End If

If (R > MaxR) Then
MaxR = R
End If

F = 0
R = 0
End If
Next
Sheet1.Cells(5 + j, 33) = MaxR
Sheet1.Cells(5 + j, 34) = MaxF
Next
End Sub

Em thì chịu về cái khoảng VBA, giờ em muốn nó đếm thêm cái O hay N gì đó thì không biết thêm vào chổ mô. Mong anh giúp!!!

 

[ndu96081631]

Em mở bài của anh dunglev và thấy code VBA của anh ấy như sau:


Em thì chịu về cái khoảng VBA, giờ em muốn nó đếm thêm cái O hay N gì đó thì không biết thêm vào chổ mô. Mong anh giúp!!!

Với yêu cầu này, khuyên bạn không nên dùng Sub, vì không tổng quát mà nên dùng Function như anh HYen17 đã làm
Tôi áp dụng vào file cho bạn thấy (áp dụng y chang ham COUNTIF)
Xem file

 

[dqt_nt]

Với yêu cầu này, khuyên bạn không nên dùng Sub, vì không tổng quát mà nên dùng Function như anh HYen17 đã làm
Tôi áp dụng vào file cho bạn thấy (áp dụng y chang ham COUNTIF)
Xem file

Anh ndu96081631 nhanh thật đấy!!! Cảm ơn anh nhé!!! Ứng dụng được rồi. Giờ em chuyển sang tìm hiểu VBA

 

[hvn8006]

Có ai trên forum không vào giúp em với. Em đang có 1 thắc mắc rất cần giải đáp gấp. http://www.mediafire.com/download.php?ozgknmdzwqz

 

[huuthang_bd]

Có ai trên forum không vào giúp em với. Em đang có 1 thắc mắc rất cần giải đáp gấp. http://www.mediafire.com/download.php?ozgknmdzwqz

Nếu chỉ có dữ liệu kiểu số thì chỉ cần dùng SUM() là xong. Còn nếu dữ liệu là kiểu chuỗi thì dùng toán tử & hoặc hàm CONCATENATE().
Nhân tiện có vài ý kiến góp ý với bạn:
- Khi muốn hỏi về một vấn đề mới bạn nên lập topic mới.
- Bạn nên sử dụng chức năng upload file của diễn đàn. Như vậy tiện hơn cho bạn và người khác
- Khi upload file lên diễn đàn bạn nên dùng file Excel 2003 vì đâu phải ai cũng dùng Excel 2007 như bạn đâu
Thân!

 

[thanhvien1802]

Do nick không thể vào Port bài mới được. không rot lý do lắm, mà cũng không có mã kích hoạt trong mail. MÌnh xin ghé bài vào chủ đề khác hỏi 1 vấn đề : Lọc dữ liệu có hai điều kiện. File mẫu dưới.
XIn cảm ơn.
"Đề nghĩ Admin xem Nick khong thể Port bài mới được. Mà vào kích hoạt mã, mở mail cũng không thấy Link nào cả"

 

[volga]

Do nick không thể vào Port bài mới được. không rot lý do lắm, mà cũng không có mã kích hoạt trong mail. MÌnh xin ghé bài vào chủ đề khác hỏi 1 vấn đề : Lọc dữ liệu có hai điều kiện. File mẫu dưới.
XIn cảm ơn.
"Đề nghĩ Admin xem Nick khong thể Port bài mới được. Mà vào kích hoạt mã, mở mail cũng không thấy Link nào cả"

Cộng được hết !
bạn cần chỉnh chổ số lượng lại ?có chử "k" kia cộng không được !
Hay bạn đang đố nhi?
Thanks