Ну очень шикарный сайт, уже не первый раз решаю свои задачи с помощью этого сайта.
СПАСИБО за то что Вы есть.
На основе вашей статьи и прочитаных коминтариев отредактировал код.
Для чего и какая была задача?!
Так как в макросах не разбераюсь скопировал ваш код и отредактировал на свой мотив согласно гайду и коментариям в статье .
Задача состоит в том что при внесении в первую колонку таблицы появлялась дата в 13 или (М) колонке, и потом когда таблица редактирюется и при внисении даных в колонку номер 12 (или L) отображалась дата редактирования в колонке 15 (или О).
Этого добился так как все вопросы и ответы были заданы в этой статье и были даны ответы.
Но мне еще нужно чтобы после того как в колонке L введутся даные то весь текст в строке от A до P перекрасился в зеленый цвет. Искал на сайте, нашел похожую статью по дублям и окрасам но оно мне не подходит.
Были пробы сделать через
но оно красит все.
Подскажите пожалуйста что нужно вписать в последнем блоке чтобы решить мою задачу.
И еще вопрос, можна ли что-то сделать так чтобы после того как макрос сделал свое дело его можна было отменить.
Бывает такое что отредактивал таблицу и потом вписал даные в первую ячейку после чего сработал макрос и вписал дату, и после этого момента перестает работать CTRL+Z тоисть отмена. Єто реально?
Большое спасибо за ответ.
СПАСИБО за то что Вы есть.
На основе вашей статьи и прочитаных коминтариев отредактировал код.
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
For Each Cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(Cell, Range("A5:A4000")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2
If IsEmpty(Target) Then
Target(1, 13) = Empty
Else
With Target(1, 13)
.Value = Date
End With
End If
End If
If Not Intersect(Cell, Range("L5:L4000")) Is Nothing Then 'если изменененная ячейка попадает в диапазон L2
If IsEmpty(Target) Then
Target(1, 4) = Empty
Else
With Target(1, 4)
.Value = Date
End With
End If
End If
If Not Intersect(Cell, Range("L5:L4000")) Is Nothing Then 'если изменененная ячейка попадает в диапазон L2
With Cell.Offset(0, 1)
Cell.Font.Color = RGB(112, 173, 71)
End With
End If
Next Cell
End Sub
|
Так как в макросах не разбераюсь скопировал ваш код и отредактировал на свой мотив согласно гайду и коментариям в статье .
Задача состоит в том что при внесении в первую колонку таблицы появлялась дата в 13 или (М) колонке, и потом когда таблица редактирюется и при внисении даных в колонку номер 12 (или L) отображалась дата редактирования в колонке 15 (или О).
Этого добился так как все вопросы и ответы были заданы в этой статье и были даны ответы.
Но мне еще нужно чтобы после того как в колонке L введутся даные то весь текст в строке от A до P перекрасился в зеленый цвет. Искал на сайте, нашел похожую статью по дублям и окрасам но оно мне не подходит.
Были пробы сделать через
| Код |
|---|
Rows.Font.Color = RGB(112, 173, 71) |
но оно красит все.
Подскажите пожалуйста что нужно вписать в последнем блоке чтобы решить мою задачу.
И еще вопрос, можна ли что-то сделать так чтобы после того как макрос сделал свое дело его можна было отменить.
Бывает такое что отредактивал таблицу и потом вписал даные в первую ячейку после чего сработал макрос и вписал дату, и после этого момента перестает работать CTRL+Z тоисть отмена. Єто реально?
Большое спасибо за ответ.
Изменено: - 06.02.2019 17:24:30
