Здравствуйте,
Есть макрос с добавлением даты в соседнюю ячейку. Только вот дата добавляется включая с временем. Помогите пожалуйста сделать так чтобы время не добавлялось.
Есть макрос с добавлением даты в соседнюю ячейку. Только вот дата добавляется включая с временем. Помогите пожалуйста сделать так чтобы время не добавлялось.
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) 'Update 20140722 Dim WorkRng As Range Dim Rng As Range Dim xOffsetColumn As Integer Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target) xOffsetColumn = 1 If Not WorkRng Is Nothing Then Application.EnableEvents = False For Each Rng In WorkRng If Not VBA.IsEmpty(Rng.Value) Then Rng.Offset(0, xOffsetColumn).Value = Now Rng.Offset(0, xOffsetColumn).NumberFormat = "dd/mm/yyyy" Else Rng.Offset(0, xOffsetColumn).ClearContents End If Next Application.EnableEvents = True End If End Sub |
По почерку принтера можно судить о том, как нервничает компьютер