Sys-Admin Forum

Excel вставляем текущую дату

Можно вставить текущую дату автоматически при активной ячейке, необходимо запустить VB Editor, два раза щелкнуть на требуемый лист, в появившемся окне редактирования кода вставляем:

Col = Left(Target.Address, 2)
If Col = “$A” Then Target.Offset(0, 1) = Now

Итого получается:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Col = Left(Target.Address, 2)
If Col = "$B" Then Target.Offset(0, 3) = Now

End Sub

[IMG]http://savepic.org/255318.gif