Надстройка excel для перевода

Переводит содержимое указанной ячейки с одного языка на другой, используя онлайн-переводчик Google

Синтаксис

=Translate(Text; FromLang; ToLang)

где:

• Text – исходная ячейка с текстом для перевода
• FromLang – текстовый двухбуквенный код языка, с которого производится перевод (т.е. язык исходного текста), например «ru», «en», «es», «fr» и т.д.
• ToLang – текстовый двухбуквенный код языка, на который нужно перевести.

Подсмотреть необходимые коды языков можно на странице Google Переводчика в адресной строке после выбора нужных языков в форме:

Примечания

Естественно, данная функция требует подключения к интернету и при его отсутствии выдает ошибку.

При использовании в большом количестве ячеек одновременно, может вызывать замедление работы, т.к. будет выполнять много одновременных запросов. В этом случае рекомендуется заменять формулы на значения при помощи специальной вставки или инструмента В значения.

Полный список всех инструментов надстройки PLEX

Процедуры массового перевода

использовать процедуры немного удобнее, чем функции, потому что все действия выполняются парой щелчков мышью. Доступен перевод с русского на 5 популярных языков и наоборот:

Для редких случаев перевода из-за границы за границу может использоваться отдельная процедура с выбором языка. Он поддерживает выбор из 12 самых популярных языков.

Стоимость использования функции ПЕРЕВОД

Сервис Яндекс Переводчик платный, стоимость рассчитывается исходя из объема отправленного на перевод исходного текста.

Вы можете бесплатно протестировать эту функцию на небольшом объеме текста. Но при больших объемах потребуется оплата.

Стоимость перевода 1 млн знаков — 600 руб.

Количество символов в запросе определяется с учетом пробелов и служебных символов. Стоимость пустого запроса равна стоимости символа.
Средняя длина слова составляет 5,28 символа, т.е перевод 1000 слов обойдется примерно в 3 рубля.

Если вам просто нужна функция TRANSLATE из надстройки, то вам НЕ нужно платить за саму программу VBA-Excel!!!

Получение ключа для использования функции

Для использования вам необходимо получить API-ключ в личном кабинете на нашем сайте. Из-за этого:

1. Зарегистрируйтесь и перейдите в личный кабинет на сайте. Зайдите в Яндекс Переводчик .
   
2. Скопируйте ключ API, который будет выделен в синем поле.
   
3. Вставьте указанный ключ в надстройку VBA-Excel.
   

Настройка Переводчика функций

После установки надстройки Feature Translator на вкладке «Главная» справа появляются две новые кнопки.

Открывает области «Справочник» и «Переводчик» в диалоговом окне «Переводчик функций» соответственно. Исключением является первый запуск надстройки транслятора функций — в этом случае открывается панель приветствия:

Рабочее пространство «Переводчик функций» всегда открывается в правой части Excel.

Вы можете перейти непосредственно к переводу, щелкнув ссылку «Пропустить>» в правом верхнем углу, но мы рекомендуем нажать кнопку «Приступить к работе», чтобы открыть диалоговое окно «Параметры языка». Здесь вы можете выбрать языки C и H по умолчанию (вы можете изменить их в любое время).

Здесь вы можете указать языковые параметры. Хотя переводчик функций поддерживает все языки, на которых локализованы функции Excel, вы все равно можете использовать только несколько из них. Доступна любая комбинация языков, и Excel запомнит ваш выбор. Вы можете изменить языковую пару в любое время в области «Настройки», которую можно открыть во всех основных областях переводчика функций.

По умолчанию языки «От» и «Кому» будут предварительно заполнены английским языком с языком «От» и языком установки Excel с языком «Кому». Если язык установки — один из языков, локализованных для Переводчика, пользовательский интерфейс будет отображаться на локализованных языках. Выберите языковую пару, нажав кнопку «Начать.

Переводчик использует параметры C и H. C — это язык, который вы знаете, To — язык, на который вы хотите перевести. Например, если вы используете английский язык для поиска функций, но хотите найти их имена на французском языке, выберите английский для параметра C и французский для параметра A.

Используйте зеленую кнопку со стрелкой вверх / вниз между вариантами «C» и «A», чтобы поменять местами языки C и A.

Вы можете открыть область настроек, щелкнув значок настроек в правом нижнем углу одной из трех основных областей.

Кроме того, вы можете в любой момент изменить языки «Кому» и «От», которые могут вас заинтересовать. Щелкнув стрелку влево вверху области, вы вернетесь на главную страницу.

Бесплатная Функция GTranslate

Эта функция доступна всем бесплатно — вам просто нужно скачать SEMTools и подключить надстройку к вашему Excel.

Синтаксис функции аналогичен Google Spreadsheets:

= GTranslate (A1; «en»; «ru»)

С помощью функций вы можете использовать любой язык, предлагаемый в службах.

Область «Словарь»

В области словаря вы можете искать любую часть имени функции, отображая все функции, содержащие введенные буквы. По соображениям производительности поиск не выдаст результаты, пока вы не введете хотя бы две буквы. Поиск будет искать в выбранной языковой паре и возвращать результаты для обоих языков.

Когда вы найдете имя нужной функции, вы можете щелкнуть по нему, чтобы увидеть языковую пару и определение функции. Щелчок по имени функции в справочной панели также открывает панель словаря с языковой парой и описанием функции.

Примечания:

• Некоторые функции не имеют описания.

• Описание функций предоставляется только на английском языке.

• Чтобы получить локализованное описание, перейдите на вкладку «Формулы», щелкните нужную категорию функции и наведите указатель мыши на нужную функцию. Excel отображает описание функции на языке установки.

Щелкните лампочку в области словаря, чтобы открыть область комментариев к переводу, где вы можете оставить отзыв о конкретном переводе.

Таблица обозначений языков для перевода

Область «Справочник»

В области «Справка» есть раскрывающийся список «Категория функции», в котором отображаются все функции в указанной категории для языков C (слева) и H (справа). Если вы не уверены, к какой категории принадлежит функция, вы можете использовать параметр «Все.

По умолчанию функции отсортированы в алфавитном порядке на языке C (в данном случае на английском языке) с небольшой стрелкой вниз рядом с ними. Вы можете отсортировать функции в обычном или обратном алфавитном порядке и выбрать язык сортировки (C или H). Просто щелкните название языка, по которому вы хотите отсортировать функции, и щелкните еще раз, чтобы отсортировать в обратном порядке. Стрелка указывает направление сортировки.

Щелкните имя функции в одном из столбцов, чтобы открыть область словаря с кратким описанием функции.

Данная VBA функция позволяет перевести текст с любого языка на другой
Язык исходного текста можно не указывать — Google распознает его самостоятельно.
(т.е. вызовы res$ = Translate(txt$, «en», «ru») и res$ = Translate(txt$, «en») равнозначны)

Добавлено 17.10.2011
В данный момент функция не работает для большого числа запросов — Google недавно ввёл ограничение.
Решение для обхода этого ограничения сложное, потому пока мной не реализовано (не было необходимости)

Добавлено 07.03.2012
Исправленный вариант функции вы можете найти в конце статьи. (теперь снова можно выполнять автоматизированный перевод любого количества фраз на любые языки)
Алгоритм функции немного изменился — но это и не важно, главное, что перевод снова работает.
Пример использования перевода на листе Excel — во втором прикреплённом файле

Sub ПримерИспользованияФункцииПеревода()
    txt$ = "Привет! Это функция перевода текста на иностранный язык"
    res$ = Translate(txt$, "en", "ru")
    MsgBox "Результат перевода на английский:" & vbNewLine & res$, vbInformation, txt$
    res$ = Translate(txt$, "de")
    MsgBox "Результат перевода на немецкий:" & vbNewLine & res$, vbInformation, txt$
End Sub

Список кодов доступных языков для перевода:
(используются в качестве параметров функции Translate)

ar — арабский; bg — болгарский; cs — чешский;
da — датский ; de — немецкий; el — греческий;
en — английский; es — испанский; fi — финский;
fr — французский; hi — хинди; hr — хорватский;
it — итальянский; ja — японский; ko — корейский;
nl — голландский; no — норвежский; pl — польский;
pt — португальский; ro — румынский; ru — русский;
sv — шведский; zh-cn — китайский упрощенный; zh-tw — китайский традиционный

Код функции перевода:

Function Translate$(ByVal TextToBeTranslated$, ByVal resultLanguageCode$, Optional ByVal sourceLanguageCode$ = "")
    ' переводит текст TextToBeTranslated$ с языка sourceLanguageCode$ на язык resultLanguageCode$,
    ' используя сервис переводов Google Translate
    With CreateObject("ADODB.Stream")
        .Charset = "utf-8": .Mode = 3: .Type = 2: .Open
        .WriteText TextToBeTranslated: .Flush: .Position = 0
        .Type = 1: .Read 3: ByteArrayToEncode = .Read(): .Close
    End With
 
    For i = 0 To UBound(ByteArrayToEncode)
        iAsc = ByteArrayToEncode(i)
        Select Case iAsc
            Case 32: sTemp$ = "+"    'space
            Case 48 To 57, 65 To 90, 97 To 122: sTemp$ = Chr(ByteArrayToEncode(i))
            Case Else: sTemp$ = "%" & Hex(iAsc)
        End Select
        txt$ = txt$ & sTemp$
    Next
 
    Set objhttp = CreateObject("MSXML2.ServerXMLHTTP")
    URL$ = "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=" & _
           txt$ & "&langpair=" & sourceLanguageCode$ & "%7C" & resultLanguageCode$
    objhttp.Open "GET", URL$, False
    objhttp.setTimeouts 1000000, 1000000, 1000000, 1000000: objhttp.send ("")
 
    Translate$ = objhttp.responseText
    Translate$ = Right(Translate$, Len(Translate$) - InStr(1, Translate$, "translatedText") - 16)
    Translate$ = Left(Left(Translate$, InStr(1, Translate$, Chr(34)) - 1), 255)
    Translate$ = Replace(Translate$, "quot;", Chr(39))
    If Translate$ = " null, " Then Translate$ = "Не переведено"
End Function

(добавлено позже)
Видоизменил функцию — теперь перевод снова работает
(пример использования — во втором прикреплённом файле)

Function Translate$(ByVal TextToBeTranslated$, ByVal resultLanguageCode$, _
                    Optional ByVal sourceLanguageCode$ = "")
    ' переводит текст TextToBeTranslated$ с языка sourceLanguageCode$
    ' на язык resultLanguageCode$, используя сервис переводов Google Translate
    Application.Volatile True
    Set ADOStream = CreateObject("ADODB.Stream")
    With ADOStream
        .Charset = "utf-8": .Mode = 3: .Type = 2: .Open
        .WriteText TextToBeTranslated: .Flush: .Position = 0
        .Type = 1: .Read 3: ByteArrayToEncode = .Read(): .Close
    End With
 
    For i = 0 To UBound(ByteArrayToEncode)
        iAsc = ByteArrayToEncode(i)
        Select Case iAsc    ' переводим текст в кодировку, понятную Google
            Case 32: sTemp$ = "+"    'space
            Case 48 To 57, 65 To 90, 97 To 122: sTemp$ = Chr(ByteArrayToEncode(i))
            Case Else: sTemp$ = "%" & Hex(iAsc)     'Chr(iAsc)
        End Select
        txt$ = txt$ & sTemp$
    Next
 
    ' формируем ссылку, по которой Google выдаст нам файл с переводом
    URL$ = "http://translate.google.com.ua/translate_a/t?client=json&text=" & _
           txt$ & "&hl=" & resultLanguageCode$ & "&sl=" & sourceLanguageCode$
 
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")    ' скачиваем файл
    XMLHTTP.Open "GET", Replace(URL$, "", "/"), "False": XMLHTTP.send
 
    If XMLHTTP.statustext = "OK" Then
        LocalPath$ = Environ("TMP") & "google.txt"
        With ADOStream    ' перекодировка файла
            .Type = 1: .Open: .Write XMLHTTP.responseBody
            .SaveToFile LocalPath$, 2
            .Close: .Type = 2: .Charset = "utf-8": .Open:
            .LoadFromFile LocalPath$    ' загружаем данные из файла
            Translate$ = .ReadText   ' считываем текст файла в переменную Translate$
        End With
 
        On Error Resume Next    ' вырезаем нужный текст из ответа
        Translate$ = Split(Translate$, """trans"":""")(1)
        Translate$ = Split(Translate$, """,""orig")(0)
        Translate$ = Replace(Translate$, "quot;", Chr(39))
        If Translate$ = " null, " Then Translate$ = "Не переведено"
    End If
    Set XMLHTTP = Nothing: Set ADOStream = Nothing
End Function