Здравствуйте, уважаемые профи данного форума.
Помогите пожалуйста усовершенствовать макрос таким образом, чтобы при внесении в диапазон А2: А40 цифры 1 - в колонке F2:F40 появилось время.
Сейчас все работает, однако время появляется при внесении любого значения (числового или алфавитного).
Заранее спасибо.
Помогите пожалуйста усовершенствовать макрос таким образом, чтобы при внесении в диапазон А2: А40 цифры 1 - в колонке F2:F40 появилось время.
Сейчас все работает, однако время появляется при внесении любого значения (числового или алфавитного).
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Target If Not Intersect(cell, Range("A2:A40")) Is Nothing Then With cell.Offset(0, 5) .Value = Time End With End If Next cell End Sub |
Заранее спасибо.