VBA

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA Какую библиотеку нужно подключить, чтобы заработал прогрессбар в Excel https://www.cyberforum.ru/ vba/ thread1537757.html Вообще интересует подключение библиотеки - вся процедура. А то выбираю Additional Controls - Microsoft ProgressBar Control, Version 6.0, а в ответ нифига!	VBA Поиск чисел между символов в тексте и умножение Добрый день! Такая проблема, есть текст в ячейке, и в нем между определенными символами есть числа, их необходимо умножить на 11. Пример текста: RCT -k-\|89\|-\|s0\|-\|0\|-\|1\| RCV -k-\|7\|-\|s0\|-\|1\|-\|1\| RCC -k-\|7\|-\|s0\|-\|2\|-\|14\| Умножить необходимо числа между "-k-\|" и "\|-\|s0\|". Текста в ячейке по 10-15 строк, и самих ячеек тоже немало. Пробовал вытаскивать число, умножать и совать обратно....
VBA Обновить БД Access через Модуль https://www.cyberforum.ru/ vba/ thread1537535.html Имеется 50 баз, которые нужно обновить данными и 1 база, которая эти данные содержит. Как я могу обновить поочередно каждую базу из 1 базы? Я думал написать модуль, который будет находиться в базе из которой я буду обновлять другие базы, потом простым перебором хотел прилинковывать текущую базу к другим и выполнять запрос, но вылетела ошибка "Ядро не может заблокировать БД". Как можно...	VBA Перенос значений на другой лист с поиском свободной строки https://www.cyberforum.ru/ vba/ thread1537283.html Здравствуйте. Прошу помощи. Нужно сделать перенос значений определенных ячеек на другой лист по нажатию кнопки. При повторном нажатии. ранее перенесенные значения должны сохраняться, а новые заноситься в свободный диапазон (в данном случае - D12 и ниже) и т.д. В VBA я не силен. То что есть в файле - надергано из интернета.
VBA Мониторинг писем в Outlook в личных папках Добрый день! Имеется основная папка на работе, куда приходят письма. Она мониторится следующим кодом: Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) Но, по правилам некоторые письма моментально переносятся в Личную папку, которую я создал в Outlook. Как получить к ней доступ через VBA?	VBA Долгая обработка, повторение макроса по кругу https://www.cyberforum.ru/ vba/ thread1537067.html Здравствуйте. Очень долго тружусь уже над своей программой для работы. Вроде всё отлично получается и работает , но есть одна проблема. Есть 2 страница. 1 страница служит для сбора информации ( то есть вводим исходные данные) нажимаем на кнопку , код копирует значения ячеек и отрпавляет их на 2 страницу и копирует 2 страницу 2 страница служит для расчёта , в ней прописан макрос , при...
VBA VBA Access: как закрыть книгу Эксель без сохранения? https://www.cyberforum.ru/ vba/ thread1537043.html Добрый день! Мои попытки найти нужное не увенчались успехом, помогите пожалуйста! Нужно после запуска модуля Эксель через Аксесс полностью закрыть файл Эксель, да так чтобы и в скрытых процессах его тоже не было. Я делаю следующее: Private Sub Кнопка0_Click()	VBA VBA Access: как проверить, открыта ли данная книга Excel Добрый день! Подскажите пожалуйста, как можно при помощи модуля VBA В Access проверить открыта ли заданная книга Excel? Все что могу найти, это только проверка из самого Экселя, а это совсем не то что нужно.
VBA Во фразах найти слова и продублировать фразы со словами с + MS Excel 2013, Windows Имеется лист с двумя столбцами данных 1-ый столбец слово или словосочетание, 2-ой – число. Задача такая – нужно найти в первом столбце словосочетания содержащие определенные слова, например, “под” и “для” продублировать эти словосочетания и добавить в них перед искомыми словами знак +. Массив словосочетаний в первом столбце огромный, перечень слов для замены -... https://www.cyberforum.ru/ vba/ thread1537004.html	VBA Подсчитать количество цифр в веденном тексте https://www.cyberforum.ru/ vba/ thread1536999.html ///
VBA Повторяющиеся значения Добрый день друзья. Подскажите. Имеем вот такой код. Sub УдаленДвстр() Dim CurrentCell As Variant Dim nextCell As Variant On Error Resume Next Range(Selection, Selection.SpecialCells(xlLastCell)).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp On Error GoTo 0 Set CurrentCell = ActiveCell	VBA Подставление значений из ячейки по условию Помогите допилить макрос. Вопрос в следующем. Есть три столбца ячеек куда ставиться количество. Есть ячейка куда проставляется номер задания. И есть столбец куда копируется этот номер задания при условии заполнения количества. Требуется следующее: 1. Предположим столбец A заполнен, и в столбце D проставлен макросом значения из ячейки D2, далее, надо чтобы при заполнении 2 и 3 столбца в графе... https://www.cyberforum.ru/ vba/ thread1536982.html

Аксима

6082 / 1326 / 195

Регистрация: 12.12.2012

Сообщений: 1,023

25.09.2015, 14:42

регулярные выражения - VBA - Ответ 8113781

25.09.2015, 14:42. Показов 659. Ответов 4

Метки (Все метки)

Ответ

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

Visual Basic

Function AddDots(ByVal s As String, Optional ByVal period As Long = 2) As String
    Dim i As Long, n As Long
    If period <= 0 Then Err.Raise 5, , "Расстояние между точками должно быть положительным числом."
    n = Len(s)
    If n = 0 Then Exit Function
    n = n + n Mod period + n \ period - 1
    AddDots = Space(n)
    period = period + 1
    For i = 1 To n: Mid(AddDots, i, 1) = IIf(i Mod period, Mid(s, i - i \ period, 1), "."): Next
End Function

Вернуться к обсуждению:
регулярные выражения VBA

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

25.09.2015, 14:42

Готовые ответы и решения:

Регулярные выражения
Доброго дня! Постигаю регулярки Если используется или, есть ли способ узнать какое именно из...

Регулярные выражения
Есть такая функция: Public Function AddLineBreakBetweenWords(words As String, splitLength As...

регулярные выражения
помогите пожалуйста написать регулярные выражения. на VBA. есть текстовое поле, для ввода фамилии,...

RefEdit и регулярные выражения
Доброго времени суток! Мог бы кто-нибудь подсказать, как осуществить валидацию регулярными...

	25.09.2015, 14:42

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

25.09.2015, 14:42

Помогаю со студенческими работами здесь

Замена текста - регулярные выражения
Здравствуйте уважаемые форумчане! Столкнулся с задачей поиска и замены подстроки по маске. Понял,...

Извлечение текста из строки. Регулярные выражения
Здравствуйте! Нужен код, который выбирает в ячейке слово или словосочетание. Вместо: "Стол красный...

Как отключить регулярные выражения в VBA (Word)
В Word применяются регулярные выражения, например, * < > ? и др. Как сделать так, чтобы...

Поиск и замена, множественное через регулярные выражения
Подскажите как реализовать множественный поиск и замены с помощью regexp поиск и замена: 1....

Пробелы убрать с права от символов (регулярные выражения) | MS Word
Здравствуйте Коллеги! Прошу помощи! Следующая ситуация: есть код который удаляет множественные...

Регулярные выражения: выбрать в ячейке слово или словосочетание до запятой
Здравствуйте! Нужен код, который выбирает в ячейке слово или словосочетание до запятой. Например:...

Наверх