Блог им. 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:
ИНВЕСТИЦИИ И ТРЕНДЫ. ПЕРМЬ: ОНЛАЙН-ТРАНСЛЯЦИЯ
25 апреля в Перми проходит конференция «Финама» «Инвестиции и тренды-2026». Ее можно посмотреть онлайн из любой точки мира  👇 Смотреть в...
Фото
Финам Брокер
09:02
Фото
📍 Сегодня — Profit Conf
Конференция уже началась, и команда МГКЛ работает на площадке. В 11:00 в зале №6 наше выступление — обзательно приходите послушать. И да,...
Фото
MGKL
11:30
Фото
Средние доходности облигаций в зависимости от кредитного рейтинга. От B- до AA+
👉 Наш канал в MAX 👈 👉 Чат Иволги в MAX 👈 Средние доходности облигаций в зависимости от рейтинга (бледные столбцы...
Фото
Андрей Хохрин
06:40
Фото
Обновляем стратегию 2026: год трудный, что изменилось, и в каком направлении мы движемся?
Квартальное обновление стратегии. Стратегия Mozgovik была представлена 17 января: https://smart-lab.ru/mobile/topic/1254157/ Что остается в...
Фото
Тимофей Мартынов
24 апреля 2026, 15:44

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

★14 44 😎 Как я получил статус квалифицированного инвестора? Пошаговая инструкция в 2026 году
★5 4 Аукционы Минфина — снижение ключа на 0,5% и жёсткая риторика ЦБ сделали доходность длинных ОФЗ на уровне ставки. По РЕПО занимают сверх суммы.
★3 9 Самые ОГРОМНЫЕ бабки в истории России. Зачем их чеканили?
★3 0 FABRICAONE.AI (FIAI). Стоит ли участвовать в IPO? Отчет 2025.
★3 4 Новые дивиденды, ключевая ставка, IPO, размещения облигаций и другие новости в обзоре главных событий недели
★2 12 Пришёл негатив,а руководитель исчезает
★2 11 Управляющие ЗПИФ недвижимости собрались на Смартлабе и рассказали то, что обычно не говорят
★2 8 Знания не меняют поведения
★2 13 7 портфелей с разными стратегиями. Какой результат в апреле 2к26?
★2 31 Как бесплатно и легально пользоваться деньгами банка
+87 44 😎 Как я получил статус квалифицированного инвестора? Пошаговая инструкция в 2026 году
+84 99 Нефтюшка... (по Методу Геллы)
+64 18 Накануне ввода «реестра криптанов» в РФ, давайте обратимся к французскому опыту
+57 4 Аукционы Минфина — снижение ключа на 0,5% и жёсткая риторика ЦБ сделали доходность длинных ОФЗ на уровне ставки. По РЕПО занимают сверх суммы.
+55 0 🏆 Закупка под пассивный доход в апреле 2026. Часть 2. Пополнение портфеля 100 000
+52 8 Проходим тест на гемблера. Отвечаем честно, только «да» или «нет»!
+51 23 Курс рубля На какую сумму Минфин в мае купит валюту и что будет с курсом рубля
+50 81 Почему Россия по-прежнему отстаёт от Нидерландов по ВВП на душу населения в 4 раза даже через 300 лет после реформ Петра?
+48 8 Цб опять повысил/расширил вверх среднесрочный диапазон ставки
+44 4 Новые дивиденды, ключевая ставка, IPO, размещения облигаций и другие новости в обзоре главных событий недели

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

2к Расскажите о брокере ПСБ (ПСБ Инвестиции)

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

....все тэги



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