Блог им. 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:
Фото
Татнефть отчиталась по МСФО за 2025 год: всё по прогнозу, но главный вопрос — что дальше при текущих ценах на нефть.
Татнефть отчиталась по МСФО — в целом без сюрпризов и ровненько по прогнозу (я оказался ближе всех). Прогноз публиковал в нефтяном срезе...
Фото
Олег Кузьмичев
23:49
Капитализация VK Tech на IPO могла бы составить 45–50 млрд руб.
Разработчик корпоративного программного обеспечения, входящий в структуру холдинга ВК, опубликовал финансовые результаты за 2025 год. Выручка...
Фото
Freedom Finance Global
14:56
Фото
Нефтяные качели: как на этом заработать?
9 марта, стоимость нефти марки Brent в моменте взлетала до отметки в $119,5 за баррель, что является максимальным значением с лета 2022...
Фото
Финам Брокер
15:46
Фото
Сбер РПБУ февраль 2026 г. - снижение резервов помогло удержать рекордную прибыль
Сбер опубликовал результаты за 2 месяца работы в 2026 году по РСБУ. Чистая прибыль за 2 месяца составила 325 млрд руб. (+21,4%). За февраль...
Фото
Анатолий Полубояринов
04:27

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

★16 19 Зapaбaтывaeм 270% гoдoвыx нa индeкce Mocбиpжи
★13 27 Я проверил 122 акции MOEX: нож на -20% даёт +8% через полгода
★9 30 Как я стал Senior-разработчиком благодаря ИИ
★6 9 С 23 марта 2026 года срочный рынок Московской биржи переходит на Единую торговую сессию (ЕТС).
★6 126 Отвечу на вопросы по рынку
★5 0 Итоги недели 12.03.2026. СВО Трампа в Иране идёт по плану. Курс доллара и нефть
★5 5 🛡️ Самые привлекательные облигации прямо сейчас. Меганадёжные
★4 13 Максим Орловский - про Сбер, ВУШ и Евротранс. В гостях Тарас Скворцов + Игорь Шимко
★4 2 Интеллект & Опыт. Тестируем ИИ на прочность! Часть вторая
★4 3 Сбербанк отчитался за февраль 2026 г. — процентная маржа растёт, корп. кредитование оживилось. Темпы дивидендной базы в 2026 г., выше, чем в 2025 г.
+125 27 Я проверил 122 акции MOEX: нож на -20% даёт +8% через полгода
+103 126 Отвечу на вопросы по рынку
+95 70 Пример того, как ChatGPT может стать эффективнее чем чтение горы учебников по финансам и инвестициям
+94 76 Индекс МБ сегодня
+92 9 Ближневосточный узел🔥Акции и инвестиции
+91 13 Максим Орловский - про Сбер, ВУШ и Евротранс. В гостях Тарас Скворцов + Игорь Шимко
+90 12 Сколько прибыли Совкомбанк заработал в 2025 году?
+85 8 Сбер РПБУ февраль 2026 г. - снижение резервов помогло удержать рекордную прибыль
+76 3 Сбербанк отчитался за февраль 2026 г. — процентная маржа растёт, корп. кредитование оживилось. Темпы дивидендной базы в 2026 г., выше, чем в 2025 г.
+67 7 Конвертация ВТБ: когда акций стало больше

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

3к О росте числа блокировок интернет-доменов в России и последствиях политики Роскомнадзора
3к США сняли запрет на продажу российской нефти и нефтепродуктов - разрешения будут действовать до 11 апреля 2026 года
1к Спикер парламента Ирана: Вооруженные силы отомстят за американо-израильскую атаку на старейший банк Ирана. «Сегодня наш вердикт — принцип «око за око», без исключений ...».

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

....все тэги



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