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

namhandsome1 đã viết:

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!

Nhấp chuột vào đây để mở rộng...

hongphuong1997 đã viết:

Bạn hơi bị sạo đấy, nếu đơn giản như vậy thì ai cũng làm được roài.
Không đến lượt bạn mách đâu.

Nhấp chuột vào đây để mở rộng...

namhandsome1 đã viết:

Trước khi bình luận thì bạn hãy thử trước đi hãy nói. Không người khác đánh giá đấy!

Nhấp chuột vào đây để mở rộng...

hongphuong1997 đã viết:

Mình nói với bạn là
vấn đề này rất nhức nhối đối với tớ
Tớ đã cài cả hàng bao nhiêu loại font
Và tớ dùng offic 2016 chứ không phải là dòng thấp
Thử là thử thế nào?

Nhấp chuột vào đây để mở rộng...

hongphuong1997 đã viết:

Mình nói với bạn là
vấn đề này rất nhức nhối đối với tớ
Tớ đã cài cả hàng bao nhiêu loại font
Và tớ dùng offic 2016 chứ không phải là dòng thấp
Thử là thử thế nào?

Nhấp chuột vào đây để mở rộng...

namhandsome1 đã viết:

thử là thử cái cách mà mình hướng dẫn ý, nếu ko OK thì hãy phản bác.

Nhấp chuột vào đây để mở rộng...

hongphuong1997 đã viết:

Thôi đi bạn à
Bạn kiểm tra xem bạn có adin nào không
Bạn quá nhầm tưởng đấy

Nhấp chuột vào đây để mở rộng...

namhandsome1 đã viết:

thử là thử cái cách mà mình hướng dẫn ý, nếu ko OK thì hãy phản bác.

Bài đã được tự động gộp: 30/9/18

Bạn xem đi!

Nhấp chuột vào đây để mở rộng...

hongphuong1997 đã viết:

Demo đề mồ cái gì
Bạn gỡ hết addin trong máy đi
Thử xem có được không?
Hay bạn dùng máy của người khác hở?

Nhấp chuột vào đây để mở rộng...

hongphuong1997 đã viết:

Demo đề mồ cái gì
Bạn gỡ hết addin trong máy đi
Thử xem có được không?
Hay bạn dùng máy của người khác hở?

Nhấp chuột vào đây để mở rộng...

bactu đã viết:

Mình đã thử trên máy không có addin gì hết. Kết quả rất tuyệt!

Nhấp chuột vào đây để mở rộng...

namhandsome1 đã viết:

vấn đề là bác đã cài đặt lại font như cửa sổ code như mình bảo chưa đã

Nhấp chuột vào đây để mở rộng...

bactu đã viết:

Mình đã thử trên máy không có addin gì hết. Kết quả rất tuyệt!

Nhấp chuột vào đây để mở rộng...

bactu đã viết:

Mình đã thử trên máy không có addin gì hết. Kết quả rất tuyệt!

Nhấp chuột vào đây để mở rộng...

quanluu1989 đã viết:

Chắc cái này phụ thuộc vào cài đặt font chữ của win nữa. Mà phải chỉnh font của win thì thôi ví nó có thể ảnh hưởng về hiển thị và có thể 1 số chương trình khác. Để hiển thị tiếng việt thì có thể dùng 1 số function để chuyển mã, trước tôi có thấy 1 số function, nhưng không note lại, với mình thì ít khi cần, mà cần tới thì dùng mấy cái chrw để dùng thôi.

View attachment 204789

Nhấp chuột vào đây để mở rộng...

hongphuong1997 đã viết:

Anh ơi. phải dùng add-ins của bên thứ 3 can thiệp vào đấy anh à
Em cũng biết cái này mà

Nhấp chuột vào đây để mở rộng...

namhandsome1 đã viết:

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!

Nhấp chuột vào đây để mở rộng...

hongphuong1997 đã viết:

Anh ơi. phải dùng add-ins của bên thứ 3 can thiệp vào đấy anh à
Em cũng biết cái này mà

Nhấp chuột vào đây để mở rộng...

hackVBA đã viết:

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

Nhấp chuột vào đây để mở rộng...

Nguyễn Duy Tuân đã viết:

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

Nhấp chuột vào đây để mở rộng...

MinhKhai đã viết:

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

Nhấp chuột vào đây để mở rộng...

Nguyễn Duy Tuân đã viết:

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

Nhấp chuột vào đây để mở rộng...

MinhKhai đã viết:

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

Nhấp chuột vào đây để mở rộng...

Nguyễn Duy Tuân đã viết:

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

Nhấp chuột vào đây để mở rộng...

MinhKhai đã viết:

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

Nhấp chuột vào đây để mở rộng...

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

Nguyễn Duy Tuân đã viết:

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 đó.

Nhấp chuột vào đây để mở rộng...

hackVBA đã viết:

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

Nhấp chuột vào đây để mở rộng...

Nguyễn Duy Tuân đã viết:

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

Mã: Sao chép.

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.

Nhấp chuột vào đây để mở rộng...

vanlinhmt đã viết:

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

Nhấp chuột vào đây để mở rộng...

Nguyễn Duy Tuân đã viết:

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

Nhấp chuột vào đây để mở rộng...

Hoa Sung đã viết:

các bạn tham khảo nhé mh thấy rất ok.

Nhấp chuột vào đây để mở rộng...