Liệu có chạy Code hiện ra Tiếng Việt có dấu ( Font Vn.Time)

[Dauthivan]

Em xin hỏi liệu có thể viết Code sao cho khi chạy Code nó hiện ra tại tất cả các ô A1 của các Sheet với nội dung: Cộng hòa xã hội Chủ nghĩa Việt Nam (Font Vn.time) không ah?

 

[Hai Lúa Miền Tây]

Em xin hỏi liệu có thể viết Code sao cho khi chạy Code nó hiện ra tại tất cả các ô A1 của các Sheet với nội dung: Cộng hòa xã hội Chủ nghĩa Việt Nam (Font Vn.time) không ah?

Bạn thử code sau:

Sub Test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    With ws.Range("A1")
        .Value = "Coäng Hoøa Xaõ Hoäi Chuû Nghóa Vieät Nam"
        .Font.Name = "VNI-Times"
    End With
Next

End Sub