Подсветка текущей строки

  Рет қаралды 331,386

Nikolay Pavlov

Nikolay Pavlov

Күн бұрын

Пример видеоурока из моего онлайн-курса по условному форматированию www.planetaexc...
Как при помощи одного правила условного форматирования и примитвного макроса сделать себе подсветку текущей строки для удобной работы с большой таблицей.

Пікірлер: 959
@mukhtarsultanov8514
@mukhtarsultanov8514 4 жыл бұрын
Не нашел, откуда скопировать текст макроса. На всякий случай для тех, кто тоже не нашел: Private Sub WorkSheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub ActiveCell.Calculate End Sub Очень полезный видеоурок! Давно ждал, что кто-нибудь такое выдаст. Большущее спасибо!!!! Лайк!
@maxmaximus4225
@maxmaximus4225 4 жыл бұрын
спасибо огромное!
@nataliafrunze6720
@nataliafrunze6720 4 жыл бұрын
Mukhtar Sultanov Спасибо!
@designer_interior
@designer_interior 4 жыл бұрын
спасибо!!!
@ВасилийАфанасьев-ф3я
@ВасилийАфанасьев-ф3я 4 жыл бұрын
Спасибо!
@mralexeika1
@mralexeika1 4 жыл бұрын
Mukhtar Sultanov а я вручную с видео писал
@frightwise
@frightwise 4 жыл бұрын
Это самый ценный канал который я встречала в ютубе, нашла вчера и оторваться не могу, спасибо вам за него.
@alexanderkamilov2722
@alexanderkamilov2722 4 жыл бұрын
Согласен. Очень классно.
@kzkzkzkzkzkz9
@kzkzkzkzkzkz9 3 жыл бұрын
Суперский канал
@0045про
@0045про 6 ай бұрын
полностью согласен
@kri_olla
@kri_olla 4 жыл бұрын
Спасибо Вам огромное! После нескольких лайфхаков от Вас коллеги на меня смотрят как на ведьму)))
@ВадимСкаридов-р3о
@ВадимСкаридов-р3о 4 жыл бұрын
Будьте осторожны. Когда привыкнут - устанете колдовать
@ВадимТ-о7н
@ВадимТ-о7н 9 ай бұрын
😁
@воскресныйпапа-и8м
@воскресныйпапа-и8м 6 ай бұрын
А можно не "пересчитывать" формулы всего листа, т.к данных может быть очень многр и это долго и не рационально. А вместо этого на действие ПО листу простой проверять форматирование. Так можно?!
@MrKerchis69
@MrKerchis69 5 ай бұрын
Коллеги-таджики?
@SVolikov
@SVolikov 4 жыл бұрын
Можно вечно смотреть на огонь, воду и на работу профессионала. Спасибо!
@parkerparker9378
@parkerparker9378 4 жыл бұрын
СПАСИБО ВАМ ЗА ТО ЧТО ДЕЛИТЕСЬ ЗНАНИЯМИ С ДРУГИМИ БЕЗВОЗМЕЗДНО ЭТО ДОРОГОГО СТОИТ!
@anastasiakempf
@anastasiakempf 4 жыл бұрын
Добавила такую функцию в прайс листы. Коллеги плачут от счастья! Еще раз спасибо!!!
@statanaliz
@statanaliz 4 жыл бұрын
Николай, спасибо за отличный трюк!
@Jac_Lemans
@Jac_Lemans 7 ай бұрын
Дорогой мой человек, где вы были раньше, очень хорошие и познавательные уроки не выходя из дома, спасибо вам за ваше доброе дело❤
@mikhailsamoylov1043
@mikhailsamoylov1043 3 жыл бұрын
Смотрю уроки постоянно. Просто для восприятия, с наглядными примерами. Автор явный педагог.
@planetaexcel
@planetaexcel 3 жыл бұрын
Спасибо, но до профи мне далеко :)
@ДамирХусаинов-х8ф
@ДамирХусаинов-х8ф 11 күн бұрын
Огромная благодарность Вам.
@romualdomgn
@romualdomgn 2 жыл бұрын
Спасибо за отличную идею и толковое пояснение.
@ДжамиляНагиева-г6ю
@ДжамиляНагиева-г6ю 3 ай бұрын
Николай, спасибо Вам за подобные уроки, много чего интересного взяла на вооружение. Мне 60, а молодые сотрудники поражаются моим знаниями EXCELL. А все благодаря Вашим урокам !😉😉
@alekseytarasov4844
@alekseytarasov4844 4 жыл бұрын
Гениально!! Прямо-таки после просмотра хочется добавить в конце "Когда знаешь-все просто" (с) Николай Павлов
@planetaexcel
@planetaexcel 4 жыл бұрын
Это фрагмент из онлайн-курса, поэтому без коронной фразы в конце, да :)
@user-oz9pk2ty2t
@user-oz9pk2ty2t 4 жыл бұрын
А мне нравится " немного танцев с бубнами" 🤣🤣🤣
@СергейСергеев-ы5ь
@СергейСергеев-ы5ь 4 ай бұрын
Это просто атомная бомба, а не функция! У меня таблица не влезает в 2 рядом стоящих монитора, приходилось перед работой копировать новый столбец куда-то к началу, теперь это офигенно упростило работу.
@yauhenirahavenka8937
@yauhenirahavenka8937 3 жыл бұрын
Спасибо Николай. Очень помогли. Еще хочу отметить Ваш голос и манеру подачи информации - входит в мозг как родная. Вам суждено быть учителем!
@stollpaul
@stollpaul 2 жыл бұрын
Огромное спасибо! Объяснение чётко, по делу, без лишних слов, грамотно и красиво! Работает!
@Natalya_Mazko
@Natalya_Mazko 2 жыл бұрын
Николай, спасибо за канал. После просмотра каждого выпуска , залезаю в рабочие таблица и начинаю упрощать их работу с помощью новых лайфхаков. Настолько увлекательное занятие оказалось, что в нерабочее время сижу и зависаю над таблицами )
@СвСветлая
@СвСветлая 4 жыл бұрын
Ура! Мечта сбылась! Каждый день на работе приходится "бегать" из одной ячейки в другую... И постоянно смотреть туда ли попала... Спасибо огромное за бесценный урок!!!
@PreflopLuck
@PreflopLuck 4 жыл бұрын
Все гениальное - просто. Невероятно полезный трюк. Для некоторых таблиц прям панацея. Лайкос как всегда
@l00500srl
@l00500srl Жыл бұрын
Николай, большое спасибо, приятно смотреть и слушать, кратко, емко, лаконично, понятно
@alexanderbelyj5738
@alexanderbelyj5738 3 жыл бұрын
Николай, спасибо за идею! Формула в условном форматировании =СТРОКА()=ЯЧЕЙКА("строка") тоже работает. Если добавить ещё условие =СТОЛБЕЦ()=ЯЧЕЙКА("столбец") будет выделение и строк и столбцов с пересечением в активной ячейке.
@ilonasarsembayeva5144
@ilonasarsembayeva5144 2 жыл бұрын
Здравствуйте в можно подробнее, как это сделать? Спасибо
@alexanderbelyj5738
@alexanderbelyj5738 2 жыл бұрын
@@ilonasarsembayeva5144 Здравствуйте! Сначала выделить нужный диапазон, а потом в условном формате ввести формулу.
@andriusbukantas5104
@andriusbukantas5104 Жыл бұрын
добрый вечер а какая формула ? спасибо
@mirihuseyni4011
@mirihuseyni4011 Жыл бұрын
Здраствюте Александер,прошу помоч мне.у меня на англ.если полную формулу напишите мне..например хочу найти в ехзеле и чтоб поиск когда найдет выделил строку полностью.как мне это сделать🙏
@alexanderbelyj5738
@alexanderbelyj5738 Жыл бұрын
@@andriusbukantas5104 Здравствуйте! Не понял вопрос. Использование формул для выделения столбца и строки отлично объяснено в видео. В условном форматировании надо обе вводить для одного и того же диапазона
@Dima_Melnikov
@Dima_Melnikov 3 жыл бұрын
Спасибо, Николай! И спасибо за форум planetaexcel
@ГарриПоттер-е5и
@ГарриПоттер-е5и 4 жыл бұрын
Спасибо огромное👍 Деревянная линейка теперь будет пылится без дела)
@Neo-life
@Neo-life 4 ай бұрын
Николай Вы, конечно, учитель от Бога. Мало того, что видео обзоры чётко подаёшь. Так ещё и книгу приятно читать. Я купил power query. Всё, достаточно, доходчиво.
@mahony-spb
@mahony-spb 4 ай бұрын
Привет. Посмотри пожалуйста мой последний комент. Ты встречался с такой проблемой?
@planetaexcel
@planetaexcel 3 ай бұрын
Спасибо! :)
@hagilur
@hagilur 4 жыл бұрын
Удобно, с одной стороны. С другой стороны, никогда об этом не задумывался, т.к. текущие столбец и строка подсвечиваются на панелях нумерации строк или буквы столбца. Далее достаточно тыкнуть в номер строки, чтоб выделить всю строку. Однако, это не всегда удобно. В любом случае, спасибо!
@РоманПлотников-б5г
@РоманПлотников-б5г 2 жыл бұрын
Спасибо, ГУРУ!!! Очередной полезнейший урок!!! Очень помог!!!👍👍👍💪
@ДмитроПерший
@ДмитроПерший 6 ай бұрын
Человек, ты - гений! У меня глаза уже, как у краба, из-за просмотра таблиц на большом мониторе 0_0.
@Krasnovosti-ru
@Krasnovosti-ru 2 жыл бұрын
По специальности программист (20 лет стажа). Но это видео полезно было и мне. И это не лайк, это СУПЕР-Лайк! Автору канала ОГРОМНОЕ спасибо за ОЧЕНЬ полезный контент!
@zombie-fido
@zombie-fido 4 жыл бұрын
Поздравляю со 100 тыс. подписчиков! Новое видео супер 👍
@planetaexcel
@planetaexcel 4 жыл бұрын
Спасибо!
@ВикторМельничук-м3м
@ВикторМельничук-м3м Жыл бұрын
Благодарю вас, Николай! Все как обычно - доступно , и толково! Много интересных приемов в работе!
@IgorSyurtukov
@IgorSyurtukov 4 жыл бұрын
Да, меня тоже удивляет Microsoft, который не может сделать за столько лет в Excel удобную подсветку. Мне бы хотелось крестом (по горизонтали и по вертикали) и чтобы это можно было в опциях вкл/откл.
@georgeberdzenishvili5871
@georgeberdzenishvili5871 4 жыл бұрын
Держите: www.planetaexcel.ru/techniques/9/58/
@user-oz9pk2ty2t
@user-oz9pk2ty2t 4 жыл бұрын
Классно, а я немного по-другому сделалав условное форматирование написала такую же функцию только заменила строку на столбец =СТОЛБЕЦ()=ЯЧЕЙКА("столбец") '' выключатель тоже. Получилось почти так же
@aleshinalesha
@aleshinalesha 3 жыл бұрын
@@user-oz9pk2ty2t выделяется столбец?
@Dmitrii-Zhinzhilov
@Dmitrii-Zhinzhilov 3 жыл бұрын
Отдельная благодарность за PLEX !!!! Отличнейшая надстройка, которая мне тоже была очень нужна!!!!
@YambeeStarVideo
@YambeeStarVideo 4 жыл бұрын
Для оптимизации, я бы проверку на переключатель "вкл/выкл" перенес из условий форматирования в макрос, - чтобы ActiveCell.Calculate запускался только при включенном состоянии, а при выключенном - выходил из процедуры. If [I2] = "выкл" then Exit Sub Иначе пересчет условий форматирования гоняется "вхолостую" даже при "выкл". Но за идею спасибо!
@planetaexcel
@planetaexcel 4 жыл бұрын
Отличная мысль, спасибо!
@humanidis
@humanidis 4 жыл бұрын
В начало макроса добавляете строчку "If CheckBox1.Value = False Then Exit Sub". И вуаля!
@sergey5109
@sergey5109 4 жыл бұрын
@@humanidis вставил в начало макроса, получилось вот так: If CheckBox1.Value = False Then Exit Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub ActiveCell.Calculate End Sub не работает. Compile error: Invalid outside procedure
@humanidis
@humanidis 4 жыл бұрын
Sergey Toropov попробуйте вставить перед "If Target.Cell.Count"
@sergey5109
@sergey5109 4 жыл бұрын
@@humanidis не работает. Ну да ладно, делаем по образцу Nikolay Pavlov
@Shaimagambetov_Timur86
@Shaimagambetov_Timur86 9 ай бұрын
Excel он ведь какой)) каждый раз что-то новое и всегда очень быстро развивается это НАУКА. Не мог додуматься как сделать подсветку строки) как только не пробовал. А потом заглянул к Вам на страницу архитектора этой науки и вуаля)) Спасибо большое что делаете многие вещи простыми.
@smirnyaginalexey4424
@smirnyaginalexey4424 3 жыл бұрын
После добавления выключателя, неплохо бы добавить его и в условие выполнения макроса. Наличие многих формул в таблице может приводить к замедлению работы при перерасчёт формул при каждом перемещении курсора. А так отлично.
@fingenius
@fingenius Жыл бұрын
Николай, на деле есть еще нужная опция: помимо данного форматирования, таблица уже содержит другие правила, при которых подсвечивается фоном и цветом шрифта ячейки по условиям. Ваш алгоритм перекрывает заданные правила до него, а нужно чтобы имеющиеся правила НЕ отменялись.
@vladkharin5311
@vladkharin5311 11 ай бұрын
Условное Форматирование-> Управление правилами -> В выпавшем окне видите строку шапки, где: "Создать правило", Удалить правило", "Изменить правило" - Далее треугольные стрелочки Вверх и Вниз. Этими стрелками вы можете передвинуть правило Николая вниз, и тогда оно не будет заливать ячейки с другими правилами форматирования. Удачи, надеюсь я понятно описал)))))
@tashas836
@tashas836 9 ай бұрын
Спасибо за то, что делитесь такой нужной информацией🙏
@ВладленУльянов-щ1о
@ВладленУльянов-щ1о 4 жыл бұрын
Private Sub Workscheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub ActiveCell.Calculate End Sub
@komdiv4906
@komdiv4906 4 жыл бұрын
А если вместо Target. Cells. Count написать target. Count то оно тоже работает!!! И код короче немного.
@Александр_Владимирович
@Александр_Владимирович 4 жыл бұрын
@@komdiv4906 А зачем оно вообще нужно? Пусть себе подсвечивает несколько строк
@dmitryselfmade3025
@dmitryselfmade3025 4 жыл бұрын
Опечатка "Workscheet". Д.б. Worksheet
@MikhailTimoshevskiy
@MikhailTimoshevskiy 2 жыл бұрын
Супер лайфхак... Автору большой респект. Пошёл пробовать. Позже посмотрю что ещё смогу применить к себя.
@planetaexcel
@planetaexcel 4 жыл бұрын
Коллеги, это не мое обычное регулярное видео, а один из 30+ уроков из моего нового онлайн-курса по условному форматированию www.planetaexcel.ru/learning/5/ Поэтому без стандартной заставки и кодовой фразы в конце 😊 P.S. Примечание для особо тревожных - все данные в этом видео сделаны с помощью генератора случайных данных из PLEX и к реальным людям никакого отношения не имеют :)
@Palich_51
@Palich_51 4 жыл бұрын
а вот фразу кодовую "Когда знаешь - все просто!" можно было бы и оставить!!!
@alexandershavleyko1313
@alexandershavleyko1313 4 жыл бұрын
ALL RIGHTS RESERVED 👍
@IoveGD75
@IoveGD75 4 жыл бұрын
🤩👍 спасибо
@DanBol-k5x
@DanBol-k5x 4 жыл бұрын
У меня, как у постоянного зрителя этого канала, фразу "Когда знаешь - все просто!" мозх договаривает за Николая самостоятельно))))
@ivanfrolov2729
@ivanfrolov2729 4 жыл бұрын
На больших "статичных" таблицах очень удобно. Но как будет работать метод .evaluate при каждом перемещении по ячейке, если в книге довольно много ссылающиеся формул и допустим 20-30 тыс. строк на паре-тройке листов?
@dimitarmilkov2215
@dimitarmilkov2215 4 ай бұрын
Спасибо Вам огромное! Все работает как надо. Благодарю за ценный урок!
@mahony-spb
@mahony-spb 4 ай бұрын
У вас не было такого? После сохранения и закрытия файла, при повторном его открытии, уже функция не работает. Причем стоит ли вкл или выкл не имеет значение, не работает и всё(. Причем и макрос я не вижу более
@dmytrofedotov2836
@dmytrofedotov2836 4 жыл бұрын
Отлично, полезно и практично! Кстати Николай, как Вы относитесь к тому, чтобы записать видео урок о работе с файлами Excel одновременно несколькими пользователями. Для больших компаний это довольно распространенный случай, так как они используют общие ресурсы в виде сетевых дисков с общим доступом, или же MS Onedrive (например, с типом подключения Exchange).
@fibi200523
@fibi200523 4 жыл бұрын
Спасибо) большего и желать не приходится! Вы МАГ и ВОЛШЕБНИК!
@enot-bober
@enot-bober 4 жыл бұрын
Супер) очень удобная вещь, большое спасибо. Может есть смысл добавить кнопочку в Plex?)
@planetaexcel
@planetaexcel 4 жыл бұрын
Уже :) В следующем обновлении ждите :)
@enot-bober
@enot-bober 4 жыл бұрын
Nikolay Pavlov Отлично) спасибо)
@АлинаИваненкова-ь8ц
@АлинаИваненкова-ь8ц 4 жыл бұрын
@@planetaexcel подскажите, пжлст, как сделать обновление PLEX? Или оно происходит автоматически?
@АнтонАбрамов-э9ю
@АнтонАбрамов-э9ю Жыл бұрын
Это супер, стало понятно как много я не знаю в исскустве владения эксель!
@SergeyANik
@SergeyANik 4 жыл бұрын
Не ужели за столько лет в майкрософте не догадались до такой штуки? Спасибо
@foralenushky
@foralenushky 2 жыл бұрын
Какой же Вы молодец, спасибо за полезные знания, что доносите их до нас так просто и доступно
@FISHERMAN33RUS
@FISHERMAN33RUS 4 жыл бұрын
Спасибо за очередной навык людям ежедневно ломающим глаза в таблице )) Вижу только один существенный минус - пересчет таблицы, для таблицы (или связки таблиц) с кучей впр и если на несколько десятков тысяч строк в которой вычисления и так отключены, и пересчет идет по F9 это не применить, а очень бы хотелось! Кроме условного форматирования никаких других вариантов для раскраски я так понимаю не существует? Я так понял эксель пересчитывает всю книгу/ лист, вот бы его заставить пересчитывать только конкретную строку... Кстати есть вроде возможность загнать сам пересчет в vba в оперативную память (ее 32 гига на i7), как это сделать, ускорит ли это работу тяжёлой неповоротливой таблицы? Увидеть бы какие то решения по оптимизации ускорения работы тяжёлых таблиц от Вас! Да и еще вопрос есть ли способ борьбы с постоянно вешающимися таблицами (все они уже в xlsb) немного стало получше, но все таки либо app hang, либо еще какая то висямба и куча файлов (часть сетевых или не дай бог открытых из почты и не сохраненных) становится version 1 и часть работы потеряна, ай ти предлагаю предать анафеме Гейтса но это не выход))) Короче та еще головная боль...Как решить?
@АндрейСухарев-о3з
@АндрейСухарев-о3з Жыл бұрын
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("F2") = "выкл" Then Exit Sub If Target.Cells.Count > 1 Then Exit Sub ActiveCell.Calculate End Sub В ячейку F2 пишите "выкл", будет работать гораздо быстрей
@Dmitrii-Zhinzhilov
@Dmitrii-Zhinzhilov 3 жыл бұрын
Огромнейшая благодарность!!! Я без этого очень долго мучился. Сейчас тут же применил - всё получилось. Буду использовать.
@МаратСычев
@МаратСычев 4 жыл бұрын
Спасибо, удобно. Но, я к примеру использую сочетание клавиш shift + пробел, получается что то похожее
@196077770
@196077770 4 жыл бұрын
При shift + пробел иногда не все столбцы смогут активироваться, даже при двойном щелчке. Лучше ctrl+A два раза
@tormentor_85
@tormentor_85 4 жыл бұрын
при этом можно выделить более 1 строки
@automaticsimplearts6396
@automaticsimplearts6396 Жыл бұрын
Как всегда ОТТИЧНО! Особенно меня порадовал список, в котором не обязательно указывать диапазон ячеек, а просто перечислить значения. Нигде не мог это найти, прямо лекарство для меня. Огромнейшее спасибо!!!!🤝
@Gennadii_Aleksandrovich
@Gennadii_Aleksandrovich 4 жыл бұрын
Спасибо. Удобно. Но долго реализуемо как по мне. Не плохо бы иметь возможность это в надстройке
@planetaexcel
@planetaexcel 4 жыл бұрын
Попробую добавить это в PLEX в следующих обновлениях.
@odotk256
@odotk256 4 жыл бұрын
а ещё лучше в настройках
@Gennadii_Aleksandrovich
@Gennadii_Aleksandrovich 4 жыл бұрын
@@planetaexcel буду ждать с нетерпением, мне она очень поможет
@V._A._S.
@V._A._S. 3 жыл бұрын
С удовольствием смотрю видео с этого канала. Как всегда лайк! Чёткая грамотная речь, очень полезный контент, ни каких эээ, мэээ и т.д. Мне вот интересно было бы взглянуть на тех людей которые ставят автору дизлайки. Кидайте ссылки сюда, мы посмотрим на ваши "полезные " каналы))) Если таковые имеются.
@КонстантинНавериани
@КонстантинНавериани 4 жыл бұрын
Я не пойму где взять код макроса, откуда его копировать? (С Ексель начинаю работать, но эта функция очень нужна)
@komdiv4906
@komdiv4906 4 жыл бұрын
Ставишь на паузу и копируешь с экрана.
@АйдарНасыров-э5л
@АйдарНасыров-э5л 3 жыл бұрын
Спасибо большое! Все отлично! Супер! Дай Бог вам здоровья и всех благ!
@tlittle01
@tlittle01 4 жыл бұрын
Проверку вкл/выкл надо также добавить в макрос, ибо пересчитывать условное форматирование в таком виде он будет даже с выключенной подстветкой, а это... неэффективно :)
@planetaexcel
@planetaexcel 4 жыл бұрын
Да, так пошустрее должно быть, скорее всего. Спасибо за идею!
@pavelkriukov4168
@pavelkriukov4168 4 жыл бұрын
Вместо вкл/выкл лучше использовать Checkbox
@kadetchualihanov
@kadetchualihanov 3 жыл бұрын
Да уж, как много полезного я узнал на Вашем канале, в работе очень помогает!!!
@adiart373
@adiart373 3 жыл бұрын
А можно и без макроса с подсветкой столбца =AND(OR(CELL("col")=COLUMN();CELL("row")=ROW());$E$1="On") P.S. Спасибо автору за видео и идею.
@dinnu3270
@dinnu3270 2 жыл бұрын
??? E1 ??
@adiart373
@adiart373 2 жыл бұрын
@@dinnu3270 ячейка с вкл/выкл этой самой строки
@laydmartin2321
@laydmartin2321 2 жыл бұрын
Не работает оно так без макроса увы
@MrGhook
@MrGhook 4 жыл бұрын
Спасибо большое
@infoboss99
@infoboss99 9 ай бұрын
Классное полезное видео!!! Благодарю за ценный урок! )
@MrPero155
@MrPero155 3 жыл бұрын
НИКОЛАЙ , ОГРОМНОЕ СПАСИБО!!! я 2 года искал ответ на этот вопрос!
@Max1Kozlov
@Max1Kozlov 3 жыл бұрын
Суперрр! Спасибо! Одно не понимаю, кто за такие полезности ставить дизы?!
@АлександрСерков-ъ8д
@АлександрСерков-ъ8д 2 жыл бұрын
производители деревянных линеек, конечно же
@АлексКоликов
@АлексКоликов 4 жыл бұрын
Набросал процедуру VBA, работает без условного форматирования, выключатель не добавлял: Public LastRow As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ThisRow As Range If LastRow Is Nothing Then ElseIf IsObject(LastRow) Then LastRow.Interior.Color = xlNone End If Set ThisRow = ActiveSheet.Rows(ActiveCell.Row) ThisRow.Interior.Color = 5296274 Set LastRow = ThisRow Автору за идею спасибо! Заодно подписался
@planetaexcel
@planetaexcel 4 жыл бұрын
Алекс, но этот макрос же стирает текущую заливку ячеек, если она была, верно?
@АлексКоликов
@АлексКоликов 4 жыл бұрын
@@planetaexcel да, про это я не подумал( надо доработать
@АлексКоликов
@АлексКоликов 4 жыл бұрын
@@planetaexcel Доработал, теперь процедура не стирает заливку. Кроме того, если заливка, или текст в ячейке того же цвета, что и подсветка, то ячейка подсветится другим цветом:. Public TrackRow(200) As Integer - Помещаем код в обычный модуль Public LastRow As Range - Помещаем код в модуль страницы Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ThisRow As Range Dim i As Integer If LastRow Is Nothing Then ElseIf IsObject(LastRow) Then For i = 0 To 199 LastRow.Cells(i + 1).Interior.ColorIndex = TrackRow(i) Next i End If Set ThisRow = ActiveSheet.Rows(ActiveCell.Row) For i = 0 To 199 TrackRow(i) = ThisRow.Cells(i + 1).Interior.ColorIndex If TrackRow(i) = 43 Or ThisRow.Cells(i + 1).Font.Color = 5296274 Then ThisRow.Cells(i + 1).Interior.ColorIndex = 47 Else ThisRow.Cells(i + 1).Interior.ColorIndex = 43 End If Next i Set LastRow = ThisRow End Sub
@АзаматАбидов-ф6и
@АзаматАбидов-ф6и 4 жыл бұрын
@@planetaexcel Николай, подскажите пожалуйста, что делать если после ввода макроса, выдаёт ошибку rune-time error '424'???
@СергейМорозов-в7т
@СергейМорозов-в7т 2 жыл бұрын
Николай, Вы волшебник.
@badrock_er
@badrock_er 8 ай бұрын
Огонь, пушка, супер! Как же давно я искал эту фишку!!!
@tatianakerimova1763
@tatianakerimova1763 3 жыл бұрын
Это потрясающе! Как удобно работать теперь с данными! Спасибо вам за ценные уроки!
@РаваТар-я1у
@РаваТар-я1у 2 жыл бұрын
Спасибо большое! А то я задолбался переносить данные из таблицы в таблицу. Специально искал именно такую функцию. Ещё раз спасибо!🤝
@nikkeidg
@nikkeidg 2 жыл бұрын
Доброго дня! Очень качественная информация, спасибо
@userYT.1
@userYT.1 4 жыл бұрын
Профессионалы восхищают и вдохновляют. Спасибо!
@anastas1812
@anastas1812 3 жыл бұрын
Николай, спасибо огромедное, очень удобная штука!
@olegdes169
@olegdes169 Жыл бұрын
Огромное вам спасибо! Каждый день работаю в Excel 2016, с большими таблицами и часто пользуюсь поиском, но встроенная подсветка ячейки (строк и столбцов) на столько блеклая, что вечно приходиться тратить время и всматриваться, где!?, где!? та ячейка которую он нашел! Сколько информации не искал, как изменить цвет подсветки при выборе ячейки, никто не мог помочь! Буду пользоваться вашим методом, большое вам спасибо!
@IoveGD75
@IoveGD75 4 жыл бұрын
Николай, спасибо! Более понятнее чем объясняете вы я не встречала! Легко и доступно.
@aleksandrdziubii9695
@aleksandrdziubii9695 Жыл бұрын
Николай, спасибо вам огромное!
@MMSikorsky
@MMSikorsky 6 ай бұрын
Очень круто! Этот трюк в разы ускорит мою работу
@АндрейХанькевич-г4щ
@АндрейХанькевич-г4щ 3 жыл бұрын
Величезне ДЯКУЮ! Просто знахідка для мене!
@АртемРем-в8л
@АртемРем-в8л 2 жыл бұрын
Очень ценный урок. Нужно эту функцию вставить в PLEX
@Комил_Нуритдинов
@Комил_Нуритдинов 7 ай бұрын
ОРУ!!!! Искал в сети эту вещь несколько раз. спасибо Вам огромное.
@АркадийКурцев
@АркадийКурцев 4 жыл бұрын
Кудесник EXCEL! Вы просто чудо, Николай!
@ndreyKo886
@ndreyKo886 4 жыл бұрын
Огромное спасибо за такое простое решение очень актуальной для многих задачи!
@Wehy-San
@Wehy-San Жыл бұрын
Отличный и простой пример. Спасибо!
@Supervinila
@Supervinila 6 ай бұрын
Это бомба!!! Какая полезная функция, огромное спасибо вам за этот ценный материал!!@
@fryonthemoon
@fryonthemoon 4 жыл бұрын
Мега-полезный лайфхак! Жить стало чуточку легче))
@ИгорьТолчинский
@ИгорьТолчинский 4 жыл бұрын
Супер! Как раз недавно думал, как это было бы здорово, чтобы активная строка выделялась целиком!
@llinaAlina_1983
@llinaAlina_1983 Жыл бұрын
Спасибо Вам за информацию!!! Очень познавательное видео!!!!
@ЮрийЩ-я5к
@ЮрийЩ-я5к 3 жыл бұрын
Круто. Думал Ctrl+z не будет работать так как запускается макрос. но походу на обработчик событий данное правило не работает. Спасибо вам за ваши познавательные уроки
@datsentpro4205
@datsentpro4205 2 жыл бұрын
Павел вы красавчег. Это мега доступно понятно и полезно. Спаибо
@Neo-life
@Neo-life 6 ай бұрын
Какой же вы гений!!! Спасибо.
@shturmanbasov9660
@shturmanbasov9660 4 жыл бұрын
100500 лайков! Ну вот человечище! Всё для людей! А то сидишь на работе, возишь пальцем по экрану, чтобы не потерять строку.
@ЖалгасБуламбаев
@ЖалгасБуламбаев 4 жыл бұрын
Спасибо за ваш труд! Реально удобная функция
@kindid
@kindid 4 жыл бұрын
Безусловно очень полезная вещь, а пользоваться или нет, тут решает каждый для себя. Спасибо большое, Вам за труды!
@zohrabkazimov1425
@zohrabkazimov1425 3 жыл бұрын
По комментариям можно судить, на сколько важна была эта процедура(функция) для пользователей. Спасибо огромное. Просто, доступно и выполнимо!
@ДимаГалаган
@ДимаГалаган 4 жыл бұрын
Крутой чувак. Давно искал толковый канал подобного рода, и ВОТО ОН!!!
@ИринаА-ю6в
@ИринаА-ю6в 4 жыл бұрын
Спасибо большое! У Вас самые лучшие уроки, все так чётко, понятно и наглядно. Дополнительно пользуюсь Вашим сайтом. Очень нравится. Кстати, данный урок как нельзя кстати мне сейчас нужен был, а то я замучилась с большими таблицами без такой подсветки.
@Лилия-Ф
@Лилия-Ф 2 жыл бұрын
Здравствуйте! Спасибо за полезные видео. У меня получилось сделать подсветку. Смотрю Ваш канал и применяю на практике! Купила Ваш курс, но пока не приступила к плотному изучению)
@Абрам-я7з
@Абрам-я7з 4 жыл бұрын
Николай, спасибо Вам большое! Как же вы облегчаете работу людям, это просто фантастика! Благодаря Вашим урокам была сэкономлена уйма времени.
@planetaexcel
@planetaexcel 4 жыл бұрын
Рад помочь :)
@АндрейСергеевич-л7ф
@АндрейСергеевич-л7ф 3 жыл бұрын
@@planetaexcel здравствуйте как скопировать и где
@d.d.2311
@d.d.2311 3 жыл бұрын
Очень полезный урок! Николай, спасибо большое!
@gorabuxgalterov
@gorabuxgalterov 2 жыл бұрын
Здравствуйте. Спасибо большое Вам. 👍
@АлексейЛеонидович-ъ2ш
@АлексейЛеонидович-ъ2ш 4 жыл бұрын
Вот это просто бомба!!! Спасибо!!! Давно лопатил интернет в поисках подобного,!!! Спасибо!!
@Евген-е5и
@Евген-е5и 2 жыл бұрын
Посмотрел как делается, подумал заморочка, а потом всё таки решил сделать. Потратил на этот процесс 2 минуты, но в итоге + одна важная функция, которая облегчает быстрый поиск нужной информации.
@ЛесяДударенко-ч4р
@ЛесяДударенко-ч4р Жыл бұрын
Ну просто оооооооочень помогли! Прекрасно объяснили даже для криворукеньких)) Спасибо огромное!
ПРОСМОТРХ - наследник ВПР
18:32
Nikolay Pavlov
Рет қаралды 173 М.
Сборка данных со всех листов книги
18:50
Nikolay Pavlov
Рет қаралды 346 М.
Amazing remote control#devil  #lilith #funny #shorts
00:30
Devil Lilith
Рет қаралды 16 МЛН
The Singing Challenge #joker #Harriet Quinn
00:35
佐助与鸣人
Рет қаралды 42 МЛН
Real Man relocate to Remote Controlled Car 👨🏻➡️🚙🕹️ #builderc
00:24
20 приемов и трюков MS Excel для начинающих
25:32
Езепов Дмитрий
Рет қаралды 1,6 МЛН
Анализ смет и сметных расчетов в Excel (Эксел)
9:41
Анализ смет | Сергей Федоров
Рет қаралды 1,4 М.
3 способа создать флажки (checkbox) в Excel
22:37
Выпадающий список в Excel с поиском
16:20
Билял Хасенов – Excel, VBA & More
Рет қаралды 178 М.
15 Лучших трюков в Excel
11:58
Pavel Kogan
Рет қаралды 1,6 МЛН
Динамические массивы в Excel
23:29
Nikolay Pavlov
Рет қаралды 178 М.
Используем ChatGPT при работе в Excel
27:13
Nikolay Pavlov
Рет қаралды 755 М.
Выпадающий список с быстрым поиском
14:47
Amazing remote control#devil  #lilith #funny #shorts
00:30
Devil Lilith
Рет қаралды 16 МЛН