Здравствуйте, подскажите пожалуйста.
Ниже код, который используется для вывода текущей даты при заполнении ячеек в определенном диапазоне, как можно модернизировать данный код, что бы можно было помимо диапазона F:F и вводя дату в соседнюю ячейку еще и заполняя данные в диапазоне H:H вводить в соседнюю ячейку текущую дату?
Ниже код, который используется для вывода текущей даты при заполнении ячеек в определенном диапазоне, как можно модернизировать данный код, что бы можно было помимо диапазона F:F и вводя дату в соседнюю ячейку еще и заполняя данные в диапазоне H:H вводить в соседнюю ячейку текущую дату?
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Target 'проходим по всем измененным ячейкам If Not Intersect(cell, Range("F:F")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100 With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату .Value = Now .EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке End With End If Next cell End Sub |