Ngô Ngọc Phương Huỳnh
Ngô Ngọc Phương Huỳnh
Thảo luận 5 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 409 lượt xem

Em chào thầyEm chỉ mới vừa tiếp xúc VBA đây thôi học xong chương 4

Em chào thầy,

Em chỉ mới vừa tiếp xúc VBA đây thôi, học xong chương 4 em có áp dụng làm một file đơn giản cho MsgBox và InputBox như link bên dưới. Trong quá trình làm em vẫn có 2 vấn đề thắc mắc về tiếng Việt trong VBA:
Link file: https://drive.google.com/file/d/12CLB...
1. Dù đã cài funtion chuyển unicode sang VBA và copy dòng đó vào module như thầy hướng dẫn nhưng ô thông báo khi chạy InputBox vẫn bị lỗi font chữ.
VD: Em muốn chạy InputBox với Câu hỏi 1 ở ô B2 = "Bạn tên gì?"
+ Công thức em viết là: Sheet1.Range("C2").Value = InputBox("Ba" & ChrW(803) & "n tên gi" & ChrW(768) & "?"
, "Cau hoi 1")
Sau khi chạy thử thì kết quả là: "Ba?n tên gi`?"
Em thử khắc phục bằng cách gán trực tiếp ô B2 vào công thức luôn thì kết quả vẫn như vậy.
+ Công thức sửa lại là: Sheet1.Range("C2").Value = InputBox([B2], "Cau hoi 1")

2. Khi nhập câu trả lời bằng tiếng Việt có dấu vào ô thông báo khi chạy InputBox thì kết quả trả về ở file excel cũng bị lỗi.
VD: Em viết câu trả lời là "Nguyễn Văn A" vào ô thông báo khi chạy InputBox, kết quả trả về ở ô C2 là "Nguyê~n Van A"

Thầy cho em hỏi có cách khắc phục không ạ? Hay phải học thêm những chương sau nữa thì sẽ có thêm phương pháp khác?
Em cám ơn thầy!


Thảo luận 5 câu trả lời
Lượt xem 409 lượt xem
Vỗ tay vỗ tay
Ngô Ngọc Phương Huỳnh 10:08 - Aug 02, 2020
Chào bạn với input box của excel nhiều trường hợp không sử dụng được tiếng việt bạn nhé
Vỗ tay vỗ tay
Ngô Ngọc Phương Huỳnh 08:08 - Aug 03, 2020
Bài tập c2: record macro
Hướng dẫn cách record macro để thao tác kẻ khung cho 1 vùng?
Khi record thao tác mình làm thì mình chỉ chọn đc 1 vùng nhất định. khi thêm 1 dòng mới vào thì đoạn record đó sẽ ko kẻ đc những dòng mới thêm.
Vậy làm thế nào để khi thêm mới bất kỳ dòng nào thì cũng sẽ đc kẻ khung?
Và tại sao mình ko đặt đc câu hỏi phía dưới bài giảng mà phải vào 1 cmt của người khác mới gửi đc
Vỗ tay vỗ tay
Ngô Ngọc Phương Huỳnh 08:08 - Aug 03, 2020
Chào bạn để kẻ dòng theo dòng cuối bạn cần tìm lại dòng cuối và tiếng hành kẻ khung bạn nhé.
Vỗ tay vỗ tay
Ngô Ngọc Phương Huỳnh 15:08 - Aug 03, 2020
Tìm dòng cuối bằng cách nào ạ
Vỗ tay vỗ tay
Ngô Ngọc Phương Huỳnh 16:08 - Aug 03, 2020
Chào bạn bạn thử nhé
Sub timdc()
Dim dc As Long
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
End Sub
Vỗ tay vỗ tay
Câu hỏi liên quan
@ 2020 - Bản quyền của Công ty cổ phần công nghệ giáo dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở kế hoạch và đầu tư TP. Hà Nội