作者：江苏大侠-Office中国
虽然现在在线翻译工具很多，网上一抓一大把，但免不了要把翻译的内容复制出来，再打开翻译网址，再粘贴过去，但如果你在贸易公司，而且英语水平还不给力，碰巧老板要你下班前翻译一大段的内容，还要把中英文放进Excel里发给他，你肯定把老板在心里骂了几十遍，但有了这个自动多语言翻译函数，保证你立马可以下班，准时陪女朋友晚上去烛光晚餐：
有些专业术语翻译稍有不对的，再手工稍修改一下，就可向老板交差了，不过，别太早交作业哦
老板以为你能力超强，下次任务就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 = nr
End Function
