Блог им. 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
140
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:
Фото
Т⁠-⁠Банк представил новое поколение супераппа
В приложении появились новые сферы и данные о счетах и кредитах в других банках, а с главного экрана убрали лишнее Т⁠-⁠Банк объявил новый...
Фото
Т-Инвестиции
16:30
Фото
💡 Размещение облигаций «РУСАЛа» в юанях
«РУСАЛ» — один из крупнейших в мире производителей алюминия. Кредитные рейтинги эмитента — A+(RU) от АКРА и ruA+ от Эксперт РА , прогноз —...
Фото
ВТБ Мои Инвестиции
17:04
Фото
Курс закончился. Что дальше❓
На курсе всё обычно выглядит проще. Есть преподаватель, разборы, примеры сделок. Вам всё разжёвывают :) Потом курс заканчивается, и трейдер...
Фото
liveinvestinggroup
16:44
Фото
Хэдхантер. Рынок труда в сентябре: hh.индекс снизился до 8,5 - становится лучше?
Вышла статистика рынка труда за сентябрь 2026 года (за август можно почитать здесь ), которую Хедхантер публикует ежемесячно, что же там...
Фото
Валентин Погорелый
14:33

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

★7 11 Охота за стопами в цифрах: очевидные минимумы прокалывают так же, как случайные линии
★7 0 Как читать мультипликаторы на примере HeadHunter: полный гайд для новичков
★7 2 Облигации Самолета: что за и что против. 50 на 50 (разбор + видео)
★6 7 Ведение портфеля акций и облигаций в Excel и Google Таблицах с привязкой к API Московской биржи
★6 8 Сдал экзамен на квала
★6 98 Программирование закончилось
★5 1 ⛽️ Что с дивидендами, Лукойл? История выплат, перспективы. Отчет за 1П 2026 года
★5 12 Надвигается «МАССОВАЯ ТОКЕНИЗАЦИЯ» — и большинство людей понятия не имеют, что их ждёт.
★4 4 Мой портфель акций на 7 октября. Покупки акций и облигаций. Создание пассивного дохода с дивидендов и купонов
★4 6 🏅Самые надёжные облигации 💪Чертова дюжина с высшим (и почти высшим) кредитным рейтингом
+125 49 Азия. Среда.
+100 1 Черная металлургия набирает силы. Акции и инвестиции
+79 3 Ситуация на текущий момент
+70 41 Ответ на пост: Smart-Lab всё меньше про инвестиции
+64 98 Программирование закончилось
+57 12 Надвигается «МАССОВАЯ ТОКЕНИЗАЦИЯ» — и большинство людей понятия не имеют, что их ждёт.
+53 12 ⛵️Корабль на плаву? Свежие блокировки группы компаний Михаила Жарницкого
+52 1 ЭЛ5-Энерго отчиталась за I п. 2026 г. — реорганизация снизила финансовые показатели компании, долг вырос, как и процентные платежи. Дивидендов не будет.
+52 61 Smart-Lab всё меньше про инвестиции. И дело не в Smart-Lab.
+51 1 ⛽️ Что с дивидендами, Лукойл? История выплат, перспективы. Отчет за 1П 2026 года

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

98к Программирование закончилось
66к Я — не трейдер. Я — переводчик. Или о чём этот блог
61к Smart-Lab всё меньше про инвестиции. И дело не в Smart-Lab.
49к Азия. Среда.
45к За что я не люблю Балагана?
39к За что я люблю Балагана 2?
37к Философия против математики
41к Ответ на пост: Smart-Lab всё меньше про инвестиции
32к Полный отказ ЕС от российского газа добьет индекс ММВБ
27к Новый эксперимент - американский рынок через токены.

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

....все тэги



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