Đánh tiếng Việt trong VBA, msgbox hỗ trợ tiếng việt



▷ Khoá học “Học Excel, Có Việc Ngay”: ​
▷ Xem ngay “Tự động hoá Excel và báo cáo với VBA”:

▷ Theo dõi Facebook cá nhân:
▷ Blog cá nhân:
▷ Video được cung cấp miễn phí bởi

Khám phá thêm thật nhiều kiến thức với Học Excel Online:
▷ Học Excel, Có Việc Ngay:
▷ Hãy để VBA giúp bạn:
▷ Hiểu và phân tích dữ liệu với Excel:
Nhiều bạn đã có câu hỏi là vì sao không thể gõ được tiếng Việt trong trình soạn thảo VBA. Mục đích của việc gõ tiếng Việt hoặc ký tự Unicode trong trình soạn thảo VBA có thể là output ra 1 thông báo (Message Box) hoặc là điền dữ liệu cho vùng trên bảng tính, hoặc là sử dụng trong giao diện phần mềm nền Excel của các bạn. Vậy trình soạn thảo VBA có hỗ trợ tiếng Việt hay Unicode không? Câu trả lời là không, Microsoft không hỗ trợ điều này. Tuy vậy, chúng ta vẫn có thể ghi những nội dung tiếng Việt ra các vùng trên bảng tính, vẫn có thể hiển thị tiếng Việt trên message box được, hiện như thế nào thì mời các bạn theo dõi video hướng dẫn sau đây.

Nguồn: https://thebadlibrarian.com/

Xem thêm bài viết khác: https://thebadlibrarian.com/tong-hop/

All Comments

  • mình làm theo hướng dẫn mà ko ra được đoạn code trên mà nó ra ntn
    Sub Macro1()

    '

    ' Macro1 Macro

    '

    '

    Selection.TypeText Text:="h"

    Selection.Paste

    Selection.TypeText Text:=" "

    Selection.Paste

    Selection.TypeBackspace

    Selection.Paste

    Selection.TypeBackspace

    Selection.Paste

    Selection.TypeBackspace

    Selection.Paste

    Selection.TypeText Text:="cel online"

    End Sub

    Sub Macro2()

    '

    ' Macro2 Macro

    '

    '

    Selection.TypeText Text:="h"

    Selection.Paste

    Selection.TypeText Text:=" "

    Selection.Paste

    Selection.TypeBackspace

    Selection.Paste

    Selection.TypeBackspace

    Selection.Paste

    Selection.TypeBackspace

    Selection.Paste

    Selection.TypeText Text:="cel online gi"

    Selection.Paste

    Selection.TypeText Text:=" b"

    Selection.Paste

    Selection.TypeText Text:=" v"

    Selection.Paste

    Selection.TypeBackspace

    Selection.Paste

    Selection.TypeText Text:=" qua m"

    Selection.Paste

    Selection.TypeText Text:=" th"

    Selection.Paste

    Selection.TypeBackspace

    Selection.Paste

    Selection.TypeText Text:=" th"

    Selection.Paste

    Selection.TypeText Text:="h "

    End Sub

    mong được trợ giúp

    Đào Xuân Hữu July 10, 2020 4:00 am Reply
  • Làm thế nào để tăng cỡ chữ trong "msgbox hỗ trợ tiếng Việt" vậy ad ơi?, cỡ chữ hơi bé tôi muốn nó to thêm tí nữa.

    Bùi Quang Hùng July 10, 2020 4:00 am Reply
  • Danh sách menu gõ tiếng việt thì làm sao a

    thenguyen0078888 July 10, 2020 4:00 am Reply
  • em thấy có core để viết tiếng việt cho msgbox và cho cả userform mà anh. có thể lấy được cả biểu tượng của window ra làm biểu tượng cho msgbox. chữ msgbox có thể tô đâm và in nghiêng nưa. ai cần thì em gửi core cho ạ.

    tinh nguyen thanh July 10, 2020 4:00 am Reply
  • Rất tuyệt bạn à

    Pvn Atskmt July 10, 2020 4:00 am Reply
  • Hay quá. Giờ em mới biết có hàm Message Box khác hỗ trợ Unicode như thế.

    Trí Nguyễn Đình July 10, 2020 4:00 am Reply
  • trinh phục kìa bạn

    Trung Lê July 10, 2020 4:00 am Reply
  • ▷ Khoá học "Học Excel, Có Việc Ngay": ​http://bit.ly/ex101_dtnguyen
    ▷ Xem ngay "Tự động hoá Excel và báo cáo với VBA": http://bit.ly/vba101_dtnguyen
    ▷ Theo dõi Facebook cá nhân: https://fb.me/kuldokk
    ▷ Blog cá nhân: https://blog.hocexcel.online
    ▷ Video được cung cấp miễn phí bởi https://hocexcel.online

    Khám phá thêm thật nhiều kiến thức với Học Excel Online:
    ▷ Học Excel, Có Việc Ngay: https://www.hocexcel.online/ex101
    ▷ Hãy để VBA giúp bạn: https://www.hocexcel.online/vba101
    ▷ Hiểu và phân tích dữ liệu với Excel: https://www.hocexcel.online/dv101

    ĐT Nguyễn [Học Excel Online] July 10, 2020 4:00 am Reply
  • Cho mình hỏi 1 chút- Nếu ta viết code Range("A5:D10").Select có nghĩa là chon vùng A5:D10- Vậy nếu có vùng chon nao đó mà muốn lấy địa chỉ của nó thì code viết như thế nào.Vui long giúp mình.Cam on

    Nguyen Hoang Phuong July 10, 2020 4:00 am Reply
  • cho minh hoi sao code nay khong chay duoc
    Sub xoa_in_nghieng()
    Dim i As Integer
    For i = 1 To 10
    If Cells(i, 1).FontStyle = "Italic" Then
    Rows(i).Delete
    End If
    Next
    End Sub
    cam on nhieu

    ha pham July 10, 2020 4:00 am Reply
  • cám ơn thầy

    Tin Phan July 10, 2020 4:00 am Reply
  • chinh phục chứ anh?

    Sáng Lê Văn July 10, 2020 4:00 am Reply

Leave a Reply

Your email address will not be published. Required fields are marked *