Chạy macro bị lỗi font

[huycuongxd]

Chào các bạn. Mình vào Tools/ Macro / Record new Macro để ghi 1 đoạn văn bản tiếng Việt nhưng khi chạy macro này thì font chữ tiếng Việt bị lỗi. Các bạn giúp mình khắc phục lỗi này với. Mong được chỉ bảo tận tình vì mình kém cái trò Macro này ghê. Cảm ơn nhiều...

 

[phamduylong]

Chào các bạn. Mình vào Tools/ Macro / Record new Macro để ghi 1 đoạn văn bản tiếng Việt nhưng khi chạy macro này thì font chữ tiếng Việt bị lỗi. Các bạn giúp mình khắc phục lỗi này với. Mong được chỉ bảo tận tình vì mình kém cái trò Macro này ghê. Cảm ơn nhiều...

Dùng macro ghi đoạn văn bản tiếng Việt thì một số ký tự riêng của tiếng Việt sẽ thành dấu hỏi ( ? ) nếu như bạn sử dụng font Uncode.
Bạn phải can thiệp bằng cách vào Module chỉnh lại các dấu hỏi đó (dùng hàm ChrW)

 

[nhopt]

Bác có thể hướng dẫn cụ thể cách sử dụng hàm ChrW trong trường hợp này như thế nào không?
Cảm ơn bác nhiều, em cũng đang vướng vụ này

 

[phamduylong]

Bác có thể hướng dẫn cụ thể cách sử dụng hàm ChrW trong trường hợp này như thế nào không?
Cảm ơn bác nhiều, em cũng đang vướng vụ này

Ví dụ bạn gõ từ "Tiếng Việt" (font Time New Roman) ngoài bảng tính và record thì ghi trong module như thế này:
ActiveCell.FormulaR1C1 = "Ti?ng Vi?t"
2 ký tự ế và ệ bị chuyển thành ?? vì 2 ký tự đó có mã >255 nên không nhập được trong cửa sổ soạn thảo. Đa số các ký tự riêng của tiếng Việt đều nằm trong nhóm này.
Để khắc phục, bạn phải đi đường vòng. Dùng hàm ChrW(mã) chuyển mã thành ký tự. Biết ế có mã 7871, ệ có mã 7879, câu trên viết lại theo kiểu ghép chuỗi:
ActiveCell.FormulaR1C1 = "Ti" & ChrW(7871) & "ng Vi" & ChrW(7879) & "t"
Làm sao biết ệ có mã 7879 ?
Bạn dùng hàm CodeUni nó sẽ cho bạn biết mã của ký tự đầu tiên của chuỗi.

[FONT=Arial]Function CodeUni(text As String) As Integer
CodeUni = AscW(text)
End Function
[/FONT]