Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 След.
Функция листа - аналог like для поиска по шаблону
 
Сергей, для like есть возможность поймать смену регистра с помощью шаблона вида "*[а-яё][А-ЯЁ].*", что и хотелось бы применить с помощью пользовательских функций, не прибегая к VBA
желаю Вам счастья
Функция листа - аналог like для поиска по шаблону
 
vikttur, НАЙТИ не учитывает подстановочные знаки при поиске
желаю Вам счастья
Функция листа - аналог like для поиска по шаблону
 
А для этой задачи ПОИСК уже не подойдёт? В этой задаче нужна чувствительность к регистру, к его смене.
желаю Вам счастья
Функция листа - аналог like для поиска по шаблону
 
Всем спасибо!
желаю Вам счастья
Функция листа - аналог like для поиска по шаблону
 
Простите, вот пример значений
желаю Вам счастья
Функция листа - аналог like для поиска по шаблону
 
Здравствуйте!

Потребовалось в ячейку вставить функцию, которая бы определяла соответствует ли ячейка,скажем, слева от неё шаблону, который используется для оператора like в VBA. Но не нашел, что написать.
Например надо в столбце значений найти все ФИО, которые соответствуют шаблону "*  ?. ?." для оператора like.
Есть ли такая стандартная функция в Excel 2016?
желаю Вам счастья
Обработчик текста в выделенных ячейках
 
vikttur, хорошо.
Пытливый,  по последнему вопросу такое подошло
Код
If cell.value Like "*#" & Chr(34) & "[А-ЯЁа-яё]" & Chr(34) & "*" Then is_adr = 1
желаю Вам счастья
Обработчик текста в выделенных ячейках
 
Доброе утро!

Скажите как в шаблон like вставить двойную кавычку?
Такая строка кода выдает ошибку:
Код
if Str Like "*#"[А-ЯЁа-яё]"*" then is_adr = 1
Нужно сделать так, чтобы строки вида 53"Б"(адреса домов) отлавливались
Изменено: borro - 20 Мар 2019 11:18:25
желаю Вам счастья
Почему несоответствие типов?
 
Hugo, спасибо
желаю Вам счастья
Почему несоответствие типов?
 
Hugo, я же указал 1 последним параметром. то есть первый элемент массива. Или я неправильно понял описание функции?
желаю Вам счастья
Почему несоответствие типов?
 
Здравствуйте!

На строке кода vba:
Код
sФ = Split(s, " ", 1)
программа выдаёт ошибку несоответствия типов
При этом s это String, sФ тоже.
Прикладываю принсткрин из отладчика


Почему возникает ошибка?
желаю Вам счастья
Обработчик текста в выделенных ячейках
 
RAN, спасибо!
желаю Вам счастья
Обработчик текста в выделенных ячейках
 
Дополнил макрос самой нижней галочкой для разноса ФИО по столбцам. При запуске макроса возникает ошибка Object required.
Скажите, пожалуйста, почему?
Ответ: почему-то параметр процедуры надо писать не в скобках, а через пробел от названия процедуры
Изменено: borro - 19 Мар 2019 17:02:44
желаю Вам счастья
Как в макросе вызвать всплывающее окно?
 
Ігор Гончаренко, спасибо! А как же тогда на этапе отработки клика кнопки формы программа уже правильно понимает, что такое есть просто Selection, если у нее "на уме" одна только форма?
желаю Вам счастья
Обработчик текста в выделенных ячейках
 
V, спасибо! А по скорости выигрыш на регулярках будет?
желаю Вам счастья
Обработчик текста в выделенных ячейках
 
V, спасибо.  Попробую найти, как это сделать.
А удаляю все нецифровые и одновременно небуквенные(за исключением пробелов) символы я правильно или надо другой подход использовать?
Изменено: borro - 19 Мар 2019 11:16:46
желаю Вам счастья
Обработчик текста в выделенных ячейках
 
Здравствуйте!

Прикладываю файл с макросом, который запускается после выделения какого-то диапазона ячеек и который призван выполнять разные преобразования текста в этих ячейках. Тестирую я его на первом столбце в диапазоне от A2:А5. Потом если надо повторно протестировать, то копирую туда же из правой колонки.
Первый вопрос о том, почему при выбранной во всплывающей форме галке "Удалить буквы..." удаляются и пробелы? В отладчике видно, что переменная Str пробелы сохраняет, но после команды cell.Value = Str, пробелы в ячейку не вставляются
Второй вопрос, как  починить закомментированную ветку для удаления любого из символов */,.~!@#$%^&(){}\¹;:?-=+'? Сейчас этот код выдает ошибку, invalid pattern, если s = "?"
желаю Вам счастья
Как в макросе вызвать всплывающее окно?
 
RAN, спасибо, сработало! А почему не надо было в данном случае писать эту приставку?
Изменено: borro - 19 Мар 2019 09:06:05
желаю Вам счастья
Как в макросе вызвать всплывающее окно?
 
Этот макрос будет работать с выделенными ячейками активного листа.
Попробовал перебрать каждую ячейку(это код, исполняемый по нажатию кнопки ОК формы):
Код
Private Sub CommandButton1_Click()
    UserForm1.Hide
    Dim cell As Range
    
    For Each cell In ActiveBook.ActiveSheet.Selection
        If UserForm1.symbols Then
            MsgBox ("Удалены символы!")
        End If
    Next cell
End Sub
При исполнении его вылетает ошибка "Object required" и курсор в отладчике указывает на  строку с For.
В чем я ошибся?
Изменено: borro - 18 Мар 2019 19:14:22
желаю Вам счастья
Как в макросе вызвать всплывающее окно?
 
Sanja, спасибо, кажется понял :)
желаю Вам счастья
Как в макросе вызвать всплывающее окно?
 
Здравствуйте!

Скажите, пожалуйста, как в макросе вызвать(отобразить) всплывающее окно, в котором пользователь должен будет галочками отметить необходимые ему макросы, которые затем будут исполнены после нажатия кнопки ОК?
Изменено: borro - 18 Мар 2019 18:20:24
желаю Вам счастья
Как ускорить открытие файлов в vba?
 
Цитата
Михаил С. написал:
Вообще-то все надстройки подтягиваются при открытии первого файла
Здравствуйте! Спасибо. Надстройка подтягивается файлами типа "файл для открытия.xlsx"
JayBhagavan, спасибо. Попробую.
Медленно - это когда в режиме отладки всё зависает на секунд 60 на команде Workbooks.Open
желаю Вам счастья
Как ускорить открытие файлов в vba?
 
Здравствуйте!

Написал макрос(в  файле "Открытие файлов.xlsm"), который ищет текстовые значения в всех файлах указываемой вручную папки. Столкнулся с тем, что он медленно открывает файлы типа прикладываемого "файл для открытия.xlsx", которых много в папке, на которой отрабатывает макрос.  Каждый типовой "файл для открытия.xlsx"  при открытии как понимаю хочет подтянуть надстройку эксель.
Открываю файлы командой:
Код
Workbooks.Open sPath & objFile.Name, 0, , , , , , , , , , , , , xlNormalLoad
Можно ли каким-то параметром этой команды открывать файлы так, чтобы эта надстройка не подтягивалась. Одним словом, как-то ускорить процесс открытия таких файлов.
желаю Вам счастья
Как получить дату создания файла активной книги вместо даты создания содержимого?
 
Доброе утро! Всем спасибо. Нет, я имел в виду дату создания файла
желаю Вам счастья
Как получить дату создания файла активной книги вместо даты создания содержимого?
 
Цитата
JayBhagavan написал:
Скорее ТС нужно:"Creation Date"
Спасибо. Это я уже пробовал(первое сообщение), не то
желаю Вам счастья
Как получить дату создания файла активной книги вместо даты создания содержимого?
 
Ігор Гончаренко, спасибо. Похоже она. А после этого создания объекта(CreateObject) наверно надо производить его деструкцию. Как?
желаю Вам счастья
Как получить дату создания файла активной книги вместо даты создания содержимого?
 
Цитата
БМВ написал:
Содержимое файла создается одновременно с его созданием.
вот эти даты, видимые через свойства файла:
желаю Вам счастья
Как получить дату создания файла активной книги вместо даты создания содержимого?
 
Здравствуйте!

Попытался кодом
Код
ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
получить дату создания файла и понял, что это так называемая Дата создания содержимого.

Как же у активной книги получить дату создания файла?
желаю Вам счастья
Как программно подавить предупреждения и ошибки при открытии файла?
 
Sanja, спасибо, помогло. Только колесико задумчивости долго очень крутится.
желаю Вам счастья
Как программно подавить предупреждения и ошибки при открытии файла?
 
Здравствуйте!

Открываю файлы методом
Код
Workbooks.Open sPath & objFile.Name, 0, , , , , , , , , , , , , xlRepairFile
но это не помогает в скрытии сообщений, которые вываливаются при открытии прикладываемого файла, который пытается подтянуть файл надстройки-эксель(который допустимо не подтягивать, работая с файлом и без него).

Скажите, можно ли программно из VBA открыть приложенный файл без этих сообщений?
желаю Вам счастья
Страницы: 1 2 3 4 5 След.
Наверх