Excel! Need your help for visual basic ...

20 января 2017, 23:19
|
Роман Франтовский

Сформировал отчет в котором прикрутил следующее:

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

127

17 комментариев

It is not Visual Basic…

Сергей Гаврилов

20 января 2017, 23:24
Ответить

Сергей Гаврилов, VBA же.

Гденьги ☭

20 января 2017, 23:41
Ответить

Гденьги ☭, VBA и VB две очень большие разницы…

Сергей Гаврилов

20 января 2017, 23:44
Ответить

поясните словами, что хотите сделать

Андрей К

20 января 2017, 23:25
Ответить

Андрей К, Нужно достичь следующего… при внесении данных в строчку (учитываем определенную ячейку, то есть столбец с ячейками «А» в «D» автоматом проставляется дата занесения данных в «А». Этого я достиг, но не работает удаление строчек и обнуление данных… даты в этих случаях обновляются. кстати при упорядочивание, дата не изменяется это +.

Роман Франтовский

20 января 2017, 23:32
Ответить

Роман Франтовский, я вот, например, ни хрена не понял из Вашего объяснения, хотя, наверно мог бы помочь…

Сергей Гаврилов

20 января 2017, 23:48
Ответить

Сергей Гаврилов, По простому… если вношу данные, то в последней ячейке фиксируется время и дата внесения.

Роман Франтовский

20 января 2017, 23:51
Ответить

Сергей Гаврилов, началось все с простого ...=ЕСЛИ(A2>0; (СЕГОДНЯ());"")

Роман Франтовский

21 января 2017, 00:00
Ответить

В екселе есть следующая возможность -включить запись макроса и начать делать что то «руками» он интерпретирует это в код, а после нужные фрагменты кода вы уже можете использовать как образец.

Black Swan

20 января 2017, 23:29
Ответить

Black Swan, судя по его коду, автор давно перерос самописные макросы. Но что он хочет — непонятно.

Гденьги ☭

20 января 2017, 23:43
Ответить

If Not Intersect(cell, Range(«A2:A20000»)) Is Nothing And Len(cell) <>0 Then
Добавил проверку на пустоту ячейки

Сергей Гаврилов

21 января 2017, 00:03
Ответить

Сергей Гаврилов, не собирается все вместе

Роман Франтовский

21 января 2017, 00:12
Ответить

Роман Франтовский, а чего пишет?

Сергей Гаврилов

21 января 2017, 00:21
Ответить

Сергей Гаврилов,

Роман Франтовский

21 января 2017, 06:40
Ответить

Сергей Гаврилов, кажется так заработает ...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Intersect(Columns(«A»), Target(1)).Offset(, 4) = Now
End Sub

Роман Франтовский

21 января 2017, 21:36
Ответить

Сергей Гаврилов, сорри с просонья заминусил, не хотел…

massimo

21 января 2017, 08:12
Ответить

Я один считаю что эксель и вба параша, или его теперь можно отучить пересчитывать миллион триллионов раз одно и тоже, когда эксель закачал 500+ гб оперативы и висел часа полтора, а потом матлаб тоже самое посчитал за 0,02 сек я решил что он прикалывается