Блог им. 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
130
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:
Фото
Сбер РПБУ 6 мес. 2026 г. - кому нужны 30% доходности?
Сбер опубликовал финансовые результаты по РСБУ за 6 месяца 2026 года. Чистая прибыль за полгода работы составила 995 млрд руб. (+20,4%). За...
Фото
Анатолий Полубояринов
14:21
Фото
Есть неприятная вещь, о которой редко говорят прямо!
Можно много торговать, накапливать опыт, смотреть рынок каждый день, разбирать графики, помнить десятки удачных и неудачных входов и всё равно не...
Фото
liveinvestinggroup
13:48
Пора перестать играть в рулетку: почему до конца года разумнее выбирать облигации с фиксированным купоном и высоким рейтингом
За последние несколько лет рынок пережил тот самый период, когда «стреляло» почти всё: от мемных акций до экзотических фондов, и случайная идея...
Фото
ВТБ Мои Инвестиции
12:41
Фото
Сетевые компании. Изменение целевых цен и смена рейтинга!
Я последнее время наблюдаю такую тенденцию — у компании дивидендный гэп, но акции продолжают отвесно падать, это и произошло с сетевыми...
Фото
Валентин Погорелый
07 июля 2026, 17:12

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

★20 30 Простая инструкция по накопительной пенсии
★9 15 Мы проверили главный миф про «покупай страх» на 16 годах IMOEX. И я бы не спешил делать из страха точку входа
★7 11 Лучшие ОФЗ для пассивного дохода прямо сейчас. У кого самый ВЫСОКИЙ текущий купон?
★6 0 «Алготрейдинг. База» описание курса и ссылки на лекции.
★6 30 Бизнес - идея (не благодарите)
★4 21 Интересны ли акции и ОФЗ после просадки?
★4 34 Как совкомовские втирали дичь на конфе
★4 14 А не запустил ли наш ЦБ скрытое QE для покрытия дефицита бюджета?
★4 4 В избранное: когда можно не платить за капремонт.
★3 37 Жилье все еще интересно?
+136 34 Как совкомовские втирали дичь на конфе
+92 45 Азия. Четверг.
+82 40 Полюс, зачем ты это делаешь?
+74 18 Стих "на дне"
+64 5 Ситуация на текущий момент
+59 12 Полюс без дивидендов до 2030. Благотворительность важнее?
+57 52 Индекс МБ сегодня
+53 89 Покупаю панику плечевиков
+52 21 Интересны ли акции и ОФЗ после просадки?
+50 30 Бизнес - идея (не благодарите)

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

52к Индекс МБ сегодня
45к Азия. Четверг.
35к Да, мы будем верить Reuters. (Московский НПЗ все еще стоит)
34к Как совкомовские втирали дичь на конфе
30к Бизнес - идея (не благодарите)
23к Цена бензина на "Татнефти" в Подмосковье.
21к Интересны ли акции и ОФЗ после просадки?
19к Ускорение инфляции (0,31% в неделю - это 17+% годовых)
18к а что вас сегодня радует?
21к Мосбиржа саму себя поставила на планку Нет логики

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

....все тэги



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