Hàm VBA dịch văn bản giữa các ngôn ngữ trong Excel

 Trong Googlesheet có hàm GOOGLETRANSLATE hỗ trợ người dùng dịch văn bản từ ngôn ngữ này sang ngôn ngữ khác. Tuy nhiên, trong Excel thì lại không có sẵn hàm dịch

Bài viết này chia sẻ code Function VBA cho phép dịch giữa các ngôn ngữ:

YÊU CẦU KHI DÙNG HÀM

Máy tính phải có kết nối mạng Internet

HƯỚNG DẪN ĐƯA HÀM TRANSLATE VÀO FILE EXCEL

Bước 1: Vào cửa sổ VBA

Mở file Excel và nhấn tổ hợp Alt+F11 (hoặc Alt+Fn+F11) để vào cửa sổ VBA

Bước 2: Chèn Module

Trong cửa sổ VBA vào thẻ Insert => Chọn Module

Bước 3: Paste đoạn code dưới đây vào nơi soạn thảo code trong Module

Function Translate(sText, FromLang, ToLang) Dim p1, p2, URL, resp Const DIV_RESULT$ = "<div class=""result-container"">" Const URL_TEMPLATE$ = "https://translate.google.com/m?hl=[from]&sl=[from]&tl=[to]&ie=UTF-8&prev=_m&q=" URL = URL_TEMPLATE & WorksheetFunction.EncodeURL(sText) URL = Replace(URL, "[to]", FromLang) URL = Replace(URL, "[from]", ToLang) resp = WorksheetFunction.WebService(URL) p1 = InStr(resp, DIV_RESULT) If p1 Then p1 = p1 + Len(DIV_RESULT) p2 = InStr(p1, resp, "</div>") Translate = Mid$(resp, p1, p2 - p1) End If End Function

Bước 4: Trở lại cửa sổ Excel và nhập hàm TRANSLATE

Ví dụ: Ô A1 nhập chữ Hello. Thì công thức tại ô B1 là:

=TRANSLATE(A1,"En","Vi")

Bước 5: Save as file sang dạng cho phép lưu trữ Macro như: .xls (Excel 97-2003), .xlsm (Excel Enable Macro Workbook), .xlsb (Excel Binary Workbook)

MỘT SỐ KÝ HIỆU NGÔN NGỮ THÔNG DỤNG

"En" - Tiếng Anh

"Zh" - Tiếng Trung

"Vi" - Tiếng Việt

"Ja" - Tiếng Nhật

"Ko" - Tiếng Hàn

"Fr" - Tiếng Pháp

Liên hệ tư vấn khóa học Excel cho người đi làm & đặt hàng đào tạo tại doanh nghiệp

{Đt Zalo} - 038 696 1334