giảm kích thước tự động của 1 chữ trong nhiều chữ của tất cả sheet

[maiban1986]

anh chị cho em hỏi có cách nào giảm kích thước của 1 chữ trong nhiều chữ của nhiều sheet xuống cỡ chữ 24 không ạ. em xin cảm ơn

 

[maiban1986]

Dạ cả nhà cho em hỏi có cách nào không ạ. Xin hướng dẫn

 

[CHAOQUAY]

anh chị cho em hỏi có cách nào giảm kích thước của 1 chữ trong nhiều chữ của nhiều sheet xuống cỡ chữ 24 không ạ. em xin cảm ơn

Bạn muốn khi nào thì giảm kích thước

 

[maiban1986]

Bạn muốn khi nào thì giảm kích thước

Dạ khi mở sheet lên ạ

 

[CHAOQUAY]

Dạ khi mở sheet lên ạ

Chữ mà bạn muốn giảm kích thước được chọn theo điều kiện nào.

 

[maiban1986]

Chữ mà bạn muốn giảm kích thước được chọn theo điều kiện nào.

cứ có chữ giống chữ đấy thì giảm ạ

 

[CHAOQUAY]

cứ có chữ giống chữ đấy thì giảm ạ

Thử code sau
Nhấn alt+F11, kích đúp vào ThisWorkbook, dán code dưới đây rồi đóng & mở file

Private Sub Workbook_Open()
Dim Ws As Worksheet
Dim Rng As Range
Dim Text
Dim i, j
Text = "h" & Chr(224)
For Each Ws In Worksheets
    For Each Rng In Ws.UsedRange
        i = InStr(Rng, Text)
        If i Then Rng.Characters(i, Len(Text)).Font.Size = 24
    Next Rng
Next Ws
End Sub

 

[maiban1986]

ca

Thử code sau
Nhấn alt+F11, kích đúp vào ThisWorkbook, dán code dưới đây rồi đóng & mở file

Private Sub Workbook_Open()
Dim Ws As Worksheet
Dim Rng As Range
Dim Text
Dim i, j
Text = "h" & Chr(224)
For Each Ws In Worksheets
    For Each Rng In Ws.UsedRange
        i = InStr(Rng, Text)
        If i Then Rng.Characters(i, Len(Text)).Font.Size = 24
    Next Rng
Next Ws
End Sub

cám ơn anh nhiều