Cách cài đặt hàm googletranslate trong Excel

Từ nhu cầu của một vài bạn liên quan đến việc dịch tài liệu, tôi chuẩn bị một công cụ nhỏ và xin chia sẻ cho các bạn làm văn phòng, hy vọng nó sẽ giúp các bạn phải làm việc với Tiếng Anh đỡ vất vả khi copy/paste trên web với tính năng dịch của Google. Công cụ này được viết cho Office 2007 trở lên. nếu các bạn có nhu cầu với Office 2003 thì có thể chuyển biên dịch lại 2 tập tin Normal.dotm và Tools.xla về Office 2003 nhé. Cách cài đặt các bạn xem trên video dưới đây. Khi cần dịch, chọn vùng nhấn Ctrl+Shift+E (dịch Việt Anh) và Ctrl+Shiff+V (Anh việt) Trên Word MEDIA=youtube]aIX9exItbMs[/MEDIA] Trên Excel

https://www.experts-exchange.com/articles/29466/Finding-the-Office-Templates-Folder.html

Ctrl+Shft+B = Bật hộp thoại thiết lập ngôn ngữ dịch

Từ nhu cầu của một vài bạn liên quan đến việc dịch tài liệu, tôi chuẩn bị một công cụ nhỏ và xin chia sẻ cho các bạn làm văn phòng, hy vọng nó sẽ giúp các bạn phải làm việc với Tiếng Anh đỡ vất vả khi copy/paste trên web với tính năng dịch của Google. Công cụ này được viết cho Office 2007 trở lên. nếu các bạn có nhu cầu với Office 2003 thì có thể chuyển biên dịch lại 2 tập tin Normal.dotm và Tools.xla về Office 2003 nhé. Cách cài đặt các bạn xem trên video dưới đây. Khi cần dịch, chọn vùng nhấn Ctrl+Shift+E (dịch Việt Anh) và Ctrl+Shiff+V (Anh việt) Trên Word MEDIA=youtube]aIX9exItbMs[/MEDIA] Trên Excel

Cái này có lâu rồi mà, mình cũng có 1 file tải trên GPE

Chúc các coder vui vẻ!

Đọc từ trên xuống dưới thấy mỗi khúc này vui vẻ!!!

Sau khi anh Mai cồ 'đẻ' Office 2019 thì hôm nay 'đẻ' thêm Office 2006..!

Cảm ơn anh ^^. Hy vọng anh có thể thêm tính năng "undo" nữa thì sẽ tốt hơn.

Cảm ơn anh ^^. Hy vọng anh có thể thêm tính năng "undo" nữa thì sẽ tốt hơn.

Có gì bạn cứ hỏi nhé

Bạn hoàn toàn có thể undo sau khi dịch xong mà, nếu văn bản dài, bạn sẽ không thấy nó undo chỗ nào vì các paragraph được dịch liên tục và không theo thứ tự nào cả, tùy theo tốc độ trả lời của Google. Theo dõi dễ nhất là chọn một câu hoàn chỉnh trong một đoạn văn và dịch, xong bấm Ctrl+Z sẽ thấy tác dụng. Trong Excel thì mình sẽ ngâm cứu và sớm update

Có gì bạn cứ hỏi nhé

Mình tranh thủ chèn tính năng Undo vào Addin trong excel (lười nên copy code tại trang www.jkp-ads.com)
Các bạn quan tâm test giúp và góp ý thêm giùm!

2. Vấn đề gặp phải: Nếu mình có sửa file hay làm gì trước đó, sau đó dùng tổ hợp phím để dịch, undo sẽ chỉ hoạt động 1 lần trả về giá trị trước khi dịch, còn đối với những thay đổi trước đó nữa sẽ không thể undo tiếp được.

Em vừa test, kết quả thế này: 1. Nếu sau khi dịch xong, undo sẽ trả về giá trị trước đó, nhưng chỉ undo được 1 lần.

2. Vấn đề gặp phải: Nếu mình có sửa file hay làm gì trước đó, sau đó dùng tổ hợp phím để dịch, undo sẽ chỉ hoạt động 1 lần trả về giá trị trước khi dịch, còn đối với những thay đổi trước đó nữa sẽ không thể undo tiếp được.

Cái này e là khó, vì ngay khi chạy tính năng dịch, undo của Excel đã bị xóa hoàn toàn! Mình nghĩ, khó tìm ra một cách tiếp cận phù hợp vì bản thân Excel nó đã được thiết lập ra như vậy!
Với yêu cầu này, mình sợ là không làm được! Mong các bạn thông cảm

Em nghĩ nếu được anh có thể tạo code mở 1 file excel tạm thời và đưa kết quả dịch vào đó thay vì dịch trực tiếp trên file, như thế có thể vẫn giữ được các tính năng trên file gốc như bình thường. Em không hiểu nhiều về code nên chỉ nghĩ ý tưởng vậy thôi.

Hy vọng em thông cảm!

Công cụ hỗ trợ google dịch trên Excel đã được nâng cấp với 3 ngôn ngữ Anh, Nhật, Việt, các bạn xem và tải file tại bài đầu https://www.giaiphapexcel.com/diend...a-google-vào-excel-và-word.139010/post-891650 Với các bạn phải thường xuyên làm việc với những ngôn ngữ này trên Excel, đây có thể là một công cụ có ích nho nhỏ. Chúc các bạn vui vẻ, mạnh khỏe, làm việc hiệu quả và thành công nhân dịp năm mới sắp tới ===========Một vài điều bàn thêm về lập trình============== Trong công cụ có sử dụng đối tượng xmlHttp để thực hiện việc gửi truy vấn đến máy chủ của google. Để tránh việc treo máy và đợi lâu khi thực hiện tôi đã viết thành một Class và vận dụng đối tượng XmlHttp theo cách đồng thời gửi yêu cầu dịch và chờ có kết quả thì sẽ cập nhập nội dung của Cell liên quan. Cái khó ở đây là việc thiết lập một class để nó có thể theo sát việc gửi thông tin và chờ, bắt được sự kiện khi có trả lời từ máy chủ Google của đối tượng XmlHttp. Sau khi sục sạo, đọc tài liệu thì tôi đã tìm được giải pháp là thiết lập một thủ tục để Class này thực hiện một cách mặc định khi đối tượng XMLHTTP thay đổi trạng thái với thủ tục Sub ReadyStateChangeHandler() (Export Class này ra ngoài, dùng texteditor thêm dòng Attribute ReadyStateChangeHandler.VB_UserMemId = 0 vào ngay sau thủ tục này rồi import lại vào Môi trường viết code VBA). Cách làm này giúp chúng ta có thể gửi hàng trăm truy vấn xong rồi đợi và kết quả sẽ cập nhập liên tục vào các ô trong vùng được chọn mà không bắt người dùng phải chờ đợi. Cách này cũng tận dụng lợi thế phân luồng của máy tính nên tốc độ được cải thiện tương đối.

Xin chia sẻ cùng các bạn

Trong công cụ có sử dụng đối tượng xmlHttp để thực hiện việc gửi truy vấn đến máy chủ của google. Để tránh việc treo máy và đợi lâu khi thực hiện tôi đã viết thành một Class và vận dụng đối tượng XmlHttp theo cách đồng thời gửi yêu cầu dịch và chờ có kết quả thì sẽ cập nhập nội dung của Cell liên quan. Cái khó ở đây là việc thiết lập một class để nó có thể theo sát việc gửi thông tin và chờ, bắt được sự kiện khi có trả lời từ máy chủ Google của đối tượng XmlHttp.
Sau khi sục sạo, đọc tài liệu thì tôi đã tìm được giải pháp là thiết lập một thủ tục để Class này thực hiện một cách mặc định khi đối tượng XMLHTTP thay đổi trạng thái với thủ tục Sub ReadyStateChangeHandler()

https://www.giaiphapexcel.com/diend...ds-file-từ-web-về-máy-tính.105631/post-844181

Chính vì thế tôi phục vụ sự kiện ReadyStateChange Tức trong lớp clsXMLHTTPHandler có dòng Mã: XmlHttpRequest.OnReadyStateChange = Me Như thế thì khi sảy ra sự kiện OnReadyStateChange thì code callback sẽ được gọi. Để thiết lập EventCallback (trong class clsXMLHTTPHandler) là callback và sẽ được gọi thì phải có chút thủ thuật *. Chính vì thế mà tôi đính kèm tập tin clsXMLHTTPHandler.cls chứ không dâng cho bạn code ở dạng văn bản. Trong EventCallback thì code kiểm tra ReadyState và Status của đối tượng. Nếu Status là 200 thì gọi sub SaveFile (được truyền khi gọi phương thức Send của đối tượng request) - dùng Application.Run. code của SaveFile sẽ ghi tập tin. * Bạn không thể viết Mã: XmlHttpRequest.OnReadyStateChange = Me.EventCallback với hàm ý là code EventCallback sẽ phục vụ sự kiện OnReadyStateChange, để khi sự kiện OnReadyStateChange sảy ra thì code EventCallback sẽ được thực hiện. Vậy thì bằng cách nào "thông báo" là EventCallback chính là để phục vụ sự kiện OnReadyStateChange? Bằng cách cho EventCallback là thuộc tính mặc định của class clsXMLHTTPHandler. Nhưng cho bằng cách nào? Bằng cách: sau khi có code của class clsXMLHTTPHandler thì chọn nó và từ menu File chọn Remove class clsXMLHTTPHandler -> chọn Yes để lưu lại clsXMLHTTPHandler.cls ở thư mục nào đó -> mở tập tin clsXMLHTTPHandler.cls vd. bằng notepad -> sau dòng Sub EventCallback() thì thêm 1 dòng Mã:

Attribute EventCallback.VB_UserMemId = 0

Bạn mở tập tin CLS của tôi thì sẽ thấy dòng thêm này. -> lưu lại và đóng notepad -> menu File chọn Import -> chọn tập tin vừa sửa. Như vậy thì EventCallback sẽ là mặc định và khi sảy ra sự kiện OnReadyStateChange thì mặc định của đối tượng được "đưa vào" OnReadyStateChange sẽ được gọi. Do ta có Mã:

XmlHttpRequest.OnReadyStateChange = Me

nên khi sảy ra OnReadyStateChange thì mặc định của Me, tức clsXMLHTTPHandler, sé được gọi. Mà mặc định của clsXMLHTTPHandler chính là EventCallback. Thế thôi.

Phần này em tìm kiếm được ở trang http://dailydoseofexcel.com/archives/2006/10/09/async-xmlhttp-calls/ khi viết một ứng dụng nhỏ cho phép tải và quản trị file bằng vba + XmlHttp mà không cần dùng IE trên google drive.

Xin cảm ơn bác và chúc bác năm mới mạnh khỏe, hạnh phúc và tiếp tục có nhiều cống hiến cho cộng đồng!

Cảm ơn bác, Công nhận là tiếc rằng em không được đọc bài của bác như gửi kèm. Tuy nhiên, dù sao thì Internet cũng đã đưa em đến cái mà bác đề cập trong bài viết bác đính kèm khi em nảy sinh câu hỏi, làm thế nào để class có thể kiểm soát sự kiện của XmlHttp như một ActiveX như kiểu Raise Event.

Phần này em tìm kiếm được ở trang http://dailydoseofexcel.com/archives/2006/10/09/async-xmlhttp-calls/ khi viết một ứng dụng nhỏ cho phép tải và quản trị file bằng vba + XmlHttp mà không cần dùng IE trên google drive.

Trên thực tế việc tìm kiếm các bài viết bằng tiếng Việt liên quan đến việc này ra kết quả hạn chế nên em hay tìm luôn bằng tiếng Anh. Mạng Internet mở ra những cánh cửa kiến thức để đôi khi mọi người lại gặp nhau ở nơi thật gần gũi. Mong sao những giải pháp mở sẽ ngày càng được chia sẻ nhiều hơn!

Xin cảm ơn bác và chúc bác năm mới mạnh khỏe, hạnh phúc và tiếp tục có nhiều cống hiến cho cộng đồng!

Nếu bạn có ứng dụng khác thì có vẻ hay hơn, có ý tưởng nào không, vì dịch như thế này cũng hay, nhưng có google translate thì cũng khá tốt rồi

Cảm ơn bạn đã nhắc! Đáng tiếc là tôi không có ứng dụng nào khác thú vị cả, đây chỉ là một chia sẻ nhỏ với mong muốn nó có thể giúp ích được ai đó cần! Nếu không cần thiết và làm tốn tài nguyên, thì mong BQT xóa hộ tôi thread này. Đọc góp ý của bạn xong, mình cũng muốn xóa thread đi lắm nhưng không được giao quyền nên đành để vậy!
Năm mới sắp đến, chúc bạn và các thành viên diễn đàn mạnh khỏe và có nhiều đóng góp cho diễn đàn và cuộc sống!

Bạn ơi, bạn update thêm bản 64bit được không? em mở máy 64 bit thử thì báo chưa hỗ trợ!

Máy em xài word 2010 64bit thì không bị, nhưng word 2016 64 bit thì bị lỗi này!
Anh em xem hỗ trợ giúp em nha

Cảm ơn ad vì bài viết hay! Tuy nhiên khi add in mình bị báo lỗi này mà không biết cách xử lý! Mong các cao nhân chỉ giáo nhé
Cảm ơn mọi người trước! Mình đang chờ tin mọi người như lửa đốt

Từ nhu cầu của một vài bạn liên quan đến việc dịch tài liệu, tôi chuẩn bị một công cụ nhỏ và xin chia sẻ cho các bạn làm văn phòng, hy vọng nó sẽ giúp các bạn phải làm việc với Tiếng Anh đỡ vất vả khi copy/paste trên web với tính năng dịch của Google. Công cụ này được viết cho Office 2007 trở lên. nếu các bạn có nhu cầu với Office 2003 thì có thể chuyển biên dịch lại 2 tập tin Normal.dotm và Tools.xla về Office 2003 nhé. Cách cài đặt các bạn xem trên video dưới đây. Khi cần dịch, chọn vùng nhấn Ctrl+Shift+E (dịch Việt Anh) và Ctrl+Shiff+V (Anh việt) Trên Word MEDIA=youtube]aIX9exItbMs[/MEDIA] Trên Excel

Cách cài đặt như sau: 1. Tải file đính kèm về, giải nén ra một thư mục ví dụ C:\Tools 2. Tắt hoàn toàn Word nhé vào run (Winkey+R) gõ %userprofile%AppData\Roaming\Microsoft\Templates để vào thư mục template của Word theo chỉ dẫn ở đây (sau đó thoát hoàn toàn word

https://www.experts-exchange.com/articles/29466/Finding-the-Office-Templates-Folder.html

Lưu lại bản Normal.dotm hiện tại của bạn bằng cách đổi tên thành Old_normal.dotm 3. Copy file Normal.dotm trong thư mục tools vừa tải về vào, ghi vào thư mục templates. Khởi động word và bạn có thể bắt đầu dùng công cụ, lưu ý là phải để chế độ macro enable nhé! 4. Với excel thì bạn cài add in thông thường. + Khởi động excel, chọn file/options/addins + vào mục addins, chọn Go, Add, Browse và trỏ đến file Tools.xla. Chúc các bạn vui vẻ ==============cập nhập mới================== Hiện tại, công cụ này đã được cập nhập và có thể thiết lập để dịch Anh/Việt/Nhật. Các nút chuyển sau khi thiết lập đã được đổi là Ctrl+Shift+T = Dịch theo thiết lập của người dùng từ ngôn ngữ A->B Ctrl+Shift+R = dịch ngược lại từ B sang A và

Ctrl+Shft+B = Bật hộp thoại thiết lập ngôn ngữ dịch

Tác giả có thể tạo bảng lựa chon bảng dịch cho 1 ngôn ngữ bất kỳ không. (Từ tiếng việt dịch ra 1 ngôn ngữ bất kỳ (Anh, Pháp, Đức ....)

Từ nhu cầu của một vài bạn liên quan đến việc dịch tài liệu, tôi chuẩn bị một công cụ nhỏ và xin chia sẻ cho các bạn làm văn phòng, hy vọng nó sẽ giúp các bạn phải làm việc với Tiếng Anh đỡ vất vả khi copy/paste trên web với tính năng dịch của Google. Công cụ này được viết cho Office 2007 trở lên. nếu các bạn có nhu cầu với Office 2003 thì có thể chuyển biên dịch lại 2 tập tin Normal.dotm và Tools.xla về Office 2003 nhé. Cách cài đặt các bạn xem trên video dưới đây. Khi cần dịch, chọn vùng nhấn Ctrl+Shift+E (dịch Việt Anh) và Ctrl+Shiff+V (Anh việt) Trên Word MEDIA=youtube]aIX9exItbMs[/MEDIA] Trên Excel

Cách cài đặt như sau: 1. Tải file đính kèm về, giải nén ra một thư mục ví dụ C:\Tools 2. Tắt hoàn toàn Word nhé vào run (Winkey+R) gõ %userprofile%AppData\Roaming\Microsoft\Templates để vào thư mục template của Word theo chỉ dẫn ở đây (sau đó thoát hoàn toàn word

https://www.experts-exchange.com/articles/29466/Finding-the-Office-Templates-Folder.html

Lưu lại bản Normal.dotm hiện tại của bạn bằng cách đổi tên thành Old_normal.dotm 3. Copy file Normal.dotm trong thư mục tools vừa tải về vào, ghi vào thư mục templates. Khởi động word và bạn có thể bắt đầu dùng công cụ, lưu ý là phải để chế độ macro enable nhé! 4. Với excel thì bạn cài add in thông thường. + Khởi động excel, chọn file/options/addins + vào mục addins, chọn Go, Add, Browse và trỏ đến file Tools.xla. Chúc các bạn vui vẻ ==============cập nhập mới================== Hiện tại, công cụ này đã được cập nhập và có thể thiết lập để dịch Anh/Việt/Nhật. Các nút chuyển sau khi thiết lập đã được đổi là Ctrl+Shift+T = Dịch theo thiết lập của người dùng từ ngôn ngữ A->B Ctrl+Shift+R = dịch ngược lại từ B sang A và

Ctrl+Shft+B = Bật hộp thoại thiết lập ngôn ngữ dịch

Anh em hội có ai có file mới cho office 2019 không ạ? Cho em xin với

Anh em hội có ai có file mới cho office 2019 không ạ? Cho em xin với

"https://translate.google.com/translate_a/single?client=webapp&" & _ "sl=auto&tl=" & rtlTo & "&hl=" & rtlFrom & "&dt=at&dt=bd&dt=ex&dt=ld&dt=md&dt=qca&dt=rw&dt=rm&dt=sos&" & _ "dt=ss&dt=t&otf=1&pc=1&ssel=0&tsel=4&kc=2&tk=74429.519717&client=tw-ob&q="

Sub BingConnect() ' Using microsoft translation On Error Resume Next Dim URL As String, getParam As String getParam = JsonText(rtlObj.Value) URL = "https://api.cognitive.microsofttranslator.com/translate?api-version=3.0&from=" & rtlFrom & "&to=" & rtlTo With xhrObj .Open "POST", URL, True .setRequestHeader "Ocp-Apim-Subscription-Key", "API-Key" .setRequestHeader "Ocp-Apim-Subscription-Region", "southeastasia" .setRequestHeader "Content-Type", "application/json; charset=UTF-8" .send getParam 'curl -X POST "https://api.cognitive.microsofttranslator.com/translate?api-version=3.0&to=zh-Hans&toScript=Latn" '-H "Ocp-Apim-Subscription-Key: " -H "Content-Type: application/json; charset=UTF-8" '-d "[{'Text':'Hello, what is your name?'}]" Debug.Print .ResponseText End With End Sub

Nếu bạn dùng trên web-browser thì không có vấn đề gì nhưng dùng API thì bạn không còn dùng được nữa, google giới hạn số query đến máy chủ nên chỉ sau một vài dòng dịch công cụ dịch sẽ không hoạt động nữa, tất cả các phản hồi nó nhận được từ google là từ chối dịch tiếp.

"Google Translate Ajax API"

Từ khóa đây nhé. Hàng hịn, miễn phí và KHÔNG giới hạn.

"Google Translate Ajax API"

Mình đã thử nhiều cách và cuối cùng đều dẫn đến phải kích hoạt chế độ thanh toán và dùng thử 90 ngày! sau đó là 1.8 M/ tháng cho 250MB tài liệu dịch! Bảng giá dịch của họ đơi! https://cloud.google.com/translate/pricing

Đã định thiết lập một server riêng cho việc này nhưng thấy nó cũng vô bổ nên mình dừng lại và chuyển sang bing cho nhanh! Vừa miễn phí (Microsoft cung cấp tài trợ cho đơn vị mình - NGO mà)

Vẫn chạy ầm ầm mà. Thử code nhanh được vầy, bạn thử xem có vấn đề gì không. Ấn vào bức ảnh để download >>

View attachment 254229

Ngại quay video màn hình quá. Không biết làm sao mình mới TRỊU? @@

Chân thành!

Không phải là chứng minh gì cả. Vấn đề ở phát biểu của mình không rõ ràng, làm sai bản chất sự việc. Ngay mấy trang mình dẫn ra để CHỨNG MINH vụ Google hết cho dùng đó, người ta cũng đều nói rõ dịch vụ gì, chứ không hề phát biểu chung chung như mình.

View attachment 254231

Mình theo chủ nghĩa duy vật biện chứng, vật chất là cái có trước, sinh ra và quyết định ý thức. Mấy cái tích phúc đức gì đó chưa bao giờ nghĩ tới. "Cùng lúc" thì phải code mệt nên chỉ chạy liên tục thôi. Lúc đầu chạy thử 500 theo mình đề nghị nhưng phải xóa video quay lại 900, sợ bị nhắc ít.

Mình xem video nhé.

Hiện tại Google không cho dùng free chức năng dịch nữa, mình đã update sang sử dụng bing (bản trả phí). Bing dịch cũng kém lắm. Nói chung công cụ này mình chỉ nghĩ để hỗ trợ bạn nào cần để xem thêm thôi.
Mình không update bản mới lên trang đầu được nên phải đính tạm ở đây! Không rõ tại sao diễn đàn lại không còn tính năng sửa các bài cũ nữa!