Xin Giúp Gán giá tri tiếng Việt vào ô có font Vni

[doveandrose]

em cần gán giá trị tiếng Việt vào các ô trong bảng Excel
chẳng hạn "Thuế GTGT đầu ra" xuống ô A1 . nhưng ô A1 đó có font Vni-times thì ko thể làm theo cách này
range ("A1").value = "Thu" & ChrW(7871) & " GTGT " & ChrW(273) & ChrW(7847) & "u ra"

Nhưng em thì ko dc phép sửa ô A1 đó thành Font Times New Roman dc vì file dùng chung với người khác chứ ko phải file do em lập
xin cho em cách giải quyết . Cảm ơn

 

[phucbugis]

em cần gán giá trị tiếng Việt vào các ô trong bảng Excel
chẳng hạn "Thuế GTGT đầu ra" xuống ô A1 . nhưng ô A1 đó có font Vni-times thì ko thể làm theo cách này
range ("A1").value = "Thu" & ChrW(7871) & " GTGT " & ChrW(273) & ChrW(7847) & "u ra"

Nhưng em thì ko dc phép sửa ô A1 đó thành Font Times New Roman dc vì file dùng chung với người khác chứ ko phải file do em lập
xin cho em cách giải quyết . Cảm ơn

mình có thử 1 cách thấy "có vẻ được" (hic, vì ko rành lắm kiểu gõ bên Vni-times)

các bước:
- gõ chữ: "Thuế GTGT đầu ra" vào 1 ô bất kỳ có định dạng Font Vni-times.
- Copy các chữ trên --> sẽ đưa nó vào Name
- tạo 1 Name tên bất kỳ, ví dụ GTGT
sau khi thêm Name thì nó sẽ như hình dưới


- bạn thử với đoạn code sau để xem kết quả nhé:

Sub test()
    Range("A1") = Evaluate(ThisWorkbook.Names("GTGT").Value)
End Sub