Đá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://game911.vn

Xem thêm bài viết khác: https://game911.vn/cong-nghe/

12 Comments

  • ĐT Nguyễn [Học Excel Online]

    Đâ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

    May 27, 2020 - 10:19 pm Reply
  • Đào Xuân Hữu

    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

    May 27, 2020 - 10:19 pm Reply
  • Bùi Quang Hùng

    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.

    May 27, 2020 - 10:19 pm Reply
  • thenguyen0078888

    Danh sách menu gõ tiếng việt thì làm sao a

    May 27, 2020 - 10:19 pm Reply
  • tinh nguyen thanh

    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 ạ.

    May 27, 2020 - 10:19 pm Reply
  • Pvn Atskmt

    Rất tuyệt bạn à

    May 27, 2020 - 10:19 pm Reply
  • Trí Nguyễn Đình

    Hay quá. Giờ em mới biết có hàm Message Box khác hỗ trợ Unicode như thế.

    May 27, 2020 - 10:19 pm Reply
  • Trung Lê

    trinh phục kìa bạn

    May 27, 2020 - 10:19 pm Reply
  • Nguyen Hoang Phuong

    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

    May 27, 2020 - 10:19 pm Reply
  • ha pham

    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

    May 27, 2020 - 10:19 pm Reply
  • Tin Phan

    cám ơn thầy

    May 27, 2020 - 10:19 pm Reply
  • Sáng Lê Văn

    chinh phục chứ anh?

    May 27, 2020 - 10:19 pm Reply

Leave A Comment

Your email address will not be published.