Блог им. 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
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
Smart-lab премиум
Я один считаю что эксель и вба параша, или его теперь можно отучить пересчитывать миллион триллионов раз одно и тоже, когда эксель закачал 500+ гб оперативы и висел часа полтора, а потом матлаб тоже самое посчитал за 0,02 сек я решил что он прикалывается
avatar
_____Life_Line

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

★13 3 10 облигаций с ежемесячным начислением купонов и доходностью от 23 до 36%
★13 18 3 способа, как сэкономить на налогах с банковских вкладов
★12 99 Эксперты которых вы заслужили - Тимофей Мартынов
★8 18 🏘️ САМОЛЁТ: Как выжить, когда люди перестали брать ипотеку? Антиутопия девелопера
★7 24 🗿 ИНФЛЯЦИЯ – вышла за пределы всех прогнозов. Осталось 4 дня до повышения ключевой ставки! 23% или всё-таки ЦБ готовит сюрприз?
★7 22 Накопительные счета💰
★7 9 Где дивиденды, Мосбиржа? История, доходность, дивидендная политика и перспективы Московской биржи
★5 9 👶Портфель внучков от Кот.Финанс (⛄️декабрь)
★5 58 -32% от хая по индексу....Где-то тут и есть дно
★5 126 Ситуация на текущий момент
+287 99 Эксперты которых вы заслужили - Тимофей Мартынов
+239 7 И все же главное это правильно все объяснить
+230 126 Ситуация на текущий момент
+161 103 Хейтеры, этот пост для вас, мочите меня!
+131 116 Вывел деньги
+119 90 Азия. Вторник.
+113 85 Кому? Ну кому вы будете продавать?
+108 58 -32% от хая по индексу....Где-то тут и есть дно
+106 82 Мониторинг лойёв. Пошли ниже:( Смотрим = 23 рекордных лоя
+95 152 Индекс МБ сегодня

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

285к В России кризис
156к Метод Геллы. Стопицот (bitcoin)
152к Индекс МБ сегодня
126к Ситуация на текущий момент
99к Эксперты которых вы заслужили - Тимофей Мартынов
103к Хейтеры, этот пост для вас, мочите меня!
90к Азия. Вторник.
85к Кому? Ну кому вы будете продавать?
82к Мониторинг лойёв. Пошли ниже:( Смотрим = 23 рекордных лоя
58к -32% от хая по индексу....Где-то тут и есть дно

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

....все тэги



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