Макросы и программы для Excel в категории «Перевод и кодировка»

Макросы и программы для транслитерации текста, перевода на иностранные языки, изменения кодировки текста и т.п.
  • Функции ChangeFileCharset и ChangeTextCharset предназначены для изменения кодировки символов в текстовых файлах и строках. Исходную и конечную (желаемую) кодировку можно задать в параметрах вызова функций. ВНИМАНИЕ: Новая (универсальная) версия функции сохранения текста в файл в заданной кодировке: http://excelvba.ru/code/SaveTextToFile Список доступных на вашем компьютере кодировок можно найти в...
  • Пользовательская функция (UDF) для перевода ФИО (фамилии, имя, отчества) в дательный падеж.   Эту функцию можно использовать как в коде программы, так и как формулу в ячейках листа Excel (см. пример в прикреплённом файле) PS: Функцию написал не я - нашел на просторах интернета несколько примеров кода, и переработал код для уменьшения количества ошибок при склонении. Тестировал склонение...
  • Пользовательская функция (UDF) для перевода ФИО (фамилии, имя, отчества) в родительный падеж.   Эту функцию можно использовать как в коде программы, так и как формулу в ячейках листа Excel (см. пример в прикреплённом файле) PS: Функция является переделкой аналогичной UDF для склонения в дательном падеже. Тестировал склонение на списке разнообразных ФИО (см. первый столбец в прикреплённом...
  • Макрос предназначен для создания текстовых файлов в кодировке UTF-8. Исходными данными является таблица Excel из 12 столбцов. Сначала, макрос создаёт папку для будущих текстовых файлов. Папка создаётся в том же каталоге, где расположена книга Excel. Далее, для каждой строки таблицы, макрос формирует подпапку, используя в качестве её названия текст из 7-го столбца таблицы. И потом, когда папка...
  • Функция создаёт на диске текстовый файл в заданной кодировке. Среди доступных кодировок есть koi8-r, ascii, utf-7, utf-8, utf-8noBOM, utf-16, Windows-1251, unicode, и т.д. Список доступных кодировок можно найти в реестре Windows, в ветке HKEY_LOCAL_MACHINE\SOFTWARE\Classes\MIME\Database\Charset Function SaveTextToFile(ByVal txt$, ByVal filename$, Optional ByVal encoding$ = "windows-1251...
  • Результат транслитерации выделенного диапазона ячеек
    Надстройка для транслитерации или кодирования (замены символов их кодами) выделенного диапазона ячеек Excel При запуске надстройки в Excel формируется панель инструментов, при помощи которой можно выполнять следующие действия: Нажатием кнопки RU->EN выполнить транслитерацию выделенного диапазона ячеек Нажатием кнопки EN->RU выполнить транслитерацию выделенного диапазона ячеек В...
  • Данный макрос автоматизирует процесс переключения раскладки клавиатуры (смену языков ввода) при работе с таблицами в Excel. К примеру, вы заносите данные в таблицу, где в некоторые столбцы требуется вводить русские слова (фамилия, имя, и т.п.), а в другие столбцы - английские (марка и модель авто, и т.д.) Чтобы каждый раз не переключать раскладку вручную - можно воспользоваться WinAPI...
  • При загрузке данных в Excel с веб-страниц порой оказывается, что некоторая необходимая нам информация (например, адреса электронной почты) представлена в графическом виде (текст на картинке). Нам же, в таблице Excel, необходимо получить ту же информацию, но в текстовом виде, - т.е. каким-то образом распознать текст, изображенный на картинке.   Для этих целей существуют специальные OCR-...
  • Описанная в этой статье программа уже не работает (на сайте веели ограничение на просмотр данных) Посмотрите видеоинструкцию по работающей нынче программе, — парсер сайта грузоперевозок ati.su Программа предназначена для загрузки базы данных сайта autotransinfo.ru (АТИ) в книгу Excel. Результатом работы программы является книга Excel, состоящая из 2 листов: «Организации...
  • Макрос предназначен для экспорта выделенного диапазона ячеек книги Excel в код HTML.   Смотрите также надстройку для экспорта таблицы или выделенного диапазона ячеек в HTML Результат (HTML код таблицы) помещается в буфер обмена. Первая строка выделенного диапазона ячеек считается заголовком таблицы (обрамляется тегами <th> вместо <td>)   Например, мы имеем...
  • Function GetHash(ByVal txt$) As String Dim oUTF8, oMD5, abyt, i&, k&, hi&, lo&, chHi$, chLo$ Set oUTF8 = CreateObject("System.Text.UTF8Encoding") Set oMD5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider") abyt = oMD5.ComputeHash_2(oUTF8.GetBytes_4(txt$)) For i = 1 To LenB(abyt) k = AscB(MidB(abyt, i, 1...
  • Функция позволяет произвести замену в текстовой строке кодов символов Unicode на их значения   В функции используются регулярные выражения (RegExp) Пример использования функции ReplaceUnicodeChars: Sub ЗаменаКодовСимволовВСтроке() ' исходная текстовая строка, содержащая коды символов Unicode txt$ = "Санаторий\u2013профилакторий \u201dЛесная сказка\u201d приглашает Вас!...
  • Сравнение исходной таблицы Excel и созданного файла plist
    Надстройка для Excel, позволяющая одним нажатием кнопки сформировать файл PLIST (Property List) PLIST (Property List) представляет собой гибкий и удобный формат для хранения данных приложения. Первоначально, данный формат был предложен компанией Apple для использования в приложениях для iPhone, а затем распространился на другие приложения. По своей структуре, файл с расширением .plist (...
  • Вывод результатов перевода слова или предложения
    Программа предназначена для быстрого поиска перевода выделенного в документе Word слова (или фразы) с использованием специализированного медицинского словаря. Для поиска переводов используется словарь, расположенный на сайте заказчика. Программа подключается к словарю через веб-интерфейс сайта, авторизуется (логин и пароль хранятся в отдельном текстовом файле), после чего производит поиск...
  • Надстройка предназначена для быстрой конвертации выделенного диапазона ячеек в HTML код для вставки на сайт. При запуске надстройки, формируется панель инструментов (на ленте, на вкладке Надстройки) с 2 кнопками: экспорт в HTML всей таблицы, или только выделенного диапазона ячеек   Файл надстройки, - во вложении к статье. Программа корректно обрабатывает объединённые ячейки. Количество...
  • Функция предназначена для перевода ответа веб-сервера в формате JSON в читаемый текст. Пример использования функции JSON_decode: Sub test_JSON_decode() ' исходная строка в кодировке JSON txt$ = "<th class=\""label\"">\u0428\u0442\u0440\u0438\u0445\u043a\u043e\u0434<\/th>\n <td class=\""data\"">408<\/td>\n"...
  • Этот макрос позволяет преобразовать HTML-код, хранящийся в ячейках Excel, в обычный текст (без HTML-тегов) Особенность кода: теги перевода строки «br /» сохраняются. Пример использования процедуры Convert_HTML_Range_To_Text: (для этого примера, преобразования выполняются для диапазона ячеек в столбце С, начиная с 4 строки) Sub Макрос1() ' получаем ссылку на диапазон ячеек Dim ra As Range...
  • При использовании компонента WinHTTPrequest для выполнения запроса к сайту, требуется предварительно преобразовать URL национальных доменов с использованием метода Punycode. PS: если вы загружаете исходный код вебстраницы с использованием WinAPI функции URLDownloadToFile, - подобное преобразование не обязательно Sub ПримерИспользования_ConvertURLtoPunycode() Dim host$, newURL$   '...