利用宏去設置一個可以從谷歌翻譯上獲取翻譯結果的信息。需要聯網才能完成這個功能。
在如圖的地方新建一個宏：試圖-宏-查看宏，然後再彈出來的窗口上隨便填和宏1，點擊創建。
在彈出的模塊窗口，定義一個AllToCh()的公式
宏的代碼如下，直接復制粘貼即可：
Public Function AllToCh(rng As String)
Dim xml
Dim url$, EngSentence$
Set xml = CreateObject("MSXML2.XMLHTTP")
url = "https://translate.google.cn/m?hl=auto&sl=auto&tl=zh-CN&ie=UTF-8&prev=_m&q=" & rng
With xml
.Open "GET", url, False
.send
If InStr(.responseText, "<form action=""/m"">") > 0 Then
AllToCh = Split(Split(.responseText, "<div class=""result-container"">")(1), "</div>")(0)
End If
End With
End Function