Nhờ Cao Nhân Chỉnh Sửa Lỗi code Giúp. (1 người xem)

[truongquangtrong]

Chào các bạn.
Nhờ mọi người xem giúp mình bị lỗi chỗ nào mà nó cứ báo lỗi Runtime hoài... Mò hoài mà không biết nó bị ở đâu.

Sub CountColorsST()    Dim sh As Shape
    Dim i As Integer
    Dim ws As Worksheet
    Dim SS As Worksheet
   
    Set ws = ThisWorkbook.Sheets("Sun-Thu")
    Set SS = ThisWorkbook.Sheets("Settings")
    ssLastRow = SS.Cells(SS.Rows.Count, "A").End(xlUp).Row - 1
   
    For i = 2 To ssLastRow
        SS.Cells(i, 2).Value = 0
    Next i
   
    For Each sh In Application.ActiveSheet.Shapes
        If (shp.Name Like "*Rectangle*" Or shp.Name Like "*Flowchart*" Or shp.Name Like "*Freeform*") Then
            For i = 2 To ssLastRow
                If (sh.Fill.ForeColor = SS.Cells(i, 1).Interior.Color) Then
                    SS.Cells(i, 2).Value = SS.Cells(i, 2).Value + 1
                End If
            Next i
        End If
    Next
End Sub

Nó báo lỗi ở hàng: If (shp.Name Like "*Rectangle*" Or shp.Name Like "*Flowchart*" Or shp.Name Like "*Freeform*") Then


Cảm ơn mọi người.
Xem thêm>>> https://internetvietnam.net/

 

[ChanhTQ@]

Máy nó chỉ mới hiểu Sh.Name là gì, chớ shp.Name là gì thì chưa thể hiểu;

 

[doatmenhhon]

Lúc thì shp, lúc thì sh nên nó thế.

 

[jack nt]

thường thì Sh dùng khai báo cho Sheet, Wb cho WorkBook, n cho số nguyên, i cho chỉ số ... đại loại vậy
Khai báo sh as Shape dễ lẫn lộn lắm.