Добрый день. Проблема в следующем, есть столбец В, и ячейка D3. Как сделать чтобы при вводе времени в ячейку D3 текущего времени, столбец В автоматически заполнялся, то есть заполнялась последняя пустая ячейка и при этом не менялись значения предыдущих ячеек ?
Добрый день. Проблема в следующем, есть столбец В, и ячейка D3. Как сделать чтобы при вводе времени в ячейку D3 текущего времени, столбец В автоматически заполнялся, то есть заполнялась последняя пустая ячейка и при этом не менялись значения предыдущих ячеек ?SergejSor
Private Sub Worksheet_Change(ByVal Target As Range) Dim i& i = Cells(Rows.Count, 2).End(xlUp).Row If Target.Address <> "$D$3" Then Exit Sub Cells(i + 1, 2).NumberFormat = "h:mm" Cells(i + 1, 2).Value = Cells(3, 4).Value Exit Sub End Sub
[/vba]
[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range) Dim i& i = Cells(Rows.Count, 2).End(xlUp).Row If Target.Address <> "$D$3" Then Exit Sub Cells(i + 1, 2).NumberFormat = "h:mm" Cells(i + 1, 2).Value = Cells(3, 4).Value Exit Sub End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
