Giúp em viết hàm VBA để dịch Tiếng Anh sang Tiếng Việt với ạ

[Shishi5050]

Chào mọi người!
Em không hiểu biết nhiều về VBA lắm, mọi người giúp với ạ.
Em rất mong nhận được sự giúp đỡ từ mọi người<3

 

[bebo021999]

Bài tập thì bạn phải cố làm theo những gì đã học.
Làm giúp thì nộp có điểm cao, sau đó thầy hỏi lại thì trả lời sao?
Làm không ra thì post code lên đây mọi người sửa cho nhé.

 

[Shishi5050]

Bài tập thì bạn phải cố làm theo những gì đã học.
Làm giúp thì nộp có điểm cao, sau đó thầy hỏi lại thì trả lời sao?
Làm không ra thì post code lên đây mọi người sửa cho nhé.

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ài đã được tự động gộp: 13/1/22

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

chạy thì bị lỗi ạ

 

[SGTaoLao]

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ài đã được tự động gộp: 13/1/22

chạy thì bị lỗi ạ

Mình thử thấy hàm chạy tốt mà bạn?

 

[bebo021999]

Đề cho dịch 7 ngày trong tuần và 12 tháng thôi mà rinh cả google translate vô chi vậy?

 

[Shishi5050]

View attachment 271402Mình thử thấy hàm chạy tốt mà bạn?

Bảng dữ liệu của mình hơn 1000 hàng nên chạy lâu quá, mình tưởng bị lỗi, lần đầu làm nên không biết.
Cảm ơn bạn nha.
Mà sao dịch không chính xác lắm nhỉ.

Bài đã được tự động gộp: 13/1/22

Đề cho dịch 7 ngày trong tuần và 12 tháng thôi mà rinh cả google translate vô chi vậy?

Thật sự trình độ em hơi thấp, tìm hiểu trên gg có mỗi cách này nên em bắt chước theo thôi ạ. Với VBA chỉ là một phần nhỏ trong môn học nên không có nhiều thời gian học và nghiên cứu ạ.

 

[tranvanhung2009]

Đề cho dịch 7 ngày trong tuần và 12 tháng thôi mà rinh cả google translate vô chi vậy?

Nhờ anh giải giúp em bài ở địa chỉ này với ạ!https://www.giaiphapexcel.com/diend...ng-nhiều-thư-mục-khác-nhau-sang-excel.159159/

 

[HeSanbi]

Bạn tham khảo code:

https://www.giaiphapexcel.com/diendan/threads/d%E1%BB%8Bch-thu%E1%BA%ADt-v%C3%A0-ph%C3%A1t-hi%E1%BB%87n-ng%C3%B4n-ng%E1%BB%AF-cho-office-v%C3%A0-vba-editor.127354/