26 июня, 2015, обновлено 23 января, 2016

Microsoft Excel

Microsoft Excel, автоматическая вставка текущей даты при вводе данных

ПКМ на вкладке листа - исходный код - вставляем:

Private Sub Worksheet_Change(ByVal Target As Range)
    For Each cell In Target
       If Not Intersect(cell, Range("H3:H100")) Is Nothing Then
            With cell.Offset(0, 2)
               .Value = Format(Now, "yyyy-MM-dd hh:mm:ss")
               .EntireColumn.AutoFit
            End With
       End If
    Next cell
End Sub

Редактируем отслеживаемые ячейки ("H3:H100") и смещение для вставки даты редактирования Offset(0, 2).


Добавить комментарий

2010–2018 Блог Максима Златова, контакты

PHP execution time: 0.0110 s.
SQL execution time: 0.0015 s. (select publication with comments)

Яндекс.Метрика