AnhThu-1976
Thành viên tích cực
- Tham gia
- 17/10/14
- Bài viết
- 1,058
- Được thích
- 170
Mục đích cho nói nổi bật cho dễ nhìn đó mà!Làm thế với mục đích gì. Chỉ là cái thông báo. Thì thôi. Tốn công với nó quá làm gì
Không đổi được bạn nhé, chỉ có dùng cách khác thay thế thôi (user form) . Nhưng mà thiết nghĩ không đáng phải mệt vậyHiện nay Msgbox em em nó như hình
bây giờ em myo61n nó nổi bật như muốn thay cở chữ màu chữ hoặc màu hình nền của Msgbox
Msgbox của em đang hiện là MsgBox "No noi dung"
Em cảm ơn!
Thế thì có khi bạn tạo cái userform rồi muốn màu mè gì cho nó dễMục đích cho nói nổi bật cho dễ nhìn đó mà!
Nếu chỉ là dùng tiếng Việt thì dùng đồ có sẵn cũng được.Tôi thấy Việt hóa cái MsgBox quan trọng hơn. Còn nữa là giải pháp tạo UserForm như bác ở trên nói.
Sub test()
Dim tieu_de As String, noi_dung As String
tieu_de = "Ng" & ChrW(224) & "y mai em " & ChrW(273) & "i"
noi_dung = "Bi" & ChrW(7875) & "n nh" & ChrW(7899) & " t" & ChrW(234) & "n em g" & ChrW(7885) & "i v" & ChrW(7873)
Assistant.DoAlert tieu_de, noi_dung, 0, 4, 0, 0, 0
End Sub
@batman1 có hàm chuyển từ tiếng Việt trên sheet thành kiểu code này không cho em/con xin với.Nếu chỉ là dùng tiếng Việt thì dùng đồ có sẵn cũng được.
Mã:Sub test() Dim tieu_de As String, noi_dung As String tieu_de = "Ng" & ChrW(224) & "y mai em " & ChrW(273) & "i" noi_dung = "Bi" & ChrW(7875) & "n nh" & ChrW(7899) & " t" & ChrW(234) & "n em g" & ChrW(7885) & "i v" & ChrW(7873) Assistant.DoAlert tieu_de, noi_dung, 0, 4, 0, 0, 0 End Sub
@batman1 có hàm chuyển từ tiếng Việt trên sheet thành kiểu code này không cho em/con xin với.