Đếm số lượng Textbox có điều kiện

[Bảy Dzõ]

Các anh/chị/em cho tôi hỏi thăm có cách nào đếm được số lượng textbox dựa vào điều kiện được lấy từ nội dung của textbox đó.
Ví dụ: tôi có 1 file có nhiều textbox với nội dung khác nhau dưới định dạng XXX-YYZZ hoặc XXX-YYYZZ và bây giờ tôi muốn đếm số lượng textbox có chứa YY hoặc YYY

Tôi xin gửi file đính kèm để các anh/chị/em có thể thấy được vấn đề. Hy vọng được giúp đỡ. Thân

 

[dhn46]

Code dạng sau, anh tùy biến nhé

Sub GPE()
    Dim shp As Shape
    Dim CompStr As String
    Dim i As Long
    CompStr = "P01-BA03"
    For Each shp In Application.ActiveSheet.Shapes
        If shp.Type = msoTextBox Then
            If shp.TextFrame2.TextRange.Text = CompStr Then
                i = i + 1
            End If
        End If
    Next
    MsgBox i
End Sub

 

[Bảy Dzõ]

Code dạng sau, anh tùy biến nhé

Sub GPE()
    Dim shp As Shape
    Dim CompStr As String
    Dim i As Long
    CompStr = "P01-BA03"
    For Each shp In Application.ActiveSheet.Shapes
        If shp.Type = msoTextBox Then
            If shp.TextFrame2.TextRange.Text = CompStr Then
                i = i + 1
            End If
        End If
    Next
    MsgBox i
End Sub

Cám ơn dhn46 nhiều, anh có thử để vào nhưng nó lại không ra kết quả chính xác. Nếu anh đổi nội dung textbox thành BA thì nó đếm được không thì nó không đếm được. Ninh xem giúp. Thân

 

[dhn46]

Cám ơn dhn46 nhiều, anh có thử để vào nhưng nó lại không ra kết quả chính xác. Nếu anh đổi nội dung textbox thành BA thì nó đếm được không thì nó không đếm được. Ninh xem giúp. Thân

Anh áp dụng sai Code rồi. Anh dùng Left (....) thì nó chỉ thỏa cái Left thôi, còn nếu muốn 1 phần thì dùng Like ví dụ như

If shp.TextFrame2.TextRange.Text Like "*" & CompStr & "*" Then

 

[Bảy Dzõ]

Anh áp dụng sai Code rồi. Anh dùng Left (....) thì nó chỉ thỏa cái Left thôi, còn nếu muốn 1 phần thì dùng Like ví dụ như

If shp.TextFrame2.TextRange.Text Like "*" & CompStr & "*" Then

Cám ơn dhn46, học thêm được cái mới. Mà học hoài sao cứ vẫn ngu