Excel VBA翻译函数-带上它，不会英语也不怕

Excel VBA 自动翻译机器人带上它，不会英语也不怕(多语言翻译)
作者：江苏大侠-Office中国
虽然现在在线翻译工具很多，网上一抓一大把，但免不了要把翻译的内容复制出来，再打开翻译网址，再粘贴过去，但如果你在贸易公司，而且英语水平还不给力，碰巧老板要你下班前翻译一大段的内容，还要把中英文放进Excel里发给他，你肯定把老板在心里骂了几十遍，但有了这个自动多语言翻译函数，保证你立马可以下班，准时陪女朋友晚上去烛光晚餐：

0.jpg

有些专业术语翻译稍有不对的，再手工稍修改一下，就可向老板交差了，不过，别太早交作业哦老板以为你能力超强，下次任务就Double了。
Excel翻译函数的详细VBA代码如下：主要是利用微软的翻译接口，提交相关的来源语言ID与目标语言ID，及要翻译的文本就可以了。虽然调用简单，但却很实用哦。让你在职场能够让妹纸对你刮目相看哦。
Public Function fanyi(nr)  On Error Resume Next  DoEvents  languageFrom = "": sText = nr: languageTo = dyy(UserForm1.ComboBox1.Text)  ID = "708BEDCB01828123DC7B6C6A6AB12EF82DFBB611"  sURL = "http://api.microsofttranslator.com/V2/Ajax.svc/Translate?oncomplete=&appId=" & ID + "&from=" & languageFrom + "&to=" & languageTo & "&text=" & sText  Set oH = CreateObject("WinHttp.WinHttpRequest.5.1")  oH.Open "get", sURL, False  oH.Send
  fanyi = Replace(Mid(oH.ResponseText, 3, Len(oH.ResponseText) - 3), "\""", """")  If fanyi = "" Then fanyi = nrEnd Function