Cần viết Code gõ chữ trong Excel (File sử dụng Font Time New Roman) không bị lỗi chữ (4 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có 1 File Excel sử dụng Font chữ là Time New Roman. Để gõ vào ô B3 có chữ là Cộng hòa xã hội chủ nghĩa Việt Nam thì tôi xài Code như sau:

[B3] = "Cộng hòa xã hội chủ nghĩa Việt Nam"

=> Bị lỗi Font chữ. Không biết là có cách nào xài Code trên mà không bị lỗi Font chữ ở ô B3 sau khi xài Code không?
Kết quả mong muốn là:

Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[comet_1701]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có 1 File Excel sử dụng Font chữ là Time New Roman. Để gõ vào ô B3 có chữ là Cộng hòa xã hội chủ nghĩa Việt Nam thì tôi xài Code như sau:

[B3] = "Cộng hòa xã hội chủ nghĩa Việt Nam"

=> Bị lỗi Font chữ. Không biết là có cách nào xài Code trên mà không bị lỗi Font chữ ở ô B3 sau khi xài Code không?
Kết quả mong muốn là:

Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

Sao bạn ko lên gpe mà tìm, cả đống
http://www.giaiphapexcel.com/forum/...IẾNG-VIỆT-(Có-dấu)-trong-cửa-số-soạn-thảo-VBA. bạn xem bài 8

Sub test()
[B3] = "C" & ChrW$(7897) & "ng H" & ChrW$(242) & "a X" & ChrW$(227) & " H" & ChrW$(7897) & "i Ch" & ChrW$(7911) & " ngh" & ChrW$(297) & "a Vi" & ChrW$(7879) & "t Nam"
End Sub

 

[hung2412]

Sao bạn ko lên gpe mà tìm, cả đống
http://www.giaiphapexcel.com/forum/...IẾNG-VIỆT-(Có-dấu)-trong-cửa-số-soạn-thảo-VBA. bạn xem bài 8

Sub test()
[B3] = "C" & ChrW$(7897) & "ng H" & ChrW$(242) & "a X" & ChrW$(227) & " H" & ChrW$(7897) & "i Ch" & ChrW$(7911) & " ngh" & ChrW$(297) & "a Vi" & ChrW$(7879) & "t Nam"
End Sub

OK, cảm ơn bạn. Tôi muốn tìm nhưng không rõ là tìm như thế nào. Bây giờ thì ổn rồi.

 

[Kiều Mạnh]

OK, cảm ơn bạn. Tôi muốn tìm nhưng không rõ là tìm như thế nào. Bây giờ thì ổn rồi.

máy của tôi gõ trên sheet sao thì trong vba gõ y trang như vậy lên Msgbox cũng vậy khỏi ChrW$(7879) làm gì cho nó rắc rối...giải thích tại sao thì hỏng biết nói thế nào hết....nhưng copy sang máy khác là lỗi Font

 

[hung2412]

máy của tôi gõ trên sheet sao thì trong vba gõ y trang như vậy lên Msgbox cũng vậy khỏi ChrW$(7879) làm gì cho nó rắc rối...giải thích tại sao thì hỏng biết nói thế nào hết....nhưng copy sang máy khác là lỗi Font

Cái gì vậy? Bạn hỏi hay là trả lời thế?

 

[Kiều Mạnh]

Cái gì vậy? Bạn hỏi hay là trả lời thế?

trả lời mà ....lại

 

[hung2412]

trả lời mà ....lại

Nếu mà bạn trả lời thì: Ở #4 thì bạn dùng File Font Time New Roman hả? Mà không lỗi ư?

 

[Kiều Mạnh]

Nếu mà bạn trả lời thì: Ở #4 thì bạn dùng File Font Time New Roman hả? Mà không lỗi ư?

font gì cũng vậy hết không lỗi gì hết chạy ngon lành khỏi ChrW$(7879) hay sử dụng code UniConvert để chuyển tiếng việt có dấu làm chi cho mệt...cứ gõ trong vba như trên word vậy có dấu thì trên Msgbox có dấu không dấu thì hiển thị ko dấu

 

[hung2412]

font gì cũng vậy hết không lỗi gì hết chạy ngon lành khỏi ChrW$(7879) hay sử dụng code UniConvert để chuyển tiếng việt có dấu làm chi cho mệt...cứ gõ trong vba như trên word vậy có dấu thì trên Msgbox có dấu không dấu thì hiển thị ko dấu

Vậy sao? Thế mà khi bạn mang File đó sang máy khác thì bị lỗi Font và không hiểu tại sao lại như vậy?

 

[Kiều Mạnh]

Vậy sao? Thế mà khi bạn mang File đó sang máy khác thì bị lỗi Font và không hiểu tại sao lại như vậy?

chính xác là vậy....mình có hỏi một bài trên GPE về trường hợp như vậy có bạn trả lời nhưng chưa chính xác đúng bản chất của nó

 

[hung2412]

chính xác là vậy....mình có hỏi một bài trên GPE về trường hợp như vậy có bạn trả lời nhưng chưa chính xác đúng bản chất của nó

Bạn thử Up lên xem sao hoặc là đăng đề tài mới hỏi lại xem.

 

[Kiều Mạnh]

Bạn thử Up lên xem sao hoặc là đăng đề tài mới hỏi lại xem.

hỏi rồi úp rồi nhưng trả lời chưa chính xác đành bỏ vậy cứ thế xài thoải mái mới hay chứ

 

[hung2412]

hỏi rồi úp rồi nhưng trả lời chưa chính xác đành bỏ vậy cứ thế xài thoải mái mới hay chứ

Vậy bạn đã cài lại Win lần nào chưa? Bạn thử Up cái File lên xem sao.