вставка нескольких объектов из расширенного буфера обмена через VBA
Пользователь
Сообщений: Регистрация: 01.01.1970
01.06.2023 03:37:54
Уважаемые форумчане!
Есть ли возможность в excel использовать вставку нескольких объектов из расширенного буфера обмена через VBA? Например, вставить последние три текстовых объекта из буфера.
Добрый день! Подскажите , пожалуйста, как вывести непустые (ненулевые) значения вектора полученного в результате выполнения формулы (={1:2:3:0:5}) в ячейку через запятую? Спасибо!
Изменено: - 16.03.2022 05:19:01
Перечислить номера позиций
Пользователь
Сообщений: Регистрация: 01.01.1970
15.03.2022 10:34:17
Здравствуйте! Прошу помочь со следующим вопросом. На входе таблица с перечислением для первого, второго, третьего места названий участников и представленных ими цен.
Необходимо для первого второго и третьего места 1. перечислить участников занявших это место, 2. сумму на которую учестник выиграл и 3. номера позиций по которым он выиграл.
Или знаний не хватает или Функционал сводной таблицы не позволяет третий пункт реализовать. Может есть варианты без сводной таблицы?
Файл прилагаю.
Заранее большое спасибо!
Поиск соответствия действительности списка номеров между таблицей excel и текстовым файлом 100млн. строк
Пользователь
Сообщений: Регистрация: 01.01.1970
17.05.2021 07:25:42
МатросНаЗебре, спасибо большое за ваше внимание и помощь! работает!
Немного допилил следующее. 1. при чтении из файла разделитель в строке s только символ 10 и заменил vbCrLf на vbLf, иначе размерность массива была из одного элемента. 2. отформатировал диапазон для вывода недействит паспортов в Excel в тектовый формат, иначе выводил паспорта как число, что при наличии нуля в голове давало не то что требуется.
Код
...
arr = Split(s, vbLf)
If UBound(arr) > 0 Then
ActiveSheet.Cells(2, 3).Resize(UBound(arr) + 1).NumberFormat = "@"
ActiveSheet.Cells(2, 3).Resize(UBound(arr) + 1) = Application.Transpose(arr)
End If
...
Поиск соответствия действительности списка номеров между таблицей excel и текстовым файлом 100млн. строк
Пользователь
Сообщений: Регистрация: 01.01.1970
14.05.2021 10:40:57
Доброго дня. Прошу помощи в таком вопросе:
Необходимо автоматизировать следующий процесс, который выполняется вручную на входе имеем реестр номеров паспортов реестр.xls, со списом номеров необходимо проверить их действительность для проверки используем текстовый файл list_of_expired_passports.csv Если номер паспорта найден в этом файле - он недействителен. Файл по которому сверяемся на недействительность list_of_expired_passports.csv объемом 1.5ГБ, более 100 млн. строк поиск по файлу веду при помощи внешней программки grep.exe
I. создаем текстовый файл и копируем список проверяемых паспортов в текстовый файл на выходе имеем текстовый файл с перечислением найдействительных недействительных адресов в проверяемом списке II. Данные из файл копируем в таблицу реестра и впр-ом ищем соответствие.
1. возможно ли средствами Excel вести поиск соответствий таблицы с текстовым файлом в 100 млн. строк за разумное время, проверка grep-ом нескольких сотен паспортов занимает от 10 сек до минуты 2. как автоматизировать в excel процесс используя grep 3. файл со списком всех недействительных паспортов - по ссылке (архив 500МБ)
Цели и правда порой бывают не ясны. таковы требования.
Но вот формула работает, Спасибо за помощь! Отличный вариант!
Изменено: - 08.09.2020 08:18:10
медиана на нескольким условиям
Пользователь
Сообщений: Регистрация: 01.01.1970
08.09.2020 05:47:35
Добрый день! Уважаемые формумчане, прошу помочь в формуле подсчета медианы по нескольким условиям.
Медиана должна обсчитывать только те значения, которые удовлетворяют условиям >= срзнач_всех_значений *.75 && <= срзнач_всех_значений 1.25 т.е. попадающих в коридор +-25% от срзнач.
Заранее Спасибо!
Перевести условное форматирование в обычное - VBA., Универсальный и специализированные варианты.
прилагаю документ, на котором у меня версия 9 с дополнениями из п.28 отрабатывала корректно версия 10 отрабатывает не корректно (красит все серым)
Перевести условное форматирование в обычное - VBA., Универсальный и специализированные варианты.
Пользователь
Сообщений: Регистрация: 01.01.1970
14.05.2020 04:07:07
Цитата
bedvit написал: Изменено: bedvit - 24 Май 2019 12:33:41
Спасибо большое, пригодилось!
Заметил, что при переформатировании, если ячейки содержат непечатные символы (перенос строки, например), происходит нежелательное наложение ячеек верхних на нижние (объединение нескольких ячеек по вертикали). Поскольку моя задача была не только в переводе условного форматирования в обычное, но еще и в избавлении книги от формул, то решил при помощи предварительной очистки от формул и от непечатных символов
Код
For Each ws In ActiveWorkbook.Worksheets
ws.UsedRange.Value = Application.Clean(ws.UsedRange)
Next ws
Изменено: - 14.05.2020 04:07:42
Прерывание отображения работы макроса
Пользователь
Сообщений: Регистрация: 01.01.1970
08.05.2020 08:50:44
результат принесла вот такая замена кода копирования диапазона в цикле
удалось через =B19+СТОЛБЕЦ(B19)%%=АГРЕГАТ(15;6;($B19:$AC19+СТОЛБЕЦ($B19:$AC19)%%)/(($B$18:$AC$18="Сумма, руб.")*($D19:$AC19=1));1)
($B19:$AC19+СТОЛБЕЦ($B19:$AC19)%%) к каждому значению добавляем "вес" его столбца, тогда стало все корректно раскрашивать.
только поправка к значению ячейки внутри агрегат не просто столбец(b18)%%, а также массив столбец($b19:$ac19)%%. Для каждого столбца она будет своя.
для столбца 100 имеем 100%%=0.01, в принципе чтобы гарантированно не ошибиться с копейками может имеет смысл взять %%%, тогда даже для 1000 столбца значение поправки будет менее 0.01
вероятно, все-таки в этом может быть выход. Значение + поправка из номера столбца. Покурю этот вариант, потому как со счётеслимн не пойму как охватить 4 варианта с повторением значений в формулах условного форматирования.
Наименьшее значение то что левее
Пользователь
Сообщений: Регистрация: 01.01.1970
19.03.2020 10:34:56
Цитата
БМВ написал: Если быть уверернным в размерности дробной части и величины чисел
о какой уверенности речь? ) числа в поле "Сумма, руб." положительные, до миллионов, с двумя знаками после запятой.
тогда сколькими условиями описывать следующие возможные ситуации с повторяющимися значениями
наим1
наим2
наим3
все разные
#1
#2
#3
повторение 113
#1
#1
#3
повторение 111
#1
#1
#1
повторение 122
#1
#2
#2
постарался в примере наглядно изобразить, то что здесь на словах.
изначально было три условия: зеленый - наименьшее1, желтый - наименьшее2, красный - наименьшее3
Изменено: - 19.03.2020 10:36:13
Наименьшее значение то что левее
Пользователь
Сообщений: Регистрация: 01.01.1970
19.03.2020 08:39:39
1. исправил, упрощение 2. не пойму, к какому основному условию и где в строке... уточните если можно.
Наименьшее значение то что левее
Пользователь
Сообщений: Регистрация: 01.01.1970
19.03.2020 04:18:14
по всей вероятности, задача оказалась из разряда "буря в стакане". ((
Наименьшее значение то что левее
Пользователь
Сообщений: Регистрация: 01.01.1970
17.03.2020 09:48:02
Доброго дня! Прошу помочь в следующем вопросе,
Для нескольких групп по 4 столбца: Столб1, Сумма, руб., Столб3, Допущен средствами условного форматирования
1. Выделить цветом три первых минимальных значения ячейки "Сумма, руб." зеленым, желтым и красным, если для группы в столбце "Допущен" стоит "1" 2. для нескольких совпадающих значений в столбце "Сумма, руб." соответствующих условиям п.1 , меньшим будет то, что левее, соответственно следующим минимальным будет то же значение, ближайшее справа
Формула условного форматирования, расширяемая на другие группы ячеек
Пользователь
Сообщений: Регистрация: 01.01.1970
12.03.2020 13:03:59
Спасибо!
Формула условного форматирования, расширяемая на другие группы ячеек
Пользователь
Сообщений: Регистрация: 01.01.1970
12.03.2020 11:41:27
Спасибо! ) Выручили!
Формула условного форматирования, расширяемая на другие группы ячеек
Пользователь
Сообщений: Регистрация: 01.01.1970
12.03.2020 10:10:08
Доброго дня! Прошу помочь в таком вопросе. Необходимо создать формулу условного форматирования: Залить цветом группу столбцов, для которых в столбце "Заливка" стоит 1. так чтобы формулу условного форматирования можно было расширить на другие группы, в том фисле и вновь дополняемые с аналогичным набором и порядком столбцов: группа4, группа 5 и.т.д.
Спасибо!
Изменено: - 12.03.2020 10:25:30
Из ряда значений, не отмеченных "серой" заливкой, пометить первые три минимальных значения
Пользователь
Сообщений: Регистрация: 01.01.1970
11.03.2020 18:04:35
Цитата
IKor написал: мне не известен способ получения информации о цвете ячейки без использования VBA
пусть будет с использованием vba, но без доп строк со вспомогательными вычислениями. Маркер в доп ячейке, чтобы красить серым по условию пусть остается.
Из ряда значений, не отмеченных "серой" заливкой, пометить первые три минимальных значения
Пользователь
Сообщений: Регистрация: 01.01.1970
11.03.2020 10:43:21
Из ряда значений, не отмеченных "серой" заливкой, пометить первые три минимальных значения "зеленой", "желтой" и "оранжевой" заливкой. Возможно ли реализовать средствами условного форматирования?
невозможного не бывает! Спасибо что откликнулись, но в формуле есть ошибка или меня не допоняли. деталь1 используется только для изделия1, при норме 4 и плане на изделие1=22 имеем 4*22=88 откуда 264?