Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 След.
Лемматизация текста в Excel, Использование существующих библиотек или разработка алгоритма на VBA
 
Цитата
Jack Famous написал:
Файл — в архиве на  dropmefiles  (пароль сначала 123 и потом 1234)
Нет файла. Перезалейте, пожалуйста.
Получить последнюю строку txt, VBA
 
Цитата
New написал:
как вариант
Если последняя строка пустая, то данный вариант её и найдет, а ТС необходимо найти последнюю непустую.
RegExp и Lookbehind (?<=), Неполная реализация RegExp?
 
Цитата
ae485 написал:
Получается что Lookbehind нельзя пользоваться?
Если очень захотеть, то можно
У меня получилось.
Вкратце: нужно подсунуть библиотеку с движком регулярных выражений PCRE (Perl-совместимые).
Главное неудобство - необходимо рядом с документом положить pcre2-16.dll (просто так, без дополнительных действий у другого юзера не взлетит).
Функция ближайший рабочий день на VBA
 
Цитата
Сергей bangoo написал:
если вводимая дата - рабочий день, то функция все равно ищет ближайший рабочий?
Да, это и требуется.
Кроме вводимой даты есть ещё один аргумент: количество дней.
Вводим дату 19.09.2022 и количество дней - 1. Результат будет 20.09.2022
Вводим дату 19.09.2022 и количество дней - 0. Результат будет 19.09.2022
Функция ближайший рабочий день на VBA
 
Сергей bangoo,
Может microsoft scripting runtime не подключен?
Импорт данных о погоде
 
Цитата
Андрей написал:
Но что делать с рабочими выходными пока не знаю.
Делал UDF-шки для определения рабочих и праздничных дней.
Может пригодится. Выкладывал здесь.
Excel знает праздничные дни?
 
Возможно, будет полезным...
Делал для себя набор пользовательских функций (см. вложенный файл):
Function fnСледующийРабочийДень(ByVal dДень As Date, Optional ByVal iДобавитьДней As Integer = 1) As Date
Function fnЭтоРабочийДень(ByVal dДень As Date) As Boolean
Private Function fnЭтоПраздникИлиВыходной(dДень As Date) As Boolean
Private Function fnЭтоРабочаяСуббота(dДень As Date) As Boolean

В код уже внесены даты с 01.01.2006 по 09.01.2023 включительно. Для РФ.
Можно работать с дополнительными столбцами.
Формула РАБДЕНЬ (в моём варианте) признаёт рабочим первое число месяца, если оно попадает на сб или вс
 
macovea, не так давно делал похожее для своих проектов, попробуйте, может будет полезным.
Написать дату в VBA
 
Код
Range("A1") = "№ 5 от " & Format(WorksheetFunction.EoMonth(Now(), 0), "[$-FC19]DD MMMM YYYY г.")

P.s. Если год нужен с пробелом:
Код
Range("A1") = "№ 5 от " & Format(WorksheetFunction.EoMonth(Now(), 0), "[$-FC19]DD MMMM 20 YY г.")
Изменено: aequit - 04.03.2021 14:36:14
Вычисление рабочих дней между датами, Разработка пользовательской функции в PowerQuery
 
Цитата
buchlotnik написал:
только несколько трудоемко
Для себя делал макрос для формирования списка нерабочих дней на год, если необходимо использовать функцию РАБДЕНЬ.МЕЖД (во вложении).
На нужный год необходимо заполнить из производственного календаря список перенесенных выходных и рабочие субботы, если есть. Праздничные дни, субботы и воскресенья заносить не нужно. С 2006 года по 2021 всё уже занесено в код функции. Запускается изменением значения года в ячейке E1, потом полученные значения можно копировать в свой проект.
Изменено: aequit - 27.02.2021 13:32:17
Написать сумму прописью, Кто нибудь знает как отредактировать формулу, так чтобы вместо 00 копеек получалось ноль копеек?
 
Цитата
Ибрагим Белхороев написал:
начиналась с маленькой буквы
Функция ближайший рабочий день на VBA
 
Цитата
DimasAda написал:
Прошу помочь с поиском решения
Так создайте свою тему, опишите, что хотите получить и приложите пример.
Непонятно, что Вы хотите, рабочий день не делится на части, это уже получаются рабочие часы, возможно, нужен совсем другой алгоритм.
Только недавно обсуждалась тема рабочих дней, вот вариант формулой без VBA
Нумерация транзитных точек при условии наличия даты и времени
 
В примере должен быть желаемый результат, как должно быть, чтобы не приходилось гадать, о чем Вы думали. Во вложении результат, как я это понял.
Скрытый текст
Несквозная нумерация списка
 
Код
Sub num4()
    Dim x&, y&, Z&
     y = 3
     Z = 0
     'MsgBox "Z=" & Z
    Do While Cells(y, 1) > 0
        x = Cells(y, 1)
        For i = 1 To x
           Cells(Z + 1 + i, 6) = i
        Next i
        Z = Z + i - 1
        y = y + 1
    Loop
End Sub
Невидимый текст в ячейке, Как включить полную видимость в ячейке?
 
LuckyOld,  для ячейки BJ6 действует правило условного форматирования, разбирайтесь с ним.
Генерировать Word-документы по каждой однотипной позиции под требования отдела закупок
 
В сообщении 4 код рабочий. Проверил.
Открыл файл из шаблона и сохранил его в "C:\SHABLON.docx".  Не как шаблон, а как документ. Всё отработало без каких-либо ошибок. Если сомневаетесь, что процедура не успевает что-то сделать, проверьте вручную работу процедуры пошагово по F8.
При массовом обращении к множеству файлов Word из Excel встречал плавающие ошибки (редко и на определенных компьютерах), которые излечивались заменой позднего связывания на раннее.
Изменено: aequit - 28.01.2021 17:13:50
Счет праздничных дней между датами
 
pentagon63, пожалуйста! Но для ответа нажимайте "Имя", а не  "Цитировать".
Генерировать Word-документы по каждой однотипной позиции под требования отдела закупок
 
На первый взгляд, Вы открываете шаблон, потом запускаете цикл, в начале цикла сохраняете шаблон (но он без значений!!!) под новым именем и лишь затем вносите туда данные. Пройдите свой код в пошаговом режиме, отслеживая результат после каждой команды и всё увидите.

И пример нужно прикладывать, кому охота создавать похожий шаблон с закладками, чтобы воспроизвести ошибку у себя?
Счет праздничных дней между датами
 
Вариант на VBA
Скрытый текст
Вычисление даты от исходной, прибавляя только рабочие дни
 
Вчитался в суть решения. Нужно сделать массив всех суббот и удалить рабочую, если есть. Тогда действительно можно уйти от UDF...

P.s. Сделал рабочий вариант без использования VBA на 2021 год. Во вложении.
Как мне кажется, такой вариант с предварительной подготовкой списка выходных и праздничных дней, включающего все нерабочие субботы, будет сложнее, чем просто подготовка списка нерабочих дней и одной рабочей субботы из производственного календаря (интуитивно понятнее). Не знаю, как у вас, у нас большинство пользователей не понимают, как нарастающий итог считать )))
Изменено: aequit - 28.01.2021 09:01:45
Вычисление даты от исходной, прибавляя только рабочие дни
 
20 февраля 2021 года это нерабочая суббота. Возможно, полный список нерабочих суббот и поможет...

P.s. да, Вы правы, сразу не подумал.
Изменено: aequit - 27.01.2021 17:26:30
Вычисление даты от исходной, прибавляя только рабочие дни
 
А 20 февраля 2021 года как собираетесь учитывать?
Подсчет количества отработанных часов в будние дни после 18 часов, суммирование первых 2 часов после 18 с умножением на 1,5 и последующих на 2
 
Цитата
DanGo написал:
Скажите, а классически встроенным функционалом формул это никак не решается, пусть и 3-ёх этажных?
Чтобы день можно было считать рабочим, необходимо соблюдение одного из двух условий (логическое "ИЛИ")
Первое условие (состоит, в свою очередь, из трёх условий, которые должны быть соблюдены одновременно
(логическое "И"):
1) Дата не должна быть субботой.
2) Дата не должна быть воскресеньем.
3) Дата не должна входить в перечень праздничных и выходных дней.
Второе основное условие (которое применяется, если первое не сработало):
Дата входит в перечень рабочих суббот.
Когда-то не получилось в разумное время реализовать второе основное условие, быстрее оказалось написать пользовательскую функцию, работает замечательно, будет учитывать даты типа 20.02.2021 (это рабочая суббота). Дальше не заморачивался.
Подсчет количества отработанных часов в будние дни после 18 часов, суммирование первых 2 часов после 18 с умножением на 1,5 и последующих на 2
 
Цитата
DanGo написал:
подводный камень - праздничные дни и я ума не приложу как встроить в существующий алгоритм расчет только по будним рабочим дням за минусом выходных и праздников
Вариант на UDF (во вложении).
Скрытый текст
Парсинг сайта по названию организаций
 
Цитата
sabotajue написал:
а сейчас появляется либо #ЗНАЧ! либо 0 появляется в столбце ИНН
Посмотрел Ваш файл. Вероятно, Вы делали слишком много запросов. Сработала защита сайта.
При попытке сделать запрос напрямую с сайта, без макроса и вообще без Excel
получил сообщение "Вы слишком часто обращались к сайту и мы хотим убедиться, что вы не робот.
Повторите русские прописные буквы с картинки и сможете дальше работать".
Парсинг сайта по названию организаций
 
Примерно так:
Скрытый текст


P.s. Паттерн для адреса, если кому нужно:
Код
.Pattern = "(<i>адрес</i>: )([\S\s]*?)(</span></label></p>)"
Буквенное обозначение выходных и праздников в табеле, функция
 
Diamond_861,
А как же рабочие субботы (например, 20.02.2021)? Ведь табель это деньги, неточности допустимы?
Парсинг сайта по названию организаций
 
Допустим, нет макроса и программы.
Например, вводите неточный запрос
Сайт отдаёт более одной организации. Макрос определяет или один ИНН (тогда выводится результат), или их больше одного (выводится сообщение об этом). Что именно выводить в ответ на запрос - на стороне сайта.
Ошибочное обращение к фигурам, если удаляются ранее созданные фигуры
 
Цитата
ferit написал:
если одну из фигур удалить (например вторую)
То фигура 6 - а это кнопка1 станет фигурой 5.
Добавляем ещё одну фигуру - она станет фигурой 6 а кнопка останется фигурой 5.
Проверяйте в окне Immediate
Код
Sheets("55").Shapes(6).select
При нажатии на крестик в правом верхнем углу закрывается только сама книга
 
Цитата
Артем написал:
Раньше при нажатии ВЕРХНЕГО крестика закрывалась и книга и программа
Тут были?
Страницы: 1 2 3 4 5 6 7 След.
Наверх