Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Awallon
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Вырезать/вставить не работает, Как так-то?! )
 
#
02.07.2019 13:54:31
Добрый день всем!)
В одном из рабочих файлов перестала работать функция "Вырезать"/"Вставить". Столбец или строка вырезаются, но при попытке вставить на новое место, ничего не происходит.
Как так получилось, не понимаю. В какую сторону копать - тоже не понятно.
Помогите, пожалуйста, понять и исправить этот недуг у файла.
 
Перейти    
Перевод строки в регулярное выражение
 
#
13.06.2019 14:41:01
Всем доброго дня!
Помогите, пожалуйста, с задачей:
Работать с регулярными выражениями научился. Теперь хочется обратную возможность: перевести строку в регулярное выражение.

В файле в столбце А представлены номера, из которых я хочу получить регулярные выражения. В столбце B - результат работы макроса или udf.
Первый символ "№" учитывать не нужно.
 
Перейти    
Счёт переработки с учетом на 8-часового рабочего дня
 
#
05.06.2019 08:33:56
Всем хорошего дня! :)

Хочу посчитать количество переработок с учетом рабочих часов.
Сейчас пока так:
в столбце А - переработанное время.
В столбце В - не доработанное время.
Столбцы А и В - результаты вычислений, т.е. готовые данные.
Каждая строка - отдельно взятый рабочий день.
Сейчас считаются полные сутки (ячейка F2). Хочется такую формулу, чтобы было подсчитано, как в ячейке G2.

В данном случае так: в 3 полных сутках - 9 8-часовых рабочих дня + в 20:41 часах - еще 2 8-часовых рабочих дня.
Итого: 11 8-часовых рабочих дня + 4:41 часов.

Соответственно, дни будут добавляться, переработки пересчитываться и хочется, чтобы количество рабочих дней также пересчитывалось.
Такие мелочи как учет выходных и праздников не нужен. Нужна общая сумма дней и остаток часов переработки с учетом 8-часового рабочего дня.
 
Перейти    
Поиск кириллицы (регулярные выражения), Не выходит найти кириллицу в тексте между кавычками
 
#
08.05.2019 10:52:15
Добрый день.
У меня есть кучка текста, откуда я хочу выдернуть наименования, заключенные в кавычках. Достаточно первого вхождения искомых данных.
Вот пример:
Цитата
"Return this"
Текст "Return this"
"Return this" Текст
Текст "Return this" Текст
"Return "this" Текст
Текст "Return "this"
Текст "Return "this" Текст

"Верни это"
Текст "Верни это"
"Верни это" Текст
Текст "Верни это" Текст
"Верни "это" Текст
Текст "Верни "это"
Текст "Верни "это" Текст
Выражение:
Код
\b\S\[А-я]*.\S\[А-я]*\S\b|\b\S\[А-я]*\S\b|\b\S\w*.\S\w*\S\b|\b\S\w*\S\b
Тексты на латинице выражение находит без проблем, а вот кириллицу упорно игнорирует и я не могу понять, по какой причине.
Помогите, пжлста :)

Использую пользовательскую функцию из этого поста: https://www.planetaexcel.ru/techniques/7/4844/
 
Перейти    
Замена порядка слов в ячейке (VBA)
 
#
29.04.2019 09:22:26
Всем доброго дня!
Мне нужно список привести к общему виду. Список из ФИО.
Часть ячеек правильные: "Фамилия Имя Отчество"
Часть ячеек неправильные: "Имя Фамилия Отчество"
Я ищу неправильные ячейки и макросом меняю "Имя Фамилию" на "Фамилию Имя". Отчество остается на месте.
Нашел на просторах интернета решение и немного переделал под себя. Однако, макрос стал ругаться на Wend. И я не могу понять, почему.
Помогите, пожалуйста, доработать макрос)
Код
Sub ReverseString()
    Dim WB As Workbook
    Dim WS As Worksheet
    Dim R As Integer
    
    Set WB = Excel.ActiveWorkbook
    Set WS = WB.ActiveSheet

    R = 1
    While (WS.Cells(R, 1).Value <> "")
        nmword = InStr(R, " ", vbBinaryCompare) 'иногда встречается "Имя Фамилия" и чтобы не было out of range, проверяю кол-во слов в ячейке
            If nmword = 2 Then  '3 слова в ячейке
                s = Split(WS.Cells(R, 1).Value, " ")
                WS.Cells(R, 1).Value = Join(Array(s(1), s(0), s(2)), " ")
            If nmword = 1 Then  '2 слова в ячейке
                s = Split(WS.Cells(R, 1).Value, " ")
                WS.Cells(R, 1).Value = Join(Array(s(1), s(0)), " ")
        R = R + 1
        nmword = 0
    Wend  'Сюда ругается =/
End Sub
Изменено: Awallon - 29.04.2019 09:23:54
 
Перейти    
Наиболее быстрое сравнение двух огромных списков
 
#
31.01.2019 16:31:17
Добрый день!
А вот такая задача пришла:
Необходимо на регулярной основе сравнивать два списка номенклатур. Они огромные - 810 870 строк один и 815 432 строк второй (в следующем месяце будет примерно также). Различаются они, как показала практика (см. ниже), на 5 149 номенклатур. Списки состоят из уникальных номеров номенклатур каждый и в большинстве номенклатур оба списка пересекаются. Необходимо выявить различие.

Первое что я попробовал - ВПР. С 0% до 1% переключилось примерно через 4-5 минут, а запускать его надо дважды - для каждого списка.

Второе - ИНДЕКС-ПОИСКПОЗ. Здесь я сам выключил примерно через 20 минут, т.к. не понимал, сколько прошло/осталось, потому что не было процентной индикации вообще.

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

Самое быстрое решение, которое я нашел:
- загрузить оба списка в одну таблицу Access
- с помощью запроса выявить уникальные номенклатуры (повторяются не больше 1 раза) и экспортировать их в Excel
- с помощью Excel и ВПР создать небольшую таблицу, где будет показано какие номенклатуры где отсутствуют (см. "Результат после Access")
На все вместе ушло примерно 20 минут.

Есть ли способ сделать то же самое, но быстрее, без Access и в Excel? :)
 
Перейти    
Страницы: 1
Наверх