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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 80 След.
Непрошенное объединение идентичных связей в двух файлах на третий
 
#
11.12.2025 12:59:57
А не влияют ли эти параметры:
Изменено: Бахтиёр - 11.12.2025 13:09:32 (перезалил файл)
 
Перейти    
Удалить строку, включающую строго заданное слово, Написать макрос, который удалит строку целиком, если в ней будет найдено строго заданное слово
 
#
03.12.2025 10:56:31
Код
Sub dddd()
Set xRng = Range("A1").CurrentRegion
mas = xRng.Value
rr = UBound(mas)
cc = UBound(mas, 2)
ReDim mas2(1 To rr, 1 To cc)
For i = 1 To rr
    If InStr(1, mas(i, 3), "масло ", vbTextCompare) = 0 Then
        n = n + 1
        For k = 1 To cc
            mas2(n, k) = mas(i, k)
        Next
    End If
Next
xRng.Value = mas2
End Sub
Изменено: Бахтиёр - 03.12.2025 10:58:22
 
Перейти    
Обрезать строку после второго пробела СПРАВА
 
#
03.12.2025 10:41:47
=ТЕКСТПОСЛЕ(A1;" ";-2)
 
Перейти    
Объединение Суммесли и ВПР, Объединение Суммесли и ВПР
 
#
27.11.2025 12:20:42
Цитата
:  объяснил что ты сделал
Я использовал функцию =УНИК() чтобы удалить дубликаты и рядом применил =СУММЕСЛИМН()
но,
Цитата
:  эксель версии 2016 года
в 2016 нет =УНИК()
 
Перейти    
Объединение Суммесли и ВПР, Объединение Суммесли и ВПР
 
#
27.11.2025 08:38:49
так?
 
Перейти    
Суммеслимн по массиву значений, Суммеслимн по массиву значений
 
#
26.11.2025 07:52:03
=СУММ(СУММЕСЛИМН(D2:D25;A2:A25;I2;B2:B25;J2:K2))

Для старых версий excel после ввода формулы нужно нажать Ctrl+Shift+Enter
Изменено: Бахтиёр - 26.11.2025 07:53:22
 
Перейти    
Горячая клавиша "Вставить значения", Как правильно написать макрос?
 
#
27.05.2025 09:26:46
У меня например, для быстрой вставки значений/формата есть макросы:
Код
Sub Вставить_значения()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

Sub Вставить_форматы()
Selection.PasteSpecial Paste:=xlPasteFormats
End Sub

На событие открытия надстройки я повесил эти макросы на хоткеи Ctrl+W и  Ctrl+Shift+W:
Код
Application.OnKey "^w", "Вставить_значения"
Application.OnKey "^+w", "Вставить_форматы"
'где SHIFT +
'CTRL ^
'ALT %
Теперь копирую что-то как обычно нажатием Ctrl+C и для быстрой вставки значения или формата нажимаю Ctrl+W или Ctrl+Shift+W
 
Перейти    
Новая вкладка на ленте
 
#
27.05.2025 09:13:21
Флажок - удобный инструмент
Вкладку "Автоматизировать" - ещё не пробовал
 
Перейти    
Обрезка текста в ячейке после второго пробела
 
#
27.03.2025 14:22:59
Для Excel 365:
=ТЕКСТДО(A1;" ";2;;;ТЕКСТДО(A1;" "))
 
Перейти    
Подсчёт ячеек с датой текущего месяца, Не хочет работать формула
 
#
27.03.2025 14:07:02
=СЧЁТ(1/(ТЕКСТ(A3:A22;"М.Г")=ТЕКСТ(ТДАТА();"М.Г")))

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


1-я вводится нажатием Ctrl+Shift+Enter, если у вас не 365/2021/2024
 
Перейти    
заменить цифры после последней точки
 
#
27.03.2025 13:26:59
Для Excel 365:
=ТЕКСТДО(A1;".";3)&".xxx"
Изменено: Бахтиёр - 27.03.2025 13:27:26
 
Перейти    
Как VBS-скриптом работать с уже открытыми файлами excel/word?
 
#
04.03.2025 13:51:50
Дмитрий(The_Prist) Щербаков, artem_sib спасибо, получилось
 
Перейти    
Как VBS-скриптом работать с уже открытыми файлами excel/word?
 
#
04.03.2025 13:36:06
del
Изменено: Бахтиёр - 04.03.2025 13:52:07
 
Перейти    
Как VBS-скриптом работать с уже открытыми файлами excel/word?
 
#
04.03.2025 09:58:39
Добрый день.
Как VBS-скриптом обратиться/работать с уже открытыми файлами excel/word?

Создать новый экземпляр приложения и открыть файлы я вроде бы умею, а вот как обратиться и работать с уже открытыми файлами?
 
Перейти    
Проблема 100 (Число полученное суммированием нескольких чисел с десятичной дробью)
 
#
27.02.2025 10:52:41
Цитата
:  если никакие другие программы не использовались для выгрузки файла.
Нет, всё делалось на чистом excel
Цитата
нажать ввод: F2 ->Enter
Да, помогает, также помогают и другие "стандартные": замена соответ. цифры на себя через Поиск и замену, также Данные-Текст по столбцам-OK

Цитата
с чего бы вдруг? Вы же получили значение формулой, а потом полученное значение просто перенесли так, как оно было получено, без всяких преобразований.
мдаа...

Дмитрий, спасибо.
 
Перейти    
Проблема 100 (Число полученное суммированием нескольких чисел с десятичной дробью)
 
#
27.02.2025 09:10:10
Excel 365
Стоит Бета канал --> может быть из-за этого?

P.S В файле из предыдущего поста исправьте формулу =СЧЁТЕСЛИМН(A1:A2;100) --> и он вернёт 2, то есть для него это - два одинаковых числа, а для УНИК нет
 
Перейти    
Проблема 100 (Число полученное суммированием нескольких чисел с десятичной дробью)
 
#
27.02.2025 09:03:06
В 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 видно
 
Перейти    
Как программно проверить наличие проверки данных на ячейке?
 
#
12.02.2025 15:03:30
Дмитрий, спасибо
 
Перейти    
При копировании листа условия проверки данных меняются непонятным образом
 
#
11.02.2025 17:19:55
Тимофеев, спасибо большое.
 
Перейти    
Как программно проверить наличие проверки данных на ячейке?
 
#
11.02.2025 17:16:01
Тимофеев, DANIKOLA, спасибо.
 
Перейти    
Как программно проверить наличие проверки данных на ячейке?
 
#
11.02.2025 15:29:25
Добрый день.
Как программно проверить наличие проверки данных (Данные - Проверка данных) на ячейке?

Только прочитав Range.Validation.Type и если выдаёт ошибку - НЕТ проверки данных, а в противном случае - ЕСТЬ?  
 
Перейти    
При копировании листа условия проверки данных меняются непонятным образом
 
#
11.02.2025 15:22:26

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

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

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

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

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

Изменено: Бахтиёр - 11.02.2025 15:24:31
 
Перейти    
Вытащить определенное слово из предложения
 
#
07.02.2025 10:42:30
Для Excel 365:
=ИНДЕКС(ТЕКСТРАЗД(A2;{" ";"."};;1);{1:4:7})
 
Перейти    
извлечение текста между двумя знаками "-" и "/", есть текст, где повторяются "-" и "/" необходимо выбрать то, что находится между ними
 
#
07.02.2025 10:13:38
Для Excel 365:
=ТЕКСТДО(ТЕКСТПОСЛЕ(A2;"-";-1);"/")
 
Перейти    
Извлечь в отдельную ячейку определенный знак/и
 
#
25.12.2024 10:40:16
=ЕСЛИ(И(ДЛСТР(A1)>7;ЛЕВБ(A1;6)="1-2дн.");ПСТР(A1;7;ПОИСК("шт";A1)-7))
 
Перейти    
Диапазон чисел в одной ячейке
 
#
16.12.2024 13:18:36
Для 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);"документ не найден"))
Изменено: Бахтиёр - 16.12.2024 13:19:29
 
Перейти    
Поиск минимального значения с учётом даты
 
#
12.12.2024 09:58:18
=МИН(ЕСЛИ(ТЕКСТ(Таблица1[Дата];"ДМ")=D4&E4;Таблица1[Температура]))

Для Excel 365/2021:
=МИН(ФИЛЬТР(Таблица1[Температура];ТЕКСТ(Таблица1[Дата];"ДМ")=D4&E4))
Изменено: Бахтиёр - 12.12.2024 09:59:14
 
Перейти    
Разделить текст в строке формулой
 
#
12.12.2024 09:35:12
Для Excel 365:
=ТЕКСТДО(A1;" ";2)
 
Перейти    
Поиск и подсчет повторяющихся слов в книге
 
#
29.11.2024 09:03:14
Цитата
БМВ: но стандартных средств точно нет.
БМВ, почему нет?
Например, формула для Excel 365:
=LET(y;ТЕКСТРАЗД(СЦЕП(ПОСТРОК(_a:_c!A1:D10)&",");;{",";" "};1);z;УНИК(y);ГСТОЛБИК(z;MAP(z;LAMBDA(x;СУММ(--(y=x))))))
обрабатывает все ячейки в диапазоне A1:D10 на всех листах начиная с листа "_a" и заканчивая листом "_c" и выводит слова и сколько раз они встречаются.
Изменено: Бахтиёр - 29.11.2024 09:04:47
 
Перейти    
Как остановить работу одного из них нескольких запущенных VBS скриптов, не выключая компьютер?, В диспетчере задач их не отличить друг от друга.
 
#
27.11.2024 15:53:50
Спасибо, понятно.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 80 След.
Наверх