Hướng Dẫn Nhúng Google Translate Vào Excel Qua VBA

Tác giả: Bếp Hạ Thảo Thời gian phát hành: 2024-12-30 08:13:13 Số lượt xem: 141

Google Translate là một công cụ dịch ngôn ngữ nổi tiếng và được sử dụng rộng rãi. Mặc dù không phải là công cụ dịch ngôn ngữ tự nhiên và chính xác nhất, nhưng nó vẫn đủ hiệu quả để giúp người dùng hiểu vấn đề cần thiết.

Khi muốn dịch một văn bản, thông thường bạn sẽ phải mở trang web của Google Translate. Tuy nhiên, với những người làm văn phòng thường xuyên sử dụng Excel, có một câu hỏi đặt ra: Làm thế nào để dịch thẳng văn bản trong Excel mà không cần truy cập trang web?

Câu trả lời là hoàn toàn khả thi. Bạn có thể "nhúng" Google Translate vào Excel thông qua mã VBA. Bài viết này sẽ hướng dẫn bạn cách thực hiện.

Đầu tiên, hãy mở một file Excel trống. Tiếp theo, vào tab Developer và chọn Visual Basic hoặc nhấn phím tắt Alt + F11. Sau đó, chọn Insert và nhấn Module.

Tiếp theo, sao chép đoạn mã dưới đây và dán vào khung soạn thảo:

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]", ToLang) url = Replace(url, "[from]", FromLang) 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ây giờ, quay trở lại Excel và nhập văn bản bạn cần dịch. Ví dụ, để dịch từ tiếng Anh sang tiếng Việt, bạn hãy nhập công thức sau vào ô B1: =Translate(A1,"en","vi")

en: Là ngôn ngữ cần dịch
vi: Là ngôn ngữ được dịch ra

Kết quả sẽ hiển thị trong ô B1.

Để dịch sang một ngôn ngữ khác, bạn chỉ cần thay thế đối số thứ hai và thứ ba tương ứng. Dưới đây là bảng mã các quốc gia mà Google Translate hỗ trợ dịch. Ví dụ, nếu bạn muốn dịch từ tiếng Thái sang tiếng Việt, bạn có thể làm tương tự.

CODE   LANGUAGE
 en     English
 fr     French
 es     Spanish
 it     Italian
 de     German
 af     Afrikaans
 sq     Albanian
 am     Amharic
 ar     Arabic
 hy     Armenian
 az     Azerbaijani
 eu     Basque
 be     Belarusian
 bn     Bengali
 bs     Bosnian
 bg     Bulgarian
 ca     Catalan
 ceb    Cebuano
 ny     Chichewa
 zh-CN  Chinese (Simplified)
 zh-TW  Chinese (Traditional)
 co     Corsican
 hr     Croatian
 cs     Czech
 da     Danish
 nl     Dutch
 eo     Esperanto
 et     Estonian
 tl     Filipino
 fi     Finnish
 fy     Frisian
 gl     Galician
 ka     Georgian
 el     Greek
 gu     Gujarati
 ht     Haitian Creole
 ha     Hausa
 haw    Hawaiian
 iw     Hebrew
 hi     Hindi
 hmn    Hmong
 hu     Hungarian
 is     Icelandic
 ig     Igbo
 id     Indonesian
 ga     Irish
 ja     Japanese
 jw     Javanese
 kn     Kannada
 kk     Kazakh
 km     Khmer
 rw     Kinyarwanda
 ko     Korean
 ku     Kurdish (Kurmanji)
 ky     Kyrgyz
 lo     Lao
 la     Latin
 lv     Latvian
 lt     Lithuanian
 lb     Luxembourgish
 mk     Macedonian
 mg     Malagasy
 ms     Malay
 ml     Malayalam
 mt     Maltese
 mi     Maori
 mr     Marathi
 mn     Mongolian
 my     Myanmar (Burmese)
 ne     Nepali
 no     Norwegian
 or     Odia (Oriya)
 ps     Pashto
 fa     Persian
 pl     Polish
 pt     Portuguese
 pa     Punjabi
 ro     Romanian
 ru     Russian
 sm     Samoan
 gd     Scots Gaelic
 sr     Serbian
 st     Sesotho
 sn     Shona
 sd     Sindhi
 si     Sinhala
 sk     Slovak
 sl     Slovenian
 so     Somali
 su     Sundanese
 sw     Swahili
 sv     Swedish
 tg     Tajik
 ta     Tamil
 tt     Tatar
 te     Telugu
 th     Thai
 tr     Turkish
 tk     Turkmen
 uk     Ukrainian
 ur     Urdu
 ug     Uyghur
 uz     Uzbek
 vi     Vietnamese
 cy     Welsh
 xh     Xhosa
 yi     Yiddish
 yo     Yoruba
 zu     Zulu

Vì dụ như Bếp Hạ Thảo chuyển từ tiếng Thái sang tiếng Việt nè