Trong Excel MS365 có cách nào dùng hàm để dịch thuật tiếng anh sang tiếng việt không?

[anhtan0404]

Xin chào mọi người,
Hiện tại mình đang cần làm công việc dịch ngôn ngữ tự động từ tiếng anh sang tiếng việt hoặc ngược lại trong excel, nhưng không biết excel có hàm nào để thực hiện được không?
Vì vậy xin mọi người giúp đỡ

 

[htin1997]

Dùng UDF nha, chứ hàm build in em không biết:
- Cú pháp: GGtrans([Văn bản],[True/False])
- Hàm mặc định "phát hiện ngôn ngữ" rồi dịch sang tiếng Việt.
- [True/False]: Tuỳ chọn dịch ngược Tiếng Việt sang tiếng Anh.

Function GGtrans(sText, Optional xchange As Boolean)
Application.Volatile
Dim p1, p2, URL, resp
If xchange = False Then
FromLang = "auto"
ToLang = "vi"
Else
FromLang = "vi"
ToLang = "en"
End If
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>")
GGtrans = Mid$(resp, p1, p2 - p1)
End If
End Function

 

[Nhattanktnn]

Dùng UDF nha, chứ hàm build in em không biết:
- Cú pháp: GGtrans([Văn bản],[True/False])
- Hàm mặc định "phát hiện ngôn ngữ" rồi dịch sang tiếng Việt.
- [True/False]: Tuỳ chọn dịch ngược Tiếng Việt sang tiếng Anh.

Function GGtrans(sText, Optional xchange As Boolean)
Application.Volatile
Dim p1, p2, URL, resp
If xchange = False Then
FromLang = "auto"
ToLang = "vi"
Else
FromLang = "vi"
ToLang = "en"
End If
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>")
GGtrans = Mid$(resp, p1, p2 - p1)
End If
End Function

Cái này phải chỉnh lại tí mới phù hợp được nhiều phiên bản. Hiện tại thì từ 2013

 

[htin1997]

Cái này phải chỉnh lại tí mới phù hợp được nhiều phiên bản

Em sưu tầm trên GPE chế biến thêm tuỳ chọn dịch ngược rồi chia sẽ lại chứ hàm này không phải của em. Em không có khả năng viết nó.
Ps: Hàm em lấy ở đây, ở đây nữa.