Đếm số lần xuất hiện của 1 chuỗi (1 người xem)

[garj_cuong]

Xin các cao thủ giúp mình với, yêu cầu cần giúp và dữ liệu mẫu mình để trong file đính kèm vui lòng tải về
Thanks!

 

[chuot0106]

Xin các cao thủ giúp mình với, yêu cầu cần giúp và dữ liệu mẫu mình để trong file đính kèm vui lòng tải về
Thanks!

Bạn muốn đếm những gì trong sheet? và muốn kết quả đếm để ở ô nào? Tóm lại bạn nên nói rõ yêu cầu ra và có ví dụ minh họa kết quả càng tốt!

--------------------------------------------------
Mở File, nhập từ cần đếm vào ô T8, sau đó click vào nút "CHỌN VÙNG CẦN ĐẾM" khi đó số lượng sẽ hiển thị tại ô U8.

P/S: Vùng cần đếm ở đây với dữ liệu của bạn tôi đoán là 1 cột thôi. Còn nếu vùng cần đếm có nhiều cột thì bạn hồi âm tôi sẽ sửa code giúp!

 

[Đình Phán]

Xin các cao thủ giúp mình với, yêu cầu cần giúp và dữ liệu mẫu mình để trong file đính kèm vui lòng tải về
Thanks!

Nếu trong trường hợp như vậy thì dữ liệu bệnh của bạn cần dùng Data Validation đề đồng nhất dữ liệu và kết quả tìm kiếm sẽ ra như mong muốn.

 

[gtri]

yêu cầu cần giúp và dữ liệu mẫu mình để trong file đính kèm vui lòng tải về
Thanks!

Tiêu đề là "Đếm số lần xuất hiện của chuỗi" nên đề xuất đếm toàn bộ bảng.
Nhập chuỗi cần đếm vào sheet2.[A1]

 

[garj_cuong]

Tiêu đề là "Đếm số lần xuất hiện của chuỗi" nên đề xuất đếm toàn bộ bảng.
Nhập chuỗi cần đếm vào sheet2.[A1]

Cám ơn bạn, mình muốn hỏi bạn chút về cái này. Mình muốn làm 1 báo cáo kết quả về cái này và mình muốn xây dựng 1 biểu mẫu báo cáo mà tự động phân chia ra như file mình tải lên có được không? Mong bạn giúp đỡ.
Thanks!

 

[Let'GâuGâu]

Cám ơn bạn, mình muốn hỏi bạn chút về cái này. Mình muốn làm 1 báo cáo kết quả về cái này và mình muốn xây dựng 1 biểu mẫu báo cáo mà tự động phân chia ra như file mình tải lên có được không? Mong bạn giúp đỡ.
Thanks!

hình như pivot table làm được, mà sao loay hoay hoài ko ra,hihihihih
thôi xài code nha

Sub TongKet()
Dim Ng As Variant, bcao(), i, j, k As Long, d As Object
With Sheet1
    Ng = .[a1].Resize(.[a60000].End(3).Row, .[IV1].End(1).Column).Value
End With
Set d = CreateObject("Scripting.Dictionary")
ReDim bcao(1 To 60000, 1 To 3)
For i = 3 To UBound(Ng, 2)
 bcao(n + 1, 1) = i - 2
    For j = 1 To UBound(Ng)
        If Not IsEmpty(Ng(j, i)) Then
            If Not d.Exists(Ng(j, i)) Then
                k = k + 1
                d.Add (Ng(j, i)), k
                n = n + 1
                bcao(n, 2) = Ng(j, i)
                bcao(n, 3) = 1
            Else
                bcao(d.Item(Ng(j, i)), 3) = bcao(d.Item(Ng(j, i)), 3) + 1
            End If
        End If
    Next j
Next i
If n Then
With Sheet3
    .[a4:c60000].Clear
    .[a4].Resize(n, 3).Value = bcao
    .[a4].CurrentRegion.Borders.Value = 1
End With
End If
Set d = Nothing
Erase Ng
End Sub

 

[garj_cuong]

Không có ai giúp mình được vấn đề này sao?hjc hjc

 

[Ba Tê]

Không có ai giúp mình được vấn đề này sao?hjc hjc

Đã có giúp bằng bài #6 rồi đó.
Bạn phải cho ý kiến là xài được hay không được chỗ nào,... mọi người mới biết mà chỉnh sửa lại theo ý bạn được.
Làm cho bạn rồi bạn không "đá động" tới kết quả thế nào lại hỏi tiếp cái này:"Không có ai giúp mình được vấn đề này sao?hjc hjc"
là sao?

 

[garj_cuong]

Hjhj bạn ơi giúp mình đưa code đó vào file được không?mình không giỏi cái đó lên làm không được (ý mình là thế)
Cám ơn bạn!

 

[Let'GâuGâu]

Hjhj bạn ơi giúp mình đưa code đó vào file được không?mình không giỏi cái đó lên làm không được (ý mình là thế)
Cám ơn bạn!

sao tôi thấy file cũ có macro???
bạn xài excel 2003 thì phải vào Tool-->macro-->security-->hạ xuống mức low hoặc med
nếu xài 2007 trở lên thì khi mở file ra phài enable macro

 

[garj_cuong]

Bạn ơi cho mình hỏi thêm về code này tý
Mình muốn áp dụng cho 1 khoảng dữ liệu cụ thể trong Sheet thì thay đổi ở chỗ nào bạn nhỉ
Cám ơn bạn nhiều!

 

[garj_cuong]

Sub TongKet()
Dim Ng As Variant, bcao(), i, j, k As Long, d As Object
With Sheet1
Ng = .[a1].Resize(.[a60000].End(3).Row, .[IV1].End(1).Column).Value
End With
Set d = CreateObject("Scripting.Dictionary")
ReDim bcao(1 To 60000, 1 To 3)
For i = 3 To UBound(Ng, 2)
bcao(n + 1, 1) = i - 2
For j = 1 To UBound(Ng)
If Not IsEmpty(Ng(j, i)) Then
If Not d.Exists(Ng(j, i)) Then
k = k + 1
d.Add (Ng(j, i)), k
n = n + 1
bcao(n, 2) = Ng(j, i)
bcao(n, 3) = 1
Else
bcao(d.Item(Ng(j, i)), 3) = bcao(d.Item(Ng(j, i)), 3) + 1
End If
End If
Next j
Next i
If n Then
With Sheet3
.[a4:c60000].Clear
.[a4].Resize(n, 3).Value = bcao
.[a4].CurrentRegion.Borders.Value = 1
End With
End If
Set d = Nothing
Erase Ng
End Sub


Bạn ơi cho mình hỏi thêm về code này tý
Mình muốn áp dụng cho 1 khoảng dữ liệu cụ thể trong Sheet thì thay đổi ở chỗ nào bạn nhỉ
Cám ơn bạn nhiều!

 

[Let'GâuGâu]

Bạn ơi cho mình hỏi thêm về code này tý
Mình muốn áp dụng cho 1 khoảng dữ liệu cụ thể trong Sheet thì thay đổi ở chỗ nào bạn nhỉ
Cám ơn bạn nhiều!

Sub TongKet()
Dim Ng As Variant, bcao(), i, j, k As Long, d As Object
With Sheet1
   [COLOR=#ff0000] Ng = .[a1].Resize(.[a60000].End(3).Row, .[IV1].End(1).Column).Value[/COLOR]
End With
..........................
End Sub

dòng này là nguồn của bạn
bạn có thể thay đổi nó thành

ng=.[A1:F10].value

chẳng hạng


nếu bạn phải thường xuyên thay đổi có thể làm như vậy
1- bạn chọn vùng cần làm
rồi sửa code thành

With Sheet1
   [COLOR=#ff0000] Ng = .selection.Value[/COLOR]
End With
..........................
End Sub

tuy nhiên phải có thêm vài dòng lệnh đề phòng trường hợp không chọn hoặc chọn không đúng