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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 194 След.
Формула для копирования ячейки
 
Ranker Dark, функция листа может только вернуть значение
Реквизиты для благодарности и контакты для связи — в профиле
Получить имя листа из ячейки и использовать при выборе данных
 
Цитата
Jack Famous: надо =ДВССЫЛ(AB2 &"!$A$24:$A$912)
Цитата
taxol: ДВССЫЛ(AB2&"!"&$A$24:$A$912)
ВНИМАТЕЛЬНО СРАВНИТЕ  ;)
Реквизиты для благодарности и контакты для связи — в профиле
VBA массив для отфильтрованных данных
 
Цитата
Alexander Kruglov: исправить код, чтоб он корректно работал с отфильтрованными данными
13я и 20я строки: вместо Range().Value надо написать Range().SpecialCells(xlCellTypeVisible).Value
Но вам это не особо поможет, т.к. массив надо будет собирать по областям и вообще проще заново написать
Приложите файл-пример  - я посмотрю
Изменено: Jack Famous - 3 мар 2021 09:07:56
Реквизиты для благодарности и контакты для связи — в профиле
Ускорить макрос для переноса данных при совпадении кодов.
 
Цитата
Marat Ta: у вас очень сложно и непонятно для меня
я подробно всё закомментировал и дал ссылку на матчасть по словарям - если хотите быстро, то это простейший из методов
Цитата
Marat Ta: Мне нужно просто перенести из строки в лист1 в лист2 при совпадении номеров
а вот тут вы, мягко говоря, лукавите, т.к. вам нужно именно
Цитата
Marat Ta: Ускорить макрос для переноса данных при совпадении кодов
Реквизиты для благодарности и контакты для связи — в профиле
Ускорить макрос для переноса данных при совпадении кодов.
 
Marat Ta, вы либо тролль, либо я ещё даже не придумал кто))
я вам дал полностью рабочий макрос, всё рассказал, показал, объяснил, а вы вернулись к своей начальной сборке???

Больше не вмешиваюсь  :D
Реквизиты для благодарности и контакты для связи — в профиле
Что означает знак $ в формуле?
 
Sabur Sharafzoda, да  - и это ответы #2 и #3  :D
Реквизиты для благодарности и контакты для связи — в профиле
VBA. Слова заменить на изображения
 
Цитата
Ranker Dark: Есть диапазон ячеек … пустые и не пустые. Не пустые нужно заменить. Мой код проверяет только не пустые, а нужно чтобы проверялись все ячейки
а на хрена проверять ВСЕ, если заменить нужно только НЕПУСТЫЕ?
Реквизиты для благодарности и контакты для связи — в профиле
VBA. Слова заменить на изображения
 
Цитата
Ranker Dark: Тем не менее, ни один из трех макросов не проводит проверку по всему диапазону ячеек, а только среди указанных в макросе ячейках
вы НИ кодом, НИ руками в примере не показали, чего хотите
Я вам не гадалка, так что успехов в решении вопроса
Реквизиты для благодарности и контакты для связи — в профиле
Найти неопределенное множество строк между определенными значениями
 
Цитата
Jake: Все в принципе уже описано, но раз так - добавил)
вы чё - прикалываетесь? Вам ТАК надо?
удачи в поисках решения…
Изменено: Jack Famous - 2 мар 2021 13:35:26
Реквизиты для благодарности и контакты для связи — в профиле
Найти неопределенное множество строк между определенными значениями
 
Цитата
Jake: Есть два листа
есть 2 стула …  :D
Файл-пример сделайте или будете долго ждать
Реквизиты для благодарности и контакты для связи — в профиле
Ускорить макрос для переноса данных при совпадении кодов.
 
Код из ссылки с диапазонами по файлу-примеру (добавлены проверки на пустоту)
Лист «отсюда»
Лист «сюда»
Если и так не поймёте, то я вообще не знаю, что делать (второй пример вообще ни о чём, а первый захламлён лишним - поправил)

Цитата
Александр Моторин: чтобы в словаре был сразу "реальный" номер строки … Грузить в массив начиная с А1
Цитата
Marat Ta: не всегда получается
это край. Вообще вилы  :D  :D  :D
Хочу вот так, но прям вот именно вот так не хочу
Изменено: Jack Famous - 2 мар 2021 13:13:04
Реквизиты для благодарности и контакты для связи — в профиле
Ускорить макрос для переноса данных при совпадении кодов.
 
Цитата
Marat Ta: Номер в массиве - это и есть номер строки
снова мимо
Если "где искать" - это диапазон "A3:A10" и ключ найден в "A5", то мой макрос (как и ПОИСКПОЗ) вернёт 3 (потому что это ТРЕТИЙ элемент, начиная с "A3"), а не 5, а вот если передать диапазон "A1:A10", то вернёт 5

Сделано так, потому что функция ИНДЕКС также работает по номеру из переданного диапазона/массива, а не строки
Изменено: Jack Famous - 2 мар 2021 12:14:59
Реквизиты для благодарности и контакты для связи — в профиле
Ускорить макрос для переноса данных при совпадении кодов.
 
Цитата
Marat Ta: Что будет в словаре, кроме номера(ключа)?
Хорошо изучили, смотрю …
чё вас так носит-то?… Вы создали тему "как ускорить макрос", я вам дал супербыстрый макрос для поиска позиции ключей. Что ещё надо-то?…

Хотите разбираться в словарях - вот мануал
Хотите разобраться в моём макросе - там многое закомментировано, а объяснять вам что-то без знания словарей не имеет смысла
В любом случае — это не по теме
Изменено: Jack Famous - 2 мар 2021 11:48:55
Реквизиты для благодарности и контакты для связи — в профиле
Ускорить макрос для переноса данных при совпадении кодов.
 
Цитата
Marat Ta: я уже видел эту тему раньше в поиске. И другие такие же темы … Все понятно, когда нужно "просто" сравнить 2 списка … Мне нужно в словаре номер строки на листе1 у этого номера
значит вы не поняли, что получить порядковый номер "ключа" в массиве гораздо проще, чем что-то сразу с этими данными делать. И как раз это и делает мой макрос (не знаю, как вы там читали и что). Дополнил принцип работы по ссылке - изучайте, там ничего сложного
Изменено: Jack Famous - 2 мар 2021 11:35:54
Реквизиты для благодарности и контакты для связи — в профиле
Получить имя листа из ячейки и использовать при выборе данных
 
Цитата
taxol: ДВССЫЛ(AB&"!"&2)!$A$24:$A$912
и как - работает?  :D
Написал ведь, как надо:
Цитата
Jack Famous: =ДВССЫЛ(Ячейка&"!"&АдресНаЛисте)
ячейка: "AB2", адрес: "$A$24:$A$912" — значит надо =ДВССЫЛ(AB2 &"!$A$24:$A$912)
Скрин
Изменено: Jack Famous - 2 мар 2021 10:51:20
Реквизиты для благодарности и контакты для связи — в профиле
VBA. Округление при копировании
 
Дмитрий, в соседней своей теме обновил супербыстрый вариант, если надо  ;)
Реквизиты для благодарности и контакты для связи — в профиле
Варианты округления в VBA, Поиск самого быстрого
 
Забыл поделиться: Стабильный и очень быстрый вариант от ZVI
Изменено: Jack Famous - 2 мар 2021 10:32:11
Реквизиты для благодарности и контакты для связи — в профиле
VBA. Округление при копировании
 
Цитата
Ігор Гончаренко: Round(число,2)
это не математическое, а "банковское" округление, которое редко надо - не путайте людей))

Дмитрий,
Код
Worksheets("кабельний журнал").Range("A" & lcnt).Value = --Format(.Range("E" & lr).Value,"0.00")
Изменено: Jack Famous - 2 мар 2021 10:24:36
Реквизиты для благодарности и контакты для связи — в профиле
VBA. Округление при копировании
 
Дмитрий, здравствуйте ещё раз  :)
Код
… = WorkSheetFunction.Round(.Range("E" & lr).Value,2) ' классика
… = --Format(.Range("E" & lr).Value,"0.00") ' пошустрее
Изменено: Jack Famous - 2 мар 2021 10:21:08
Реквизиты для благодарности и контакты для связи — в профиле
Формула, при которой будут выставлены определенные значения, исходя из ряда данных
 
Если данных много, то намного удобнее сделать справочник
Изменено: Jack Famous - 2 мар 2021 10:08:42
Реквизиты для благодарности и контакты для связи — в профиле
Формула, при которой будут выставлены определенные значения, исходя из ряда данных
 
dsfa fafa, здравствуйте
во-первых, смените ник
Цитата
dsfa fafa: сделать привязку что значение "M512" в столбце A равно 10 … M520 цифре 17 , M563 - 20, и так далее
Вариант
Изменено: Jack Famous - 2 мар 2021 09:46:23
Реквизиты для благодарности и контакты для связи — в профиле
Ускорить макрос для переноса данных при совпадении кодов.
 
Цитата
Marat Ta: Есть возможность помочь переделать макрос для текущей задачи?
проше заново написать, чем ТАКОЕ переделывать
если не помогут, то потом подключусь, а вообще подобная задача решалась много раз

UPD: Быстрый макрос вместо ВПР
Изменено: Jack Famous - 2 мар 2021 10:16:33
Реквизиты для благодарности и контакты для связи — в профиле
Копирование с автоопределением диапазона
 
Цитата
Дмитрий: можно как то сделать, что б вставляемое значение округлялось до второго знака после запятой ?
можно, но это вопрос не по теме - создайте новую или немного погуглите про округление в VBA
Реквизиты для благодарности и контакты для связи — в профиле
Получить имя листа из ячейки и использовать при выборе данных
 
taxol, здравствуйте
=ПСТР(ЯЧЕЙКА("filename";A2);ПОИСК("]";ЯЧЕЙКА("filename";A2))+1;31) (КАК ПОЛУЧИТЬ ИМЯ ЛИСТА ФОРМУЛОЙ)
При вставке ссылки на ячейку вместо имени листа, использовать =ДВССЫЛ(Ячейка&"!"&АдресНаЛисте)
Изменено: Jack Famous - 2 мар 2021 09:25:02
Реквизиты для благодарности и контакты для связи — в профиле
VBA. Слова заменить на изображения
 
Цитата
Ranker Dark: по средствам
если не знаете, как правильно пишется нестандартное слово, лучше замените обычным, чтобы не выглядеть глупо…
Код, как понял
Изменено: Jack Famous - 2 мар 2021 09:18:30
Реквизиты для благодарности и контакты для связи — в профиле
Присвоить одинаковое значение одновременно нескольким переменным
 
vikttur, ладно - согласен)
Реквизиты для благодарности и контакты для связи — в профиле
Как проверить, является ли элемент массива положительным числом
 
vikttur, "Как проверить элемент массива на положительное число" (легче найти) или "Как проверить, является ли элемент массива положительным числом" (более по-русски)
Изменено: Jack Famous - 1 мар 2021 16:24:49
Реквизиты для благодарности и контакты для связи — в профиле
Автофильтр в таблице с несколькими уровнями
 
Цитата
Jack Famous: можно вынести (формулой, макросом или PQ)
Цитата
Kanitele: Хотелось бы обойтись без макросов и надстроек
так выводите ФОРМУЛОЙ =--ЛЕВСИМВ(ячейка;3) ну или руками - в чём проблема?…
Изменено: Jack Famous - 1 мар 2021 15:36:37
Реквизиты для благодарности и контакты для связи — в профиле
Автофильтр в таблице с несколькими уровнями
 
Цитата
Kanitele: Как это можно было бы реализовать
можно вынести (формулой, макросом или PQ) обобщающие признаки ("001", "002" и т.д.) в отдельный столбец и фильтровать по нему. В точности, как с датами я не знаю, как сделать, кроме предложенного PooHkrd и не понимаю, зачем это может быть нужно…
Изменено: Jack Famous - 1 мар 2021 14:59:30
Реквизиты для благодарности и контакты для связи — в профиле
Как проверить, является ли элемент массива положительным числом
 
Цитата
Фрезератор: есть средства, что бы понять что это число большее ноля?
If Len(x) And IsNumeric(x) And x>0 Then
Реквизиты для благодарности и контакты для связи — в профиле
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 194 След.
Наверх