Блог им. RomanF79

Excel! Need your help for visual basic ...

Excel! Need your help for visual basic ...


Сформировал отчет в котором прикрутил следующее:

Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If Not Intersect(cell, Range(«A2:A20000»)) Is Nothing Then
With cell.Offset(0, 4)
.Value = Now
.EntireColumn.AutoFit
End With
End If
Next cell
End Sub

Как учесть удаление строчек (сдвиг всех ячеек) и очистку ячеек (если значение стало «0» то дата не фиксируется)?

Заранее спасибо!

Данная публикация является личным мнением автора. Мнение владельца сайта может не совпадать с мнением автора.
  • Ключевые слова:
  • excel
135
17 комментариев
+1
It is not Visual Basic…
avatar
Сергей Гаврилов
+1
Сергей Гаврилов, VBA же.
avatar
Гденьги ☭
+1
Гденьги ☭, VBA и VB две очень большие разницы…  
avatar
Сергей Гаврилов
поясните словами, что хотите сделать
avatar
Андрей К
Андрей К, Нужно достичь следующего… при внесении данных в строчку (учитываем определенную ячейку, то есть столбец с ячейками «А» в «D» автоматом проставляется дата занесения данных в «А». Этого я достиг, но не работает удаление строчек и обнуление данных… даты в этих случаях обновляются. кстати при упорядочивание, дата не изменяется это +.
avatar
Роман Франтовский
Роман Франтовский, я вот, например, ни хрена не понял из Вашего объяснения, хотя, наверно мог бы помочь…
avatar
Сергей Гаврилов
Сергей Гаврилов, По простому… если вношу данные, то в последней ячейке фиксируется время и дата внесения.

avatar
Роман Франтовский
Сергей Гаврилов, началось все с простого ...=ЕСЛИ(A2>0; (СЕГОДНЯ());"")
avatar
Роман Франтовский
В екселе есть следующая возможность -включить запись макроса и начать делать что то «руками» он интерпретирует это в код, а после нужные фрагменты кода вы уже можете использовать как образец.
avatar
Black Swan
Black Swan, судя по его коду, автор давно перерос самописные макросы. Но что он хочет — непонятно. 
avatar
Гденьги ☭
0
If Not Intersect(cell, Range(«A2:A20000»)) Is Nothing And Len(cell) <>0 Then
Добавил проверку на пустоту ячейки
avatar
Сергей Гаврилов
Сергей Гаврилов, не собирается все вместе
avatar
Роман Франтовский
Роман Франтовский, а чего пишет?


avatar
Сергей Гаврилов
Сергей Гаврилов, 

avatar
Роман Франтовский
Сергей Гаврилов, кажется так заработает ...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Intersect(Columns(«A»), Target(1)).Offset(, 4) = Now
End Sub

 

avatar
Роман Франтовский
Сергей Гаврилов, сорри с просонья заминусил, не хотел…
avatar
massimo
Я один считаю что эксель и вба параша, или его теперь можно отучить пересчитывать миллион триллионов раз одно и тоже, когда эксель закачал 500+ гб оперативы и висел часа полтора, а потом матлаб тоже самое посчитал за 0,02 сек я решил что он прикалывается
avatar
_____Life_Line

Читайте на SMART-LAB:
Фото
Бро, не забывай, что у нас осталось всего 2 месяца до московской конференции
Эх, как быстро летит время! Бро, не забывай, что у нас осталось всего 2 месяца до московской конференции . Чем позже берешь билет — тем...
Фото
Тимофей Мартынов
18:25
Итоги вчерашнего звонка с аналитиками Mozgovik Research
Ниже — ранжированный конспект именно высказанных на встрече мнений. Текст сгенирирован нейронкой на основании транскрипта нашей встречи👍 - Цифры,...
Фото
Тимофей Мартынов
20:27
Фото
Сколько арбитражеры заработали на дивидендном сезоне
Июль — самый урожайный месяц по дивотсечкам. Посмотрим, как трейдеры на этом заработали.  Дивидендный арбитраж на конкретных...
Фото
Финам Брокер
17:16
Фото
Портовый срез #8: НМТП отгружает нефть, разворот в контейнерах и ставках
Порты России вместо привычной сверхмаржи и дохода для инвесторов стали мишенью для БПЛА противника. Перестали ли из-за этого они быть...
Фото
Олег Кузьмичев
18 августа 2026, 23:40

полезные записи за 24 часа

★7 4 Торговали в минус, а налог заплатили? Два кейса, как вернуть деньги
★6 9 📜Как одна бесплатная бумажка двинула вчера все рынки планеты.
★4 45 Жилищный дауншифтинг в Москве.
★4 15 Нижнекамскшина: брокер спросил о связи блога на Smart-Lab и сделках
★4 0 Интер РАО отчиталась за I п. 2026 г. — процентные доходы сокращаются из-за снижения ставки/кубышки, FCF отрицательный ввиду роста инвестиций.
★3 0 Татнефть держит традицию: дивиденды 32,88 руб. на акцию
★3 3 Я 15 лет прессую блины из листьев и зарабатываю 570 тысяч в месяц
★3 0 Сезонные тенденции и вероятности на четверг 20.08.2026 | Александр Борских
★3 0 🚀 10 надежных облигаций с текущей доходностью до 15% годовых и ежемесячными выплатами на 1,5 года и более
★2 14 Доход каждый месяц — с новым ПИФ «БКС Денежный рынок с выплатами»
+124 102 Около 66% россиян считают, что самые тяжёлые времена для России ещё впереди
+117 55 Азия. Четверг.
+101 2 Индекс и доллар снижаются, а нефть растёт. Акции и инвестиции
+83 12 Челобитная на высочайшее имя
+77 35 О госдолге США $40 трлн
+70 21 Назло говнокомментаторам: где на самом деле будет индекс к концу года.
+70 7 Ситуация на текущий момент
+61 8 Идеи Элвиса Марламова в ПИФ Аленка Капитал на август - пол портфеля опять пересобрано
+61 45 Жилищный дауншифтинг в Москве.
+49 9 Итоги вчерашнего звонка с аналитиками Mozgovik Research

самые обсуждаемые сегодня

102к Около 66% россиян считают, что самые тяжёлые времена для России ещё впереди
67к Почему мальчики всё чаще отстают от девочек в учебе и высшем образовании
58к Народ молчит, валютные облиги падают!
55к Азия. Четверг.
55к Соцфонд: средняя пенсия превысила 40 тысяч рублей в шести регионах России ...
42к Экономика выросла. А вы это заметили?
45к Жилищный дауншифтинг в Москве.
35к О госдолге США $40 трлн
31к Тимофей. Предложение по сайту
23к Пара слов о Грузии.

теги блога Роман Франтовский

....все тэги



UPDONW
Новый дизайн