Ввод ячейки для вызова макроса в соседней ячейке

вопрос

У меня есть сценарий, который я хотел бы автоматизировать. Сценарий таков

Если я ввожу значение в любую ячейку в определенном столбце, я хочу, чтобы системное время было введено в соседней ячейке. В настоящее время я использовал эту команду в макросе, чтобы сделать это, но это ручной процесс (ActiveCell.Value = Time), и я должен нажать на соседнюю ячейку и затем нажимать кнопки быстрого доступа, чтобы сделать это каждый раз.

Пример:

Если я введу 123 в ячейку A2, то я хочу, чтобы системное время (например, 6:59:33 PM) было зафиксировано в ячейке B2. Я хочу продолжить ввод значений в столбце «A» один под другим, причем системное время автоматически вводится с точностью до секунды в соответствующей соседней ячейке в столбце «B». Возможно ли это, было бы замечательно, если бы кто-то мог мне помочь.

Решение

Реализуйте этот код на рабочем листе, над которым вы хотите, чтобы он работал (щелкните правой кнопкой мыши на вкладке рабочего листа, нажмите на просмотр кода):

 Private Sub Worksheet_Change (ByVal Target As Range) ActiveCell.Offset (-1, 1) = Время окончания Sub 

Всякий раз, когда вы помещаете что-то в ячейку и нажимаете ENTER, текущее системное время помещается в соседнюю ячейку справа.

Заметка

Обратите внимание, что вы должны подтвердить свой ввод, нажав клавишу ВВОД, а не использовать стрелки или TAB.

Спасибо Trowa за этот совет на форуме.