Tìm chữ khác size trong ô

[zxxzzxxz]

em muốn tìm ra cột nào có chữ kích thước khác. VÍ dụ trong file có 4 cột , thì có cột C và cột D có chứa chữ có kích thước 16 to hơn kích thước các chữ bình thường là 11. Bảng dữ liệu nhiều dòng nhiều cột thì mình duyệt for thế nào ạ. Cảm ơn.

các bác ai biết bày cho em với ạ

 

[giaiphap]

em muốn tìm ra cột nào có chữ kích thước khác. VÍ dụ trong file có 4 cột , thì có cột C và cột D có chứa chữ có kích thước 16 to hơn kích thước các chữ bình thường là 11. Bảng dữ liệu nhiều dòng nhiều cột thì mình duyệt for thế nào ạ. Cảm ơn.

Dùng thử đoạn code này xem có được không nhé!

Private Function Check_Font(Rng As Range) As Boolean
    On Error GoTo Loi
    Dim n%
    Check_Font = True
    n = Rng.Font.Size
    Exit Function
Loi:
    Check_Font = False
End Function

Public Sub GPE()
    Dim Rng As Range, cCell As Range
    For Each cCell In Sheet2.Range("C5:E5")
        If Not Check_Font(cCell) Then
            If Rng Is Nothing Then
                Set Rng = cCell
            Else
                Set Rng = Union(Rng, cCell)
            End If
        End If
    Next
    If Not Rng Is Nothing Then MsgBox Rng.Address
End Sub

 

[zxxzzxxz]

Private Function Check_Font(Rng As Range) As Boolean On Error GoTo Loi Dim n% Check_Font = True n = Rng.Font.Size Exit Function Loi: Check_Font = False End Function Public Sub GPE() Dim Rng As Range, cCell As Range For Each cCell In Sheet2.Range("C5:E5") If Not Check_Font(cCell) Then If Rng Is Nothing Then Set Rng = cCell Else Set Rng = Union(Rng, cCell) End If End If Next If Not Rng Is Nothing Then MsgBox Rng.Address End Sub

em đã làm được,cảm ơn bác nhiều ạ !