Tự động đổi Font chữ khi enter xuống dòng (1 người xem)

[tranvanhung2009]

Chào các anh chị.
Nhờ các anh chị viết giúp em 1 dòng code tự động chuyển mã kí tự từ UNICODE về TCVN3. Khi mình đánh chữ xong rồi enter thì kí tự ở ô đó tự động chuyển.

 

[chuot0106]

Chào các anh chị.
Nhờ các anh chị viết giúp em 1 dòng code tự động chuyển mã kí tự từ UNICODE về TCVN3. Khi mình đánh chữ xong rồi enter thì kí tự ở ô đó tự động chuyển.

Tại sao bạn không chọn TCVN3 từ đầu luôn đi mà phải dùng code? Tôi nghĩ thao tác này cũng chỉ mất vài giây thôi!

 

[tranvanhung2009]

Vì mình gõ tiếng việt bằng UNICODE, mà chương trình của mình chỉ nhận Font TCVN3. Cho nên cứ mỗi lần như bạn nói mình lại phải chuyển lại kiểu gõ, mất nhiều thời gian quá. Trong khi gõ bảng mã TCVN3 chỉ có có định trong 1 cột nhất định

 

[tranvanhung2009]

Mình đã sưu tầm được đoạn code chuyển mã từ UNICODE thành TCVN3 nhưng chưa biết lập trình thế nào:

Function fc(vnstr As String)
Dim c As String, i As Long
For i = 1 To Len(vnstr)
c = Mid(vnstr, i, 1)
Select Case c
Case ChrW$(97): c = "a"
Case ChrW$(225): c = "¸"
Case ChrW$(224): c = "µ"
Case ChrW$(7843): c = "¶"
Case ChrW$(227): c = "·"
Case ChrW$(7841): c = "¹"
Case ChrW$(259): c = "¨"
Case ChrW$(7855): c = "¾"
Case ChrW$(7857): c = "»"
Case ChrW$(7859): c = "¼"
Case ChrW$(7861): c = "½"
Case ChrW$(7863): c = "Æ"
Case ChrW$(226): c = "©"
Case ChrW$(7845): c = "Ê"
Case ChrW$(7847): c = "Ç"
Case ChrW$(7849): c = "È"
Case ChrW$(7851): c = "É"
Case ChrW$(7853): c = "Ë"
Case ChrW$(101): c = "e"
Case ChrW$(233): c = "Ð"
Case ChrW$(232): c = "Ì"
Case ChrW$(7867): c = "Î"
Case ChrW$(7869): c = "Ï"
Case ChrW$(7865): c = "Ñ"
Case ChrW$(234): c = "ª"
Case ChrW$(7871): c = "Õ"
Case ChrW$(7873): c = "Ò"
Case ChrW$(7875): c = "Ó"
Case ChrW$(7877): c = "Ô"
Case ChrW$(7879): c = "Ö"
Case ChrW$(111): c = "o"
Case ChrW$(243): c = "ã"
Case ChrW$(242): c = "ß"
Case ChrW$(7887): c = "á"
Case ChrW$(245): c = "â"
Case ChrW$(7885): c = "ä"
Case ChrW$(244): c = "«"
Case ChrW$(7889): c = "è"
Case ChrW$(7891): c = "å"
Case ChrW$(7893): c = "æ"
Case ChrW$(7895): c = "ç"
Case ChrW$(7897): c = "é"
Case ChrW$(417): c = "¬"
Case ChrW$(7899): c = "í"
Case ChrW$(7901): c = "ê"
Case ChrW$(7903): c = "ë"
Case ChrW$(7905): c = "ì"
Case ChrW$(7907): c = "î"
Case ChrW$(105): c = "i"
Case ChrW$(237): c = "Ý"
Case ChrW$(236): c = "×"
Case ChrW$(7881): c = "Ø"
Case ChrW$(297): c = "Ü"
Case ChrW$(7883): c = "Þ"
Case ChrW$(117): c = "u"
Case ChrW$(250): c = "ó"
Case ChrW$(249): c = "ï"
Case ChrW$(7911): c = "ñ"
Case ChrW$(361): c = "ò"
Case ChrW$(7909): c = "ô"
Case ChrW$(432): c = "­"
Case ChrW$(7913): c = "ø"
Case ChrW$(7915): c = "õ"
Case ChrW$(7917): c = "ö"
Case ChrW$(7919): c = "÷"
Case ChrW$(7921): c = "ù"
Case ChrW$(121): c = "y"
Case ChrW$(253): c = "ý"
Case ChrW$(7923): c = "ú"
Case ChrW$(7927): c = "û"
Case ChrW$(7929): c = "ü"
Case ChrW$(7925): c = "þ"
Case ChrW$(273): c = "®"
Case ChrW$(65): c = "A"
Case ChrW$(193): c = "¸"
Case ChrW$(192): c = "µ"
Case ChrW$(7842): c = "¶"
Case ChrW$(195): c = "·"
Case ChrW$(7840): c = "¹"
Case ChrW$(258): c = "¡"
Case ChrW$(7854): c = "¾"
Case ChrW$(7856): c = "»"
Case ChrW$(7858): c = "¼"
Case ChrW$(7860): c = "½"
Case ChrW$(7862): c = "Æ"
Case ChrW$(194): c = "¢"
Case ChrW$(7844): c = "Ê"
Case ChrW$(7846): c = "Ç"
Case ChrW$(7848): c = "È"
Case ChrW$(7850): c = "É"
Case ChrW$(7852): c = "Ë"
Case ChrW$(69): c = "E"
Case ChrW$(201): c = "Ð"
Case ChrW$(200): c = "Ì"
Case ChrW$(7866): c = "Î"
Case ChrW$(7868): c = "Ï"
Case ChrW$(7864): c = "Ñ"
Case ChrW$(202): c = "£"
Case ChrW$(7870): c = "Õ"
Case ChrW$(7872): c = "Ò"
Case ChrW$(7874): c = "Ó"
Case ChrW$(7876): c = "Ô"
Case ChrW$(7878): c = "Ö"
Case ChrW$(79): c = "O"
Case ChrW$(211): c = "ã"
Case ChrW$(210): c = "ß"
Case ChrW$(7886): c = "á"
Case ChrW$(213): c = "â"
Case ChrW$(7884): c = "ä"
Case ChrW$(212): c = "¤"
Case ChrW$(7888): c = "è"
Case ChrW$(7890): c = "å"
Case ChrW$(7892): c = "æ"
Case ChrW$(7894): c = "ç"
Case ChrW$(7896): c = "é"
Case ChrW$(416): c = "¥"
Case ChrW$(7898): c = "í"
Case ChrW$(7900): c = "ê"
Case ChrW$(7902): c = "ë"
Case ChrW$(7904): c = "ì"
Case ChrW$(7906): c = "î"
Case ChrW$(73): c = "I"
Case ChrW$(205): c = "Ý"
Case ChrW$(204): c = "×"
Case ChrW$(7880): c = "Ø"
Case ChrW$(296): c = "Ü"
Case ChrW$(7882): c = "Þ"
Case ChrW$(85): c = "U"
Case ChrW$(218): c = "ó"
Case ChrW$(217): c = "ï"
Case ChrW$(7910): c = "ñ"
Case ChrW$(360): c = "ò"
Case ChrW$(7908): c = "ô"
Case ChrW$(431): c = "¦"
Case ChrW$(7912): c = "ø"
Case ChrW$(7914): c = "õ"
Case ChrW$(7916): c = "ö"
Case ChrW$(7918): c = "÷"
Case ChrW$(7920): c = "ù"
Case ChrW$(89): c = "Y"
Case ChrW$(221): c = "ý"
Case ChrW$(7922): c = "ú"
Case ChrW$(7926): c = "û"
Case ChrW$(7928): c = "ü"
Case ChrW$(7924): c = "þ"
Case ChrW$(272): c = "§"
End Select
fc = fc + c
Next i
End Function

 

[Quang_Hải]

Mình đã sưu tầm được đoạn code chuyển mã từ UNICODE thành TCVN3 nhưng chưa biết lập trình thế nào:

Phối hợp thế này

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E1:E1000]) Is Nothing Then
   Application.EnableEvents = False
      Target = fc(Target.Value)
   Application.EnableEvents = True
End If
End Sub

 

[Hau151978]

Phối hợp thế này

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E1:E1000]) Is Nothing Then
   Application.EnableEvents = False
      Target = fc(Target.Value)
   Application.EnableEvents = True
End If
End Sub

Bố sung thêm của bác tý, thêm lệnh chuyển font TCVN3 luôn. Còn function fc của bạn đưa vào module.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E:E")) Is Nothing Then
Application.EnableEvents = False
Target.Value = fc(Target.Text)
Target.Font.Name = ".VnTime"
Application.EnableEvents = True
End If
End Sub

 

[tranvanhung2009]

Phối hợp thế này

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [E1:E1000]) Is Nothing Then
   Application.EnableEvents = False
      Target = fc(Target.Value)
   Application.EnableEvents = True
End If
End Sub

Cám ơn anh nhiều lắm ạ. Em làm được rồi!