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

Макросы и функции для обработки текстовых строк, сравнение и обработка текстовых переменных
  • Наверняка, вы сталкивались с ситуацией, когда необходимо производить поиск некоторого значения по всей книге Excel (искать частичное совпадение на всех листах активной книги)   Штатными средствами Excel вывести поле для поиска на панель инструментов не удаётся, а вызывать каждый раз диалоговое окно нажатием комбинации клавиш Ctrl + F не всегда удобно. На помощь придёт эта...
  • Функции ChangeFileCharset и ChangeTextCharset предназначены для изменения кодировки символов в текстовых файлах и строках. Исходную и конечную (желаемую) кодировку можно задать в параметрах вызова функций. ВНИМАНИЕ: Новая (универсальная) версия функции сохранения текста в файл в заданной кодировке: http://excelvba.ru/code/SaveTextToFile Список доступных на вашем компьютере кодировок можно найти в...
  • Поиск и подсветка результатов в Excel
    Макрос запрашивает строку для поиска, после чего ищет введенный текст в первом столбце листа, и подсвечивает результаты поиска.   При запуске макроса появляется диалоговое окно (InputBox), позволяющее задать текст для поиска. Макрос подсвечивает красным цветом внутри ячейки текст, совпадающий с искомым (+ выделяет найденное полужирным начертанием) Перед началом поиска, цвет всех ячеек...
  • Данные функции предназначены для работы с текстовыми файлами из VBA Excel. Используя эти функции, вы при помощи одной строки кода сможете записать текст из переменной в файл, или наоборот, загрузить содержимое текстового файла в переменную. Чтение текстового файла в переменную: Function ReadTXTfile(ByVal filename As String) As String Set fso = CreateObject("scripting.filesystemobject...
  • В данной статье показаны 2 способа быстрого поиска значений в двумерных массивах. Поскольку искомое значение может встретиться в нескольких строках обрабатываемого двумерного массива, оба способа получают на выходе отфильтрованный двумерный массив. Способы формирования отфильтрованных массивов - разные: первый способ использует функцию ArrAutofilterEx второй способ - функцию ...
  • Данный макрос предназначен для поиска адресов электронной почты на листе Excel, с последующим выводом найденных адресов на отдельный лист. В прикреплённом файле, на первом листе ("исходные данные"), ячейки заполнены неструктурированной информацией (смесь фамилий, адресов почты, прочей ненужной информации) Макрос вычленяет из текста ячеек адреса электронной почты, и выводит все...
  • Макрос предназначен для создания текстовых файлов в кодировке UTF-8. Исходными данными является таблица Excel из 12 столбцов. Сначала, макрос создаёт папку для будущих текстовых файлов. Папка создаётся в том же каталоге, где расположена книга Excel. Далее, для каждой строки таблицы, макрос формирует подпапку, используя в качестве её названия текст из 7-го столбца таблицы. И потом, когда папка...
  • Результат транслитерации выделенного диапазона ячеек
    Надстройка для транслитерации или кодирования (замены символов их кодами) выделенного диапазона ячеек Excel При запуске надстройки в Excel формируется панель инструментов, при помощи которой можно выполнять следующие действия: Нажатием кнопки RU->EN выполнить транслитерацию выделенного диапазона ячеек Нажатием кнопки EN->RU выполнить транслитерацию выделенного диапазона ячеек В...
  • Функция создаёт на диске текстовый файл в заданной кодировке. Среди доступных кодировок есть 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...
  • При попытке сохранить файл под именем, заданным пользователем, вы можете получить ошибку - если в имени файла (папки) присутствуют запрещённые символы. Этого легко избежать, если в процессе формирования имени файла удалить из него недопустимые символы, заменив их символом подчёркивания: Function Replace_symbols(ByVal txt As String) As String St$ = "~!@/\#$%^&*=|`""...
  • Окно вывода кодов символов для текущей ячейки
    Надстройка предназначена для быстрого просмотра кодов символов текста, введённого в ячейку. Порой бывают ситуации, когда формулы поиска и сравнения выдают неожиданный результат - одинаковые с виду ячейки для формул оказываются разными. И вот в этих случаях на помощь приходит эта надстройка. С её помощью вы быстро обнаружите, что в похожих ячейках одни и те же буквы набраны в разных...
  • Зачастую требуется в функциях ввести дополнительный параметр, где пользователь может задать ссылку на ячейку (например, место для вставки данных) Поскольку фантазия некоторых пользователей ничем не ограничена, да и хочется сделать макрос универсальным, необходимо сделать так, чтобы пользователь мог задать параметр ЯчейкаДляВставки в любом виде - будь то ссылка на ячейку, строку или столбец, или...
  • Скриншот результатов отображения промежуточных этапов вычислений формулы Excel
    Пользовательская функция ParseFormula предназначена для отображения промежуточных результатов вычисления простейших формул в Excel.   В данной версии функции ParseFormula поддерживаются только 2 формулы: СУММ и ПРОИЗВЕД Пример её использования - в прикреплённом файле. В примере в голубых ячейках - исходные данные для формул, в оранжевых ячейках - формулы типа =ПРОИЗВЕД(A1...
  • При помощи функции Environ() можно получить значение переменной окружения Windows   Этот макрос создаст новую книгу, и выведет в неё список из 31 переменной, с примерами вызова функции для получения каждого из параметров: Sub ВывестиПеременныеОкружения() On Error Resume Next Dim sh As Worksheet, param$ Application.ScreenUpdating = False: Set sh = Workbooks.Add.Worksheets(1...
  • Функция позволяет произвести замену в текстовой строке кодов символов Unicode на их значения   В функции используются регулярные выражения (RegExp) Пример использования функции ReplaceUnicodeChars: Sub ЗаменаКодовСимволовВСтроке() ' исходная текстовая строка, содержащая коды символов Unicode txt$ = "Санаторий\u2013профилакторий \u201dЛесная сказка\u201d приглашает Вас!...
  • Данные функции могут быть полезны, если вы хотите спрятать некоторые значения в книге Excel Функция SaveValue предназначена для создания (изменения существующих) имён в книге, а функция GetValue - для получения ранее сохранённых значений. Sub SaveValue(ByRef WB As Workbook, ByVal Parameter As String, ByVal NewValue As String) ' создаёт в книге WB скрытое имя Parameter со значением NewValue...
  • Этот макрос позволяет преобразовать HTML-код, хранящийся в ячейках Excel, в обычный текст (без HTML-тегов) Особенность кода: теги перевода строки «br /» сохраняются. Пример использования процедуры Convert_HTML_Range_To_Text: (для этого примера, преобразования выполняются для диапазона ячеек в столбце С, начиная с 4 строки) Sub Макрос1() ' получаем ссылку на диапазон ячеек Dim ra As Range...
  • Функция ParseColumnsStringEx предназначена для преобразования введенного пользователем списка столбцов в одномерный массив числовых значений. Назначение функции: исключить ошибки пользовательского ввода, преобразовать буквенные названия столбцов в числовые значения. Пример использования: Private Sub ПримерИспользования_ParseColumnsStringEx() Dim txt$, txt1$, txt2$ ' исходная строка с...