Блог им. 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
128
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:
🔔 Завтра — результаты Займера за I квартал
Напоминаем, что вебинар по финансовым результатам Займера за I квартал 2026 года состоится уже завтра в 11:00 МСК. Генеральный директор компании...
Фото
Займер
14 мая 2026, 16:40
Фото
Портфель активного трейдера. Первые изменения
Мы продолжаем вести модельный портфель для активного трейдера. В регулярном материале отражены текущие изменения в портфеле с...
Фото
БКС Мир Инвестиций
15 мая 2026, 10:29
Фото
📊 Ресейл Инвест: статистика и развитие платформы
Платформа «Ресейл Инвест» продолжает активно развиваться и набирать обороты внутри экосистемы «МГКЛ». С начала 2026 года на платформе...
Фото
MGKL
15 мая 2026, 10:00
Фото
Хэдхантер. Отчет МСФО за Q1 2026г. Всё будет непросто…но…есть надежда.
Вышли финансовые результаты по МСФО за Q1 2026г. от компании Хэдхантер: 👉Выручка — 9,49 млрд руб. (-1,5% г/г) 👉Операционные расходы —...
Фото
Валентин Погорелый
15 мая 2026, 15:31

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

★8 1 ☃️ 10 самых популярных ОФЗ для пассивного дохода у инвесторов
★5 3 АО Полиметалл: панда-бонды и делистинг, которого не было
★5 33 ТГК-14: компания, которая купила сама себя
★4 0 Инфляция в начале мая — внутренний туризм повлиял на недельные темпы, но месячный пересчёт апреля вселяет надежду!
★3 4 Анализ трендов
★3 2 Ростелеком (RTKM). Отчет 1Q 2026. Дивиденды. Перспективы.
★3 1 ⚡Цена газа в Китай из России в 3 квартале вырастет на 60%
★2 2 Самый надежный способ поднять иксы на pre-IPO, инфа 100%
★2 71 Кто хотел доллар по 29 руб? Вот он вам!!! Налетай - покупай
★2 0 Финансовые и операционные результаты компании Инарктика за 2025 год
+162 33 ТГК-14: компания, которая купила сама себя
+119 71 Кто хотел доллар по 29 руб? Вот он вам!!! Налетай - покупай
+77 54 Итоги визита Трампа в Китай
+57 0 Инфляция в начале мая — внутренний туризм повлиял на недельные темпы, но месячный пересчёт апреля вселяет надежду!
+57 47 🤡 По какой-то причине Евротранс вызывает бурную реакцию у Пульсян
+56 65 Почему китайцы так громко харкают и сморкаются?
+55 8 Отчёт 13F Berkshire Hathaway за I квартал 2026: Абель возвращает авиакомпании и удваивает ставку на Google
+48 2 ❗️Соби-Лизинг, Роял-Капитал, СибАвтоТранс – в первый раз? Евротранс 😊 🤟
+47 1 ☃️ 10 самых популярных ОФЗ для пассивного дохода у инвесторов
+45 10 ⚡Главные итоги саммита Китай-США. Трамп улетел, теперь в Китае ждут Путина

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

34к Решил проверить старое доброе правило....
33к О черных списках!
22к Глобалисты нас прогнули. Лавров открывает двери России для мигрантов из Пакистана.
21к Почему индекс акций не растет при ускорении покупок физлицами?
10к Кнопка бабло есть. Про трейдеров
9к Cупруги с образованием оказываются более надёжны в браке, чем необразованные и бедные
9к USD/RUB. Будут ли Сухари к Махорке? 75 или 79?
3к Инвестиционные тортики: 🍰 Почему новичкам стоит начать с ПИФов, а не с акций крупных компаний? | Часть 1.
3к Латвия заплатила за поддержку Украины собственной властью
2к Стали ли интересными акции ФосАгро на фоне ралли в ценах на удобрения?

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

....все тэги



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