url = "http://dict.youdao.com/search?q=" & strTemp & "&keyfrom=dict.index"
' Debug.Print url
.Open "get", url, True
.send
While .ReadyState <> 4
DoEvents
html.body.innerHTML = .responseText
Me.txtEN = html.getElementsByClassName("baav")(0).innerText & vbCrLf
Me.txtEN = Me.txtEN & html.getElementsByClassName("trans-container")(0).innerText
End With
End Sub
网站：
添加链接描述
我们每天工作中都可能需要用到翻译工具，想着，要不做个翻译小功能玩玩？有了个想法，咱就动手来开发试试？随后，这种的百度了一下，找到了相应的文档，有了原材料，我们就可以来生产了！1、建窗体第一步还是我们经常做的，建个窗体控件 名称 属性文本框 txtCN 无文本框 txtEN 无按钮 btnTranslate 无2、添加代码Private Sub btnTranslate_Clic...
For di = 1 To Range("d65536 ").End(xlUp).Row '遍历到d列有信心的最后一列
If Range("d" & di) = Empty Then '如果中间有空的列则跳过
Set rng = Ra
Sub 颜色英中转换()
Cells.Replace What:="White and Black", Replacement:="白+黑"
Cells.Replace What:="Rose Red", Replacement:="玫红"
Cells.Replace What:="AS PIC", Replacement:="如图"
Cells.Replace What:="Darkblue", Replacement:="深蓝"
Cells.Replace
在Excel中自动
翻译
成
英文，可以使用以下两种方法：
1. 使用Excel内置的
翻译
函数：Excel提供了一些内置的函数，可以将文本
翻译
成
其他语言。其中最常用的函数是GOOGLETRANSLATE函数。你可以在一个单元格中输入以下公式来进行
翻译
：
=GOOGLETRANSLATE("要
翻译
的文本", "源语言
代码
", "目标语言
代码
")
例如，如果要将A1单元格中的文本自动
翻译
成
英文，可以使用以下公式：
=GOOGLETRANSLATE(A1, "auto", "en")
这将自动检测源语言并将其
翻译
成
英文。
2. 使用宏（Macro）或
VBA
脚本：如果你需要对整个工作表或多个单元格进行批量
翻译
，可以编写一个宏或
VBA
脚本来实现。通过
VBA
脚本，你可以使用各种
翻译
服务的API来进行自动
翻译
。你可以搜索并参考一些现有的
VBA
脚本示例，以实现你的需求。
请注意，这两种方法都需要与互联网连接，因为它们依赖于
在线
翻译
服务。此外，使用内置函数或编写
VBA
脚本时，请确保遵守相关服务的使用条款和限制。
