▷ 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:
Xem Thêm Bài Viết:
- Bài 10 hàm trong python def trong python | Học lập trình python
- [khóa học lập trình PHP] Thực hiện đăng nhập tài khoản sử dụng php mysql – khoá học PHP căn bản
- Lập trình Delphi cơ bản Bài 01 Tạo chương trình đầu tiên
- Hướng dẫn cách tạo UserForm tra cứu nhập liệu bằng VBA (Macro) Trên Excel
- Bỏ túi tuyệt chiêu chơi Gunny trên Zing me siêu hay biến bạn thành cao thủ
Đâ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
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
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.
Danh sách menu gõ tiếng việt thì làm sao a
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 ạ.
Rất tuyệt bạn à
Hay quá. Giờ em mới biết có hàm Message Box khác hỗ trợ Unicode như thế.
trinh phục kìa bạn
Sao mình ghi macro bên word cùng một nội dung nhưng 2 máy khác nhau ra 2 đoạn code dạng khác nhau? Chỉ dùm mình. Cảm ơn
Selection.TypeText Text:="Anh/ch" & ChrW(7883) & " KHÔNG th" & ChrW(7875) _
& " l" & ChrW(432) & "u v" & ChrW(7899) & "i tên/ " & ChrW(273) & ChrW( _
432) & ChrW(7901) & "ng d" & ChrW(7851) & "n m" & ChrW(7899) & "i."
và dạng này
Selection.TypeText Text:="Anh/ch" & " KH"
Selection.Paste
Selection.TypeText Text:="NG th"
Selection.Paste
Selection.TypeBackspace
Selection.Paste
Selection.TypeText Text:=" l"
Selection.Paste
Selection.TypeText Text:="u v"
Selection.Paste
Selection.TypeBackspace
Selection.Paste
Selection.TypeText Text:=" t"
Selection.Paste
Selection.TypeText Text:="n/ "
Selection.Paste
Selection.Paste
Selection.Paste
Selection.TypeBackspace
Selection.Paste
Selection.TypeText Text:=" d"
Selection.Paste
Selection.TypeBackspace
Selection.Paste
Selection.TypeText Text:="n m"
Selection.Paste
Selection.TypeBackspace
Selection.Paste
Selection.TypeText Text:="."
Làm sao để ra được dạng trên
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
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
cám ơn thầy
chinh phục chứ anh?