Блог им. 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:
Фото
EUR/USD в тисках: кто первый моргнет у критической отметки?
Европейская валюта протестировала нисходящую линию тренда (построенную по точкам 1 и 2), завершив торги в четверг паттерном «медвежье поглощение»....
Фото
Олег Свиргун
15:42
Фото
Средние доходности облигаций в зависимости от кредитного рейтинга. От B- до AA+
👉 Наш канал в MAX 👈 👉 Чат Иволги в MAX 👈 Средние доходности облигаций в зависимости от рейтинга (бледные столбцы —...
Фото
Андрей Хохрин
06:53
Фото
Выработка электроэнергии в РФ в феврале 2026г. по Росстату и рекордный объем потребления энергии в 1 квартале 2026г.
Росстат представил данные по выработке электроэнергии в РФ в феврале 2026г.: 👉 выработка электроэнергии в РФ — 107,43 млрд кВт*ч. ( +1,7...
Фото
Валентин Погорелый
16:16
Фото
Прибыль Мосбиржи вернулась к росту?
По Мосбирже есть несколько признаков того, что отчет за 1 квартал будет неплохим. И в целом похоже, что прибыль от падения год к году перешла к...
Фото
Анатолий Полубояринов
04:36

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

★12 18 Как я открыл счет в крупнейшем в СНГ легальном обменнике крипты и получил карты. Что изменилось? Апрель 2026 года.
★5 18 🇨🇿Урок инвестиций в Чехии. Фиксируем.
★5 34 Артемида-2 и прочие
★4 62 Сегодня мне исполнилось 39 лет! Чего я добился в жизни?
★3 1 Выдача ипотеки снизилась, считаем дивиденды Транснефть/НМТП, инфляционные темпы ускорились!
★3 1 15 самых выгодных накопительных счетов с доходностью до 16,5%
★3 6 Сколько эмитентов облигаций должно быть в портфеле, чтобы спать спокойно и не бояться дефолтов?
★2 8 Как не тратить сотни часов на просмотр рыночных видео
★1 2 Топ вкладов
★2 1 🚀 Заработал в марте на фондовом рынке ₽2 334. Сколько всего получил в 2026 году?
+139 62 Сегодня мне исполнилось 39 лет! Чего я добился в жизни?
+111 175 Не покупай дом если стремишься к финансовой независимости
+100 18 🇨🇿Урок инвестиций в Чехии. Фиксируем.
+96 60 "Откройте чёртов пролив, вы, сумасшедшие ублюдки, или будете жить в аду" - Трамп
+70 16 Что-то полезное XI.
+67 97 До свиданья РКН 🤣 до свиданья Сбербанк и ВТБ
+60 18 Как я открыл счет в крупнейшем в СНГ легальном обменнике крипты и получил карты. Что изменилось? Апрель 2026 года.
+58 23 Пpeдлoжeниe apeнды квapтиp в Mocквe бьeт peкopды
+55 26 Трамп или обязательный углубленный осмотр психиатра
+54 26 Mart Twits, Часть 1

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

175к Не покупай дом если стремишься к финансовой независимости
62к Сегодня мне исполнилось 39 лет! Чего я добился в жизни?
60к "Откройте чёртов пролив, вы, сумасшедшие ублюдки, или будете жить в аду" - Трамп
40к Обзор на вклады в Швейцарских банках, и темы "швейцарского франка"....
34к Самолёты МС-21 и SJ-100 «адаптация к форс-мажору» или тяжелейший компромисс, граничащий с провалом ТЗ?
34к Артемида-2 и прочие
26к Трамп или обязательный углубленный осмотр психиатра
26к Подробности спасения второго пилота американского F-15 из Ирана
23к Пpeдлoжeниe apeнды квapтиp в Mocквe бьeт peкopды
22к Экскурс в историю

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

....все тэги



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