Блог им. 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:
Фото
Как отыграть рост стоимости нефти с помощью call-опционов
В начале марта цена на черное золото резко подскочила на фоне военной операции США в отношении Ирана. И теперь у акций российских нефтегазовых...
Фото
БКС Мир Инвестиций
10:58
Фото
🧩 В чём сила управляемой бизнес-модели?
Устойчивый рост базируется на системности. Когда направления дополняют друг друга, а масштабирование не влияет на операционную...
Фото
MGKL
10:00
Фото
«Никогда не работай с родственниками» — самый удобный миф в бизнесе
Всем привет, на связи Сергей Алексеев. Основатель Лайв Инвестинг Групп/Live Investing Group, ЛИСА/LISA, Скуллайв/School Live, Проплайв/Prop Live...
Фото
liveinvestinggroup
15:46
Фото
Нефтяной срез: выпуск №8. Перекрытие Ормузского пролива + рост цен на нефть против слабых отчетов за 4-й квартал 2025 и 1-й квартал 2026? Ищем лучших в все еще слабом секторе
Продолжаю выпускать рубрику — Нефтяной срез.  Цель: отслеживать важные бенчмарки в нефтяной отрасли, чтобы понимать куда дует ветер.  Прошлый пост:...
Фото
Олег Кузьмичев
19:45

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

★19 20 Как получить 20% годовых и НЕ заплатить НДФЛ: Налоговый щит ОФЗ 26238
★6 2 Кто из нефтяников стоит дешевле всех
★6 0 ❗️Оферта, которая требует внимания 💊Медси перешла на тёмную сторону
★5 9 Вот это поворот: связанное (?) лицо Евротранса взыскивает с их дочки 3 млрд. рублей
★5 2 Глобальное производство стали в январе 2026 г. — пикирование продолжается. В России 22 месяц подряд происходит падение, кризис во всей красе!
★5 33 Нефтяной срез: выпуск №8. Перекрытие Ормузского пролива + рост цен на нефть против слабых отчетов за 4-й квартал 2025 и 1-й квартал 2026? Ищем лучших в все еще слабом секторе
★5 2 💼 Какую доходность облигации вы видите и что она означает
★5 1 Нефтяной рынок и новое бюджетное правило
★5 0 Стратегия на 2026 год: Куда нести деньги? Разбор ОФЗ, валютных облигаций и дивидендных акций
★4 0 Итоги недели 05.03.2026. СВО Трампа в Иране. Курс доллара и нефть
+181 33 Нефтяной срез: выпуск №8. Перекрытие Ормузского пролива + рост цен на нефть против слабых отчетов за 4-й квартал 2025 и 1-й квартал 2026? Ищем лучших в все еще слабом секторе
+146 75 Обезжирил свой брокерский счет на 1 400 000 рублей.
+130 46 Азия. Пятница.
+117 62 Мосбиржа, как вам это?
+104 4 Иран в центре внимания🔥Акции и инвестиции
+83 86 Читаю новости: "отнять, отобрать, запретить, зарегулировать" и грущу
+77 2 Интер РАО. МСФО 2025г. Тяжелые результаты, но дальше ещё тяжелее...
+70 2 Глобальное производство стали в январе 2026 г. — пикирование продолжается. В России 22 месяц подряд происходит падение, кризис во всей красе!
+66 18 Я ваш БРИКС труба шатал
+66 7 Стройка уходит из столиц, а девелоперы начнут банкротиться.

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

86к Читаю новости: "отнять, отобрать, запретить, зарегулировать" и грущу
46к Азия. Пятница.
38к Иран сопротивляется, но силы не равны
29к Капсула времени: AI победил
26к Надо действовать быстрее !
22к Индекс МБ сегодня
18к Я ваш БРИКС труба шатал
15к Почему Сбербанк - основная бумага в моих портфелях
15к Россия и мир. С 2013 года как обрубило...
10к Финальный список машин, на которых можно будет работать в такси

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

....все тэги



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