Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Sub ChuyenFontUnicode()
Dim FontRange As Range, FontName As String, FontSize As String
FontName = "Time New Roman" 'Tuy chon Font Unicode
Application.ScreenUpdating = False
On Error Resume Next
For Each FontRange In ActiveSheet.UsedRange
With FontRange
If UCase(Left(.Font.Name, 3)) = ".VN" Then
.Value = TCVN3toUNICODE(.Text)
.Font.Name = FontName
ElseIf UCase(Left(.Font.Name, 3)) = "VNI" Then
.Value = VniToUni(.Text)
.Font.Name = FontName
.Font.Size = FontSize
End If
End With
Application.ScreenUpdating = True
Set FontRange = Nothing
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment