20 января 2017, 23:19

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

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

Москва

1 857

с 2 января 2016

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

Сергей Гаврилов
20 января 2017, 23:24
It is not Visual Basic…
+1
- Гденьги ☭
  20 января 2017, 23:41
  Сергей Гаврилов, VBA же.
  +1
  - Сергей Гаврилов
    20 января 2017, 23:44
    Гденьги ☭, VBA и VB две очень большие разницы…
    +1
Андрей К
20 января 2017, 23:25
поясните словами, что хотите сделать
0
- Роман Франтовский
  20 января 2017, 23:32
  Андрей К, Нужно достичь следующего… при внесении данных в строчку (учитываем определенную ячейку, то есть столбец с ячейками «А» в «D» автоматом проставляется дата занесения данных в «А». Этого я достиг, но не работает удаление строчек и обнуление данных… даты в этих случаях обновляются. кстати при упорядочивание, дата не изменяется это +.
  0
  - Сергей Гаврилов
    20 января 2017, 23:48
    Роман Франтовский, я вот, например, ни хрена не понял из Вашего объяснения, хотя, наверно мог бы помочь…
    0
    - Роман Франтовский
      20 января 2017, 23:51
      Сергей Гаврилов, По простому… если вношу данные, то в последней ячейке фиксируется время и дата внесения.
      
      0
    - Роман Франтовский
      21 января 2017, 00:00
      Сергей Гаврилов, началось все с простого ...=ЕСЛИ(A2>0; (СЕГОДНЯ());"")
      0
Black Swan
20 января 2017, 23:29
В екселе есть следующая возможность -включить запись макроса и начать делать что то «руками» он интерпретирует это в код, а после нужные фрагменты кода вы уже можете использовать как образец.
0
- Гденьги ☭
  20 января 2017, 23:43
  Black Swan, судя по его коду, автор давно перерос самописные макросы. Но что он хочет — непонятно.
  0
Сергей Гаврилов
21 января 2017, 00:03
If Not Intersect(cell, Range(«A2:A20000»)) Is Nothing And Len(cell) <>0 Then
Добавил проверку на пустоту ячейки
0
- Роман Франтовский
  21 января 2017, 00:12
  Сергей Гаврилов, не собирается все вместе
  0
  - Сергей Гаврилов
    21 января 2017, 00:21
    Роман Франтовский, а чего пишет?
    
    0
    - Роман Франтовский
      21 января 2017, 06:40
      Сергей Гаврилов,
      
      0
    - Роман Франтовский
      21 января 2017, 21:36
      Сергей Гаврилов, кажется так заработает ...
      
      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error Resume Next
      Intersect(Columns(«A»), Target(1)).Offset(, 4) = Now
      End Sub
      
      0
- massimo
  21 января 2017, 08:12
  Сергей Гаврилов, сорри с просонья заминусил, не хотел…
  0
_____Life_Line
22 января 2017, 02:28
Я один считаю что эксель и вба параша, или его теперь можно отучить пересчитывать миллион триллионов раз одно и тоже, когда эксель закачал 500+ гб оперативы и висел часа полтора, а потом матлаб тоже самое посчитал за 0,02 сек я решил что он прикалывается
0