Dịch về tiếng việt

[thanhnuce]

Xin các bác giúp viết code. Khi chọn một ô bất kỳ "ô có chữ nước ngoài" thì code tự chạy "Translate"
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Tự động chạy "Translate"
End Sub
Trận thành cảm ơn!

 

[anhtuan2939]

Xin các bác giúp viết code. Khi chọn một ô bất kỳ "ô có chữ nước ngoài" thì code tự chạy "Translate"
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Tự động chạy "Translate"
End Sub
Trận thành cảm ơn!

Bạn kiểm tra ô đó có chứa từ trong bảng từ điển của bạn thì chạy Sub Translate của bạn.