Для Excel 365:
=ТЕКСТДО(A1;" ";2;;;ТЕКСТДО(A1;" "))

=СЧЁТ(1/(ТЕКСТ(A3:A22;"М.Г")=ТЕКСТ(ТДАТА();"М.Г")))

=СУММПРОИЗВ(--(ТЕКСТ(A3:A22;"М.Г")=ТЕКСТ(ТДАТА();"М.Г")))


1-я вводится нажатием Ctrl+Shift+Enter, если у вас не 365/2021/2024

Для Excel 365:
=ТЕКСТДО(A1;".";3)&".xxx"

Дмитрий(The_Prist) Щербаков, artem_sib спасибо, получилось

del

Добрый день.
Как VBS-скриптом обратиться/работать с уже открытыми файлами excel/word?

Создать новый экземпляр приложения и открыть файлы я вроде бы умею, а вот как обратиться и работать с уже открытыми файлами?

Нет, всё делалось на чистом excel
Да, помогает, также помогают и другие "стандартные": замена соответ. цифры на себя через Поиск и замену, также Данные-Текст по столбцам-OK

мдаа...

Дмитрий, спасибо.

Excel 365
Стоит Бета канал --> может быть из-за этого?

P.S В файле из предыдущего поста исправьте формулу =СЧЁТЕСЛИМН(A1:A2;100) --> и он вернёт 2, то есть для него это - два одинаковых числа, а для УНИК нет

В A1 - число 100, написанное от руки
В A2 стояла формула (суммирование из шести ячеек чисел 16,6 16,6 16,7 16,7 16,7 16,7 - эти шесть чисел в своих ячейках были написаны от руки, у всех только одна цифра после запятой)
Потом стоя на A2 я сделал копирование и вставку значения сюда же.
Теперь в A1 и в A2 вроде бы одинаковые числа.

Но, Данные - Удалить дубликаты не удаляет второе число 100
Также, функция =УНИК(...) тоже не признаёт эти числа одинаковыми
А вот =СЧЁТЕСЛИМН(A1:A2;100) возвращает 2, то есть для него это одинаковые числа.

Если разархивировать файл и посмотреть в xml на A2: 100.00000000000001
А причина, почему-то от руки написанное число 16,6 в xml стоит как 16.600000000000001

Я думал, такие проблемы (связанные с хранением чисел в Excel) появляются только при сложении, отнимании, ... --> то есть как результат формулы
Но при копировании и вставки как значение - эта проблема должна были исчезнуть - Разве нет?
И в окне Excel не видно дробной части, а в xml видно

Дмитрий, спасибо

Тимофеев, спасибо большое.

Тимофеев, DANIKOLA, спасибо.

Добрый день.
Как программно проверить наличие проверки данных (Данные - Проверка данных) на ячейке?

Только прочитав Range.Validation.Type и если выдаёт ошибку - НЕТ проверки данных, а в противном случае - ЕСТЬ?  

Добрый день.
В ячейках С2, С6, С7 и С8 установлена проверка данных (Данные --> Проверка данных) – тип “Список”, элементы списка введены вручную:
С2: А.Курбаналиев;Б.Ахмедов;2 куратора
С6: есть;нет
С7: есть;нет;не обязательно
С8: есть;нет;не обязательно

Если нажать ПКМ над именем листа --> “Переместить или копировать” --> Выбрать новую книгу и поставить галочку “Создать копию ” --> Копия листа создаётся как новая книга.

Но, в этой вновь созданной книге, почему-то самовольно поменялись условия проверки данных ячеек С6, С7 и С8 на:
А.Курбаналиев;Б.Ахмедов;2 куратора

Почему так? И как лечить?
Ведь как вы видите,
в книге нет ни макросов, ни формул, ничего такого. И список проверки данных –
это не ссылка на какой-нибудь диапазон, а введённый вручную список.

P.S. Эта маленькая часть книги, в книге-оригинале некоторые ячейки при копировании листа меняют условяи проверки даных, как я описал выше, а некоторые не меняют, и я не знаю почему одни условия меняются а другие нет.

Для Excel 365:
=ИНДЕКС(ТЕКСТРАЗД(A2;{" ";"."};;1);{1:4:7})

Для Excel 365:
=ТЕКСТДО(ТЕКСТПОСЛЕ(A2;"-";-1);"/")

Для Excel 365:
=LET(z;D1;a;A1:A4;b;B1:B4;x;--ТЕКСТРАЗД(ОБЪЕДИНИТЬ(", ";;b);"-";", ");l;ИНДЕКС(x;;1);r;ИНДЕКС(x;;2);ФИЛЬТР(ПРОСМОТРX("*"&l&"-*";b;a;;2);(l<=z)*(r>=z);"документ не найден"))

=МИН(ЕСЛИ(ТЕКСТ(Таблица1[Дата];"ДМ")=D4&E4;Таблица1[Температура]))

Для Excel 365/2021:
=МИН(ФИЛЬТР(Таблица1[Температура];ТЕКСТ(Таблица1[Дата];"ДМ")=D4&E4))

Для Excel 365:
=ТЕКСТДО(A1;" ";2)

БМВ, почему нет?
Например, формула для Excel 365:
=LET(y;ТЕКСТРАЗД(СЦЕП(ПОСТРОК(_a:_c!A1:D10)&",");;{",";" "};1);z;УНИК(y);ГСТОЛБИК(z;MAP(z;LAMBDA(x;СУММ(--(y=x))))))
обрабатывает все ячейки в диапазоне A1:D10 на всех листах начиная с листа "_a" и заканчивая листом "_c" и выводит слова и сколько раз они встречаются.

Спасибо, понятно.

Добрый день.
При включении компьютера запускаются несколько VBS скриптов.
Как остановить работу одного из них, не выключая компьютер?
В диспетчере задач их не отличить друг от друга.

Для Excel 365/2021:
=LET(x;TDSheet!A1:F130;ИНДЕКС(x;ПОСЛЕД(ЧСТРОК(x)/5;;;5)+4;{1;4}))

Для Excel 365:
=ТЕКСТРАЗД(A3;;СИМВОЛ(10))

1) В ячейку B1 написать формулу:
="="&A1

2) Встать в ячейку B1 --> нажать Ctrl+C --> нажать Ctrl+Alt+V --> выбрать "значения" и нажать ok
3) Нажать Ctrl+H --> Заменить = на =

Так нужно?

да, без тире лежали в submatches

Спасибо.

Понятно, спасибо, завтра посмотрю

nilske  классно

вот только вытягивает вместе с тире, что немного портит впечатление

Добрый день.
Есть тексты типа:
1) Начальные несколько слов один-тринадцать-сорок-двести конечные несколько слов
2) Я-он-ты-они-все-народ конечные несколько слов
3) Начальные несколько слов Том-Билл-Джек-Джон
4) Крот-Мышь-Крыса-Кот-Лев-Тигр

Нужно с помощью регулярок получить в массив слова (mas(1)=Том mas(2)=Билл ...), написанные красным.
У меня не получается получить последнее нужное слово (двести, народ, Джон ...):
Код:

Скрытый текст
Код Sub dddd() Dim mas() Set re = CreateObject("VBScript.RegExp") re.Global = True re.Pattern = "[^-\s]+(?=-)" Set mat = re.Execute(ActiveCell.Value) For i = 1 To mat.Count     ReDim Preserve mas(1 To i)     mas(i) = mat(i - 1) Next ActiveCell.Offset(, 1).Resize(, i).Value = mas End Sub

Можно ли решить задачу ТОЛЬКО с помощью регулярок (без текстовых функций VBA типа Mid, Split)? Также, не применив регулярку на результат регулярки.