Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 130 След.
Прекращение пересчёта функции СЛУЧМЕЖ
 
APavlik, пример макроса по событию. Если что-то изменилось в голубых ячейках, то в активную ячейку (из них) проставится результат по подобию вашей функции
В модуле листа
Изменено: Jack Famous - 21 Окт 2019 16:12:32
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Вопрос о способе преобразования вертикального формата данных в горизонтальный.
 
Цитата
vdolgov: можно даже не считаться тогда с файлами Word
может получиться, что быстрее и надёжнее более "правильно" выгрузить данные из Word'овских файлов, чем разбирать это колонку. Ну а так - смотрите вариант из Приёмов
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как определить номера строк всех выделенных ячеек.
 
БМВ, если вы про перекрытие выделений, то словари это решают)

UPD: сделал файл для теста (всё корректно работает)
Модуль с тестовой процедурой
Модуль с основным кодом
Изменено: Jack Famous - 21 Окт 2019 15:13:04
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как определить номера строк всех выделенных ячеек.
 
Цитата
БМВ: Не очень сложно для проcтой задачи?
не берусь определять категорию сложности - просто ещё один вариант  :)
    1. у меня функции сидят в надстройке, библиотеки к ней также уже подключены
    2. получение всех строк/столбцов диапазона у меня занимает 1 строку
    3. присутствует множество проверок для перестраховки, при этом снижение скорости работы незаметно
    4. единственное полностью рабочее решение по вопросу дал Юрий М, т.к. sokol92 дал наводку, а уАпостроффа вообще вариант только для областей не более 1 ячейки (присутствие диапазона через ":" никак не обрабатывается плюс нет контроля уникальных). С другой стороны, вопрос был "как получить" и они на это ответили  :D

    Итого: коды всякие нужны, коды всякие важны)) я показал принципиально другой подход с быстрым отбором номеров строк/столбцов из адреса с помощью регулярных выражений
Есть контроль уникальных и сортировка полученных номеров по возрастанию
На диапазоне от 1000 ячеек прогнозирую существенный выигрыш в скорости
Да - для этого конкретного случая функции преобразования диапазонов чисел в список можно сильно упростить (как я и написал), но это уже другой вопрос :D
Изменено: Jack Famous - 21 Окт 2019 14:56:03
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Прекращение пересчёта функции СЛУЧМЕЖ
 
Цитата
APavlik: подстановка значений, но АВТОМАТИЧЕСКИ … другой метод генерации случайных значений
другой метод — это макрос. Макрос может использовать эту функцию внутри кода или рассчитывать другим образом, но главное, что результат он может вставлять значением.

Дальше нужно разобраться с вариантом запуска макроса: это может событие листа/книги, кнопка или универсальный макрос. Для первых двух нужно заранее определить, что проверять и что выводить в случае чего, а для универсального предполагается, что он запрашивает 2 аргумента и вставляет результат =СЛУЧМЕЖДУ(арг; арг2) в активную ячейку.
Изменено: Jack Famous - 21 Окт 2019 14:35:23
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как выделить ячейки по условию их содержания в составляемом диапазоне
 
EvgeniyLFC, я использую надстройку
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Сдвиг данных под сводной таблицей
 
Difekon, здравствуйте! Файл-пример нужен
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Вопрос о способе преобразования вертикального формата данных в горизонтальный.
 
vdolgov, здравствуйте!
У вас во-первых очень большое описание, во-вторых скомканное, а в третьих большая проблема с примером… Вам нужно собрать информацию из нескольких документов Word в 1 файл Excel — приложите 1-2 файла Word "откуда брать" и 1 файл Excel "что должно получиться в итоге".

Вот это будет нормальный пример и шанс получить помощь резко вырастет  ;)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Прекращение пересчёта функции СЛУЧМЕЖ
 
APavlik, здравствуйте! Обычно сначала идёт приветствие, а потом уже ссылки и прочее  :D

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

В чём ещё вопрос?
Изменено: Jack Famous - 21 Окт 2019 12:52:51
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как определить номера строк всех выделенных ячеек.
 
Borrusale, функция для получения списка строк/столбцов из любого диапазона. Должно быть очень быстро
3 функции и тестовая процедура для выделенного диапазона
использованы универсальные функции (отсюда) для преобразования диапазона чисел в последовательность. Для получения строк/столбцов их можно сильно упростить
Изменено: Jack Famous - 21 Окт 2019 12:44:05
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Пожелания по увеличению функциональности Plex
 
Wild.Godlike, да это просто на фиг не нужно с предстоящим геморроем  :D
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Проставить простой по названию группы
 
Цитата
scp: Это исходник, а должно быть вот так
то есть вы в примере даже не удосужились показать "как надо" и использовали некорректные итоги — здорово

Если данные находятся в "плоской" таблице, то можно как-то так (см. скрин). Или же тоже вывести в сводную, только поле "КЛЮЧ", а не "КАТЕГОРИЯ"
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
HB
 
Андрей VG, здоровья вам и вашим близким! Пусть всё будет тип-топ  :D С днём рождения!
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Проставить простой по названию группы
 
scp, логика мне непонятна…
Похоже на СУММЕСЛИ с извращениями. Можно сводной, если данные привести к нормальным (см. пример)
Изменено: Jack Famous - 21 Окт 2019 10:47:35
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Выделить повторяющиеся значения в строке
 
vikttur, "Если в строке ячейки повторяются, то выделить"
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Выделить повторяющиеся значения в строке
 
Цитата
laz: как это сдeлать ?
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Маркировка Фильтра, Маркировка Фильтра
 
Цитата
:-)Lala: способ автоматического окрашивания столбца при включении на нем фильтра
единственно, что вспомнил, это вот эта тема
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Выделить повторяющиеся значения в строке
 
laz, вам решать: без него решение у вас уже есть. Если его хватает, то, очевидно, не нужен))
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Выделить повторяющиеся значения в строке
 
laz, без файла примера: =СЧЁТЕСЛИ по строке в УФ
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Маркировка Фильтра, Маркировка Фильтра
 
:-)Lala, здравствуйте
    1. используйте "умные" таблицы. В них и верхнюю строку закреплять не надо и фильтр виден (см .скрин)
    2. сбрасывайте кнопки фильтра, если он не стоит. Я так всегда могу понять, стоит ли фильтр ВООБЩЕ
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как выполнять макрос определённое количество раз, Как выполнять макрос столько раз, сколько написано в ячейки к примеру r12c8
 
boomgam, здравствуйте!
Код
Sub ЦиклДляМакроса()
Dim i&

   For i=1 To Cells(12,8).Value2
      Макрос
   Next i

End Sub

Sub Макрос()
' тут код макроса
End Sub
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Генератор случайных чисел (один раз вставить значение и не менять его в последующем)
 
Цитата
APavlik: vba надо написать функцию, которая случайно генерирует значение только 1 раз
скрин отсюда. Что вам непонятно? Зачем продолжаете одно и то же спрашивать???
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Сортировка в каждом блоке группировки
 
enot7, тогда вам всего лишь остаётся определить кодом по подсказкам все области (в моём коде - "ar") а сортировку я вам показал  ;)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Генератор случайных чисел (один раз вставить значение и не менять его в последующем)
 
APavlik, опыт предыдущих собственных тем ничего вам не дал, верно?…
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Как с помощью VBA добавить в ячейку текст с сохранением существуещего форматирования текста внутри ячейки?
 
AnSo, УФ ещё имеет свойство после добавления нового правила сбрасывать/восстанавливать порядок остальных правил, выставленный перед этим вручную… ХЗ как с этим бороться
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Сортировка в каждом блоке группировки
 
enot7, для макроса нужен алгоритм и тут у нас 2 варианта:
    1. выделить всю область от первой шапки группы "123" (строка 13) до последней строки группы "12345" (строка 45) и отсоритровать каждую группу. Для этого нужно макросу дать понять, какие из строк являются шапками. Я бы ставил в "шапки" какие-нибудь уникальные символы типа "•" (символ 149) и, если он есть в строке, то это шапка. Можно по цвету заливки или по наличию/отстутствию чего-либо ещё. Либо вообще определять не строку шапки группы, а сами строки группы для сортировки.
    2. выделять области для сортировки вручную (в примере строки (НЕ ЦЕЛИКОМ) 14-28; 30-33; 35-38; 40-45) и для каждой запускать макрос

Если областей около 10ти, то я бы второй вариант использовал…Что предпочитаете?)))

UPD: поздно выбирать - я уже сделал это за вас  :D
Второй вариант. Можно выделить все области для сортировки сразу
Изменено: Jack Famous - 18 Окт 2019 11:14:51
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Перенос наименования столбца в ячейки
 
Цитата
dsg: буду вспоминать Вас
"не злым тихим словом"  :D пользуйтесь на здоровье  ;)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Анекдот дня, Постим сюда понравившиеся:)
 
Wiss,  :D
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Сортировка в каждом блоке группировки
 
enot7, здравствуйте! Мне непонятна логика сортировки)))
Обычно сортируют или как будто букв нет, или как будто чисел нет, а тут полный простор для воображения  :D
Скрины «до сортировки» и «после сортировки»
Изменено: Jack Famous - 17 Окт 2019 16:44:46
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Копирование в VBA только значения ячеек
 
skais675,
Код
If UCase$(Cells(i, "O")) Like "*ZAG*" Then
, потому что InStr(1, Cells(i, "O"), "zag", vbTextCompare)
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 130 След.
Наверх