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

Страницы: 1 2 След.
вставка нескольких объектов из расширенного буфера обмена через VBA
 
Уважаемые форумчане!

Есть ли возможность в excel использовать вставку нескольких объектов из расширенного буфера обмена через VBA? Например, вставить последние три текстовых объекта из буфера.
Вывести значения вектора в ячейку через запятую
 
БМВ,
Объединить!
Спасибо!
Вывести значения вектора в ячейку через запятую
 
Цитата
tutochkin написал:
через ИНДЕКС
если можно - пример
Вывести значения вектора в ячейку через запятую
 
Добрый день!
Подскажите , пожалуйста, как вывести непустые (ненулевые) значения вектора полученного в результате выполнения формулы  (={1:2:3:0:5}) в ячейку через запятую?
Спасибо!
Изменено: smaxus - 16.03.2022 05:19:01
Перечислить номера позиций
 
Здравствуйте!
Прошу помочь со следующим вопросом.
На входе таблица с перечислением для первого, второго, третьего места названий участников и представленных ими цен.

Необходимо для первого второго и третьего места
1. перечислить участников занявших это место,
2. сумму на которую учестник выиграл и
3. номера позиций по которым он выиграл.

Или знаний не хватает или Функционал сводной таблицы не позволяет третий пункт реализовать. Может есть варианты без сводной таблицы?

Файл прилагаю.

Заранее большое спасибо!
Поиск соответствия действительности списка номеров между таблицей excel и текстовым файлом 100млн. строк
 
МатросНаЗебре, спасибо большое за ваше внимание и помощь! работает!

Немного допилил следующее.
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млн. строк
 
Доброго дня.
Прошу помощи в таком вопросе:

Необходимо автоматизировать следующий процесс, который выполняется вручную
на входе имеем реестр номеров паспортов реестр.xls, со списом номеров
необходимо проверить их действительность
для проверки используем текстовый файл
list_of_expired_passports.csv
Если номер паспорта найден в этом файле - он недействителен.
Файл по которому сверяемся на недействительность list_of_expired_passports.csv  объемом 1.5ГБ, более 100 млн. строк
поиск по файлу веду при помощи внешней программки grep.exe
Код
grep.exe -f reestr.txt list_of_expired_passports.csv >log\reestr.log

I. создаем текстовый файл и копируем список проверяемых паспортов в текстовый файл
на выходе имеем текстовый файл с перечислением найдействительных недействительных адресов в проверяемом списке
II. Данные из файл копируем в таблицу реестра и впр-ом ищем соответствие.

1. возможно ли средствами Excel вести поиск соответствий таблицы с текстовым файлом в 100 млн. строк за разумное время,
проверка grep-ом нескольких сотен паспортов занимает от 10 сек до минуты
2. как автоматизировать в excel процесс используя grep
3. файл со списком всех недействительных паспортов - по ссылке (архив 500МБ)
http://guvm.mvd.ru/upload/expired-passports/list_of_expired_passports.csv.bz2
Собрать текстовую строку по условию
 
evgeniygeo,
Спасибо за помощь и Ваше внимание!
Собрать текстовую строку по условию
 
Здравствуйте!
Прошу помощи в вопросе

Нужно собрать текстовую строку
с наименованиями участников и их баллом для каждого соревнования
по условию: в столбце Допущен =1

Заранее спасибо за ваше внимание!
медиана на нескольким условиям
 
Цитата
buchlotnik написал:
(B3:F3-СРЗНАЧ(B3:F3))/СРЗНАЧ(B3:F3)

только это выражение это уже процент, потом еще %, имеем тысячные разряды после запятой, и сравниваем с 25 целым числом. условия всегда истинно.

верный вариант
Код
=МЕДИАНА(ЕСЛИ(ABS(B3:F3-СРЗНАЧ(B3:F3))/СРЗНАЧ(B3:F3)<0.25;B3:F3;""))
медиана на нескольким условиям
 
Цели и правда порой бывают не ясны. таковы требования.

Но вот формула работает, Спасибо за помощь! Отличный вариант!
Изменено: smaxus - 08.09.2020 08:18:10
медиана на нескольким условиям
 
Добрый день!
Уважаемые формумчане, прошу помочь в формуле подсчета медианы по нескольким условиям.

Медиана должна обсчитывать только те значения, которые удовлетворяют условиям
>= срзнач_всех_значений *.75 &&
<= срзнач_всех_значений 1.25
т.е. попадающих в коридор +-25% от срзнач.

Заранее Спасибо!
Перевести условное форматирование в обычное - VBA., Универсальный и специализированные варианты.
 
Цитата
bedvit написал:
Тестируйте.
прилагаю документ, на котором у меня
версия 9 с дополнениями из п.28 отрабатывала корректно
версия 10 отрабатывает не корректно (красит все серым)
Перевести условное форматирование в обычное - VBA., Универсальный и специализированные варианты.
 
Цитата
bedvit написал:
Изменено: bedvit  - 24 Май 2019 12:33:41
Спасибо большое, пригодилось!

Заметил, что при переформатировании, если ячейки содержат непечатные символы (перенос строки, например), происходит нежелательное наложение ячеек верхних на нижние (объединение нескольких ячеек по вертикали). Поскольку моя задача была не только в переводе условного форматирования в обычное, но еще и в избавлении книги от формул, то решил при помощи предварительной очистки от формул и от непечатных символов

Код
    For Each ws In ActiveWorkbook.Worksheets
        ws.UsedRange.Value = Application.Clean(ws.UsedRange)
    Next ws
Изменено: smaxus - 14.05.2020 04:07:42
Прерывание отображения работы макроса
 
результат принесла вот такая замена кода копирования диапазона в цикле

вместо        
Код
rNext.Copy Destination:=rGame


Код
rGame.Resize(30, 30).Value = rNext.Resize(30, 30).Value

причем довольно быстро работало и на поле 90х90
вне цикла это копирование тоже можно заменить, но не так существенно сказывается на быстродействии

и чтобы иметь возможность прервать макрос ...
Код
DoEvents
    Next i
Изменено: smaxus - 08.05.2020 09:30:17
Наименьшее значение то что левее
 
Цитата
БМВ написал:
=B18+Column(B18)%%=AGGREGATE(15;6;($C18:$AC18+Column(B18)%%)/(($C$17:$AC$17="Сумма, руб.")*($E18:$AE18<>0));1)
Спасибо большое за помощь! а то я уже отчаялся...

удалось через
=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
Изменено: smaxus - 19.03.2020 15:52:15
Наименьшее значение то что левее
 
Цитата
БМВ написал:
=B18+Column(B18)%%=AGGREGATE(15;6;($C18:$AC18+Column(B18)%%)/(($C$17:$AC$17="Сумма, руб.")*($E18:$AE18<>0));1)
вероятно, все-таки в этом может быть выход. Значение + поправка из номера столбца. Покурю этот вариант, потому как со счётеслимн не пойму как охватить 4 варианта с повторением значений в формулах условного форматирования.
Наименьшее значение то что левее
 
Цитата
БМВ написал:
Если быть уверернным в размерности дробной части и величины чисел
о какой уверенности речь? )
числа в поле "Сумма, руб." положительные, до миллионов, с двумя знаками после запятой.

тогда сколькими условиями описывать следующие возможные ситуации с повторяющимися значениями
наим1наим2наим3
все разные#1#2#3
повторение 113#1#1#3
повторение 111#1#1#1
повторение 122#1#2#2
постарался в примере наглядно изобразить, то что здесь на словах.

изначально было три условия: зеленый - наименьшее1, желтый - наименьшее2, красный - наименьшее3
Изменено: smaxus - 19.03.2020 10:36:13
Наименьшее значение то что левее
 
1. исправил, упрощение
2. не пойму, к какому основному условию и где в строке... уточните если можно.
Наименьшее значение то что левее
 
по всей вероятности, задача оказалась из разряда "буря в стакане". ((
Наименьшее значение то что левее
 
Доброго дня!
Прошу помочь в следующем вопросе,

Для нескольких групп по 4 столбца: Столб1, Сумма, руб., Столб3, Допущен
средствами условного форматирования

1. Выделить цветом три первых минимальных значения ячейки "Сумма, руб." зеленым, желтым и красным, если для группы в столбце "Допущен" стоит "1"
2. для нескольких совпадающих значений в столбце "Сумма, руб." соответствующих условиям п.1 , меньшим будет то, что левее,
соответственно следующим минимальным будет то же значение, ближайшее справа

п.1 решен при помощи формулы
Код
=B14=АГРЕГАТ(15;6;$C14:$AC14/(($C$13:$AC$13="Сумма, руб.")*(СМЕЩ($C14:$AC14;0;2)<>0));1)

с п.2 нужна помощь.

Спасибо!
Формула условного форматирования, расширяемая на другие группы ячеек
 
Спасибо!
Формула условного форматирования, расширяемая на другие группы ячеек
 
Спасибо! ) Выручили!
Формула условного форматирования, расширяемая на другие группы ячеек
 
Доброго дня!
Прошу помочь в таком вопросе.
Необходимо создать формулу условного форматирования:
Залить цветом группу столбцов, для которых в столбце "Заливка" стоит 1.
так чтобы формулу условного форматирования можно было расширить на другие группы, в том фисле и вновь дополняемые с аналогичным набором и порядком столбцов: группа4, группа 5 и.т.д.

Спасибо!
Изменено: smaxus - 12.03.2020 10:25:30
Из ряда значений, не отмеченных "серой" заливкой, пометить первые три минимальных значения
 
Цитата
IKor написал:
мне не известен способ получения информации о цвете ячейки без использования VBA
пусть будет с использованием vba, но без доп строк со вспомогательными вычислениями.
Маркер в доп ячейке, чтобы красить серым по условию пусть остается.
Из ряда значений, не отмеченных "серой" заливкой, пометить первые три минимальных значения
 
Из ряда значений, не отмеченных "серой" заливкой, пометить первые три минимальных значения "зеленой", "желтой" и "оранжевой" заливкой.
Возможно ли реализовать средствами условного форматирования?
общая потребность в детали
 
vikttur, буду знать, спасибо!
общая потребность в детали
 
vikttur,
=СУММПРОИЗВ(--($B$2:$B$23=B2);$C$2:$C$23*$F$2:$F$23)
--($B$2:$B$23=B2)
в чем смысл двойного минуса и в целом этого выражения?
общая потребность в детали
 
vikttur,Владимир,  

спасибо, то что нужно!
общая потребность в детали
 
невозможного не бывает! Спасибо что откликнулись, но в формуле есть ошибка или меня не допоняли.
деталь1 используется только для изделия1, при норме 4 и плане на изделие1=22 имеем 4*22=88
откуда 264?
Страницы: 1 2 След.
Наверх