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



▷ Xem ngay “Thành thạo Excel trong 7 ngày”:
▷ Xem ngay “Tự động hoá Excel và báo cáo với VBA”:

▷ Video được cung cấp miễn phí bởi
▷ Facebook Page:
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://nacaroinc.com

Xem thêm bài viết khác: https://nacaroinc.com/lap-trinh/

12 Comments

  • Đây là nội dung nhỏ trong bộ khoá học:

    ▷ Khoá học "Học Excel, Có Việc Ngay": http://bit.ly/2uPgEXL
    ▷ Khoá học "Hãy để VBA giúp bạn tăng năng suất làm việc": http://bit.ly/2tcCvGI

    ▷ Video được cung cấp miễn phí bởi https://hocexcel.online

    ĐT Nguyễn [Học Excel Online]
    Posted May 28, 2020
  • 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
    Posted May 28, 2020
  • 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
    Posted May 28, 2020
  • Danh sách menu gõ tiếng việt thì làm sao a

    thenguyen0078888
    Posted May 28, 2020
  • 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
    Posted May 28, 2020
  • Rất tuyệt bạn à

    Pvn Atskmt
    Posted May 28, 2020
  • Hay quá. Giờ em mới biết có hàm Message Box khác hỗ trợ Unicode như thế.

    Trí Nguyễn Đình
    Posted May 28, 2020
  • trinh phục kìa bạn

    Trung Lê
    Posted May 28, 2020
  • 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
    Posted May 28, 2020
  • 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
    Posted May 28, 2020
  • cám ơn thầy

    Tin Phan
    Posted May 28, 2020
  • chinh phục chứ anh?

    Sáng Lê Văn
    Posted May 28, 2020

Leave a comment