Доброго времени суток. Уважаемые, написал макродиректором нижеуказанный макрос. не получается програмно внести текущую время и дату в ячейку столбца17 после внесения изменений в ячейку столбца 2 и вернуться затем в ячейку столбца 8.
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("a3:a400000,b3:b4000,q3:q4000,h3:h4000,i3:i4000,j3:j4000,k3:k4000,l3:l4000,m3:m4000" , Target) Is Nothing Then
If Target.Column = 1 Then Target.Offset(0, 1).Select
'If Not Intersect(Range("a3:a4000" , Target) Is Nothing Then
'Worksheet_Change
If Target.Column = 2 Then Target.Offset(0, 14).Select
ActiveCell.FormulaR1C1 = Now
If Target.Column = 2 Then Target.Offset(0, 6).Select
If Target.Column = 8 Then Target.Offset(0, 1).Select
If Target.Column = 9 Then Target.Offset(0, 1).Select
If Target.Column = 10 Then Target.Offset(0, 1).Select
If Target.Column = 11 Then Target.Offset(0, 1).Select
If Target.Column = 12 Then Target.Offset(0, 1).Select
If Target.Column = 13 Then Target.Offset(1, -12).Select
End If
End Sub |
