通过 VBA 进行语言翻译答案

【问题标题】：Language Translate Through VBA通过 VBA 进行语言翻译
【发布时间】：2019-06-27 11:34:28
【问题描述】：

我想翻译输入表中的每个标题，它应该自动检测从语言到英语（默认），如果有人可以帮助/支持我，那就太好了。提前致谢！

【问题讨论】：

可能没有自动检测，但这里有一些有用的信息可以帮助您制作一个为您翻译的 UDF link，here 是另一个有趣的示例。我知道 GS 有一个特殊的功能来检测语言。
@JvdV 请参考这个stackoverflow.com/q/56966594/11690868

【解决方案1】：

Option Explicit
Dim Rst_Wrd As String

Const langCode = ("auto,en,fr,es")
Public Enum LanguageCode
    InputAuto = 0
    InputEnglish = 1
    InputFrench = 2
    InputSpanish = 3
End Enum

Public Enum LanguageCode2
    ReturnEnglish = 1
    ReturnFrench = 2
    ReturnSpanish = 3
End Enum

【讨论】：

【解决方案2】：

请根据您的要求进行 for 循环（这里我按列进行）

Sub GoogleTranslate()
    Dim i, Col As Integer
    Col = ActiveSheet.UsedRange.Columns.Count
    For i = 1 To Col
        If Cells(1, i).Value <> "" Then
            Call AutoTranslate(Cells(1, i), InputAuto, ReturnEnglish)
            Cells(1, i).Value = Rst_Wrd
        End If
    Next i

    MsgBox "Translate completed successfully..."

End Sub

【讨论】：