Cách viết tiếng việt có dấu trong msgbox,....... Hoàn toàn mới

[namhandsome1]

Xin chào các bạn qua tìm hiểu thì viết tiếng việt có dấu trong vba excel có vẻ khá nan giải, cũng có 1 số cách của các pro chỉ dẫn nhưng mình thấy nó vẫn chưa phải là cách dễ. Sau 1 hồi tìm tòi lục lọi, mình đã tìm ra cách không biết đã có ai biết chưa nếu có vô tình giống các của topic nào đó mình cũng xin lỗi trước. Cách của mình như sau:
B1: bạn vào Tools --> Options (trong cửa sổ soạn code vba). Tại cửa sổ Options, bạn chọn thẻ Editor Format. Tại mục Font: chọn font: Arial (Vietnamese). Kich OK, Vậy là xong
B2: Khi nào cần viết tiếng việt có dấu bạn chỉ cần mở Unikey lên chọn Bảng mã khác: -----> Vietnamese Locale CP 1258. Vậy là xong.
Bạn thử msgbox bằng tiếng việt có dấu đi.
Ở form tại cái caption form bt cũng ko viết dc tiếng việt có dấu bạn chỉ cần chọn về font aria và chọn bộ gõ như trên là ok luôn. Mình mới tìm ra các bạn xem và test thử nhé,
Chúc thành công!

 

[Nguyễn Duy Tuân]

cái này của bác phan tự hướng mình vô tình bắt gặp bác ấy chia sẽ cho mọi người gửi cho bạn nào cần

Cái file bạn gửi không phải của anh Phan Tự Hướng. Mã nguồn trong 2 module đó là của Nguyễn Duy Tuân và Lê Văn Duyệt đó. Anh Hướng là người copy vào file bạn gửi thôi. Anh Hướng văn minh ở chỗ giữ nguyên tác giả gốc nên vẫn còn nguyên thông tin trong file đó.

 

[MinhKhai]

Tóm lại là máy được máy không thì các bạn không nên dùng ( coi đây là moitj phạm vi nghiên cứu). Dùng cái gì an toàn nhất í. MsgBox unicode đơn giản như MsgBox mà thôi.
bluesofts.net:9000/hien-thi-msgbox-chu-co-dau-tieng-viet-unicode.html

Link của anh được viết từ thời Lý hay sao anh nhỉ, hổng có chạy được Office 64b.
Anh update lại code để là tư liệu đi anh

 

[Nguyễn Duy Tuân]

Link của anh được viết từ thời Lý hay sao anh nhỉ, hổng có chạy được Office 64b.
Anh update lại code để là tư liệu đi anh

Xin lỗi mình dán link nhầm. Bài viết mã nguồn này mình đã nâng cấp chạy cho cả 32 và 64 bit rồi nhé.
http://bluesofts.net:9000/hien-thi-msgbox-chu-co-dau-tieng-viet-unicode.html

 

[MinhKhai]

Xin lỗi mình dán link nhầm. Bài viết mã nguồn này mình đã nâng cấp chạy cho cả 32 và 64 bit rồi nhé.
http://bluesofts.net:9000/hien-thi-msgbox-chu-co-dau-tieng-viet-unicode.html

Link trên của anh em tự hiểu và sửa lại rồi để vào được trang BS. Cũng down mấy lần mà toàn báo lỗi.
Lỗi tại file tải về từ trang web, đồng thời lỗi từ code copy như hướng dẫn anh ạ

 

[Nguyễn Duy Tuân]

Link trên của anh em tự hiểu và sửa lại rồi để vào được trang BS. Cũng down mấy lần mà toàn báo lỗi.
Lỗi tại file tải về từ trang web, đồng thời lỗi từ code copy như hướng dẫn anh ạ
View attachment 204807

Vừa rồi bên anh cập nhật lại dữ liệu server nên upload nhầm bản cũ. E, tải lại theo link này nhé
http://www.bluesofts.net/Baiviet/Laptrinh/VB_VBA/MsgBoxUnicode.zip

 

[MinhKhai]

Vừa rồi bên anh cập nhật lại dữ liệu server nên upload nhầm bản cũ. E, tải lại theo link này nhé
http://www.bluesofts.net/Baiviet/Laptrinh/VB_VBA/MsgBoxUnicode.zip

Vâng anh. Code chạy thì không báo lỗi gì, nhưng kết quả như thế này là sao anh nhỉ

 

[Nguyễn Duy Tuân]

Vâng anh. Code chạy thì không báo lỗi gì, nhưng kết quả như thế này là sao anh nhỉ
View attachment 204809

Trong thủ tục test từ nút bấm code là:

Sub TestFontInRANGE()
   'Test trong Excel
   MsgBoxUni Range("B3").Value, vbInformation, Range("B4").Value
   MsgBox Range("B3").Value, vbInformation, _
          Range("B4").Value & " - Dung ham MsgBox cua VB/VBA thi loi"
End Sub

Lệnh thứ nhất là hàm MsgBoxUni hiển thị unicode chuẩn, sau khi bạn nhấn Ok thì hàm MsgBox gốc của VBA hiể thị cùng nội dung thì lỗi font. Mình cố tình chạy hai lần để so sánh ấy thôi.

 

[hackVBA]

Cái file bạn gửi không phải của anh Phan Tự Hướng. Mã nguồn trong 2 module đó là của Nguyễn Duy Tuân và Lê Văn Duyệt đó. Anh Hướng là người copy vào file bạn gửi thôi. Anh Hướng văn minh ở chỗ giữ nguyên tác giả gốc nên vẫn còn nguyên thông tin trong file đó.

Mình không đọc code nên ko biết xin lỗi tác giả

 

[Nguyễn Duy Tuân]

Mình không đọc code nên ko biết xin lỗi tác giả

Mình chỉ đính chính chút thôi chứ không có gì to tát cả

 

[vanlinhmt]

Trong thủ tục test từ nút bấm code là:

Sub TestFontInRANGE()
   'Test trong Excel
   MsgBoxUni Range("B3").Value, vbInformation, Range("B4").Value
   MsgBox Range("B3").Value, vbInformation, _
          Range("B4").Value & " - Dung ham MsgBox cua VB/VBA thi loi"
End Sub

Lệnh thứ nhất là hàm MsgBoxUni hiển thị unicode chuẩn, sau khi bạn nhấn Ok thì hàm MsgBox gốc của VBA hiể thị cùng nội dung thì lỗi font. Mình cố tình chạy hai lần để so sánh ấy thôi.

Máy của em thì bị báo ngược. Msgbox nguyên bản thì lại hiển thị chuẩn. Còn Msgbox Uni thì lại hiển thị lỗi.
Anh Tuân giúp em xem có phải em cài đặt máy sai ở chỗ nào không ạ
Hiện tại máy đang cài như đính kèm

 

[Nguyễn Duy Tuân]

Máy của em thì bị báo ngược. Msgbox nguyên bản thì lại hiển thị chuẩn. Còn Msgbox Uni thì lại hiển thị lỗi.
Anh Tuân giúp em xem có phải em cài đặt máy sai ở chỗ nào không ạ
Hiện tại máy đang cài như đính kèm

Do máy bạn càu phần mềm nào đó họ thay font chuẩn thôi.

 

[vanlinhmt]

Do máy bạn càu phần mềm nào đó họ thay font chuẩn thôi.

Đúng là do máy của em bị.
Vì em chạy hai bản win song song. Một bản chạy bình thường còn một bản lại bị lỗi.
Trước nay dùng MsgboxUni này chưa bao giờ bị lỗi nên giờ gặp không biết fix lại máy tính ntn . Làm sao để thay lại font chuẩn ạ ?