Стільниковий вхід для виклику макросу в сусідній комірці

Проблема

У мене є сценарій, який я хотів би автоматизувати. Сценарій такий

Якщо я введу значення в будь-якій комірці певного стовпця, я хочу, щоб системний час був введений у сусідню комірку. В даний час я використав цю команду в макросі, щоб зробити це, але це ручний процес (ActiveCell.Value = Час), і я повинен натиснути на сусідню клітинку, а потім натиснути кнопки швидкого доступу, щоб зробити це кожен раз.

Приклад:

Якщо я введу 123 в комірці A2, то я хочу, щоб системний час (наприклад, 6:59:33 PM) був захоплений в комірці B2. Я хочу продовжувати вводити значення в стовпці 'A', один під іншим, при цьому системний час автоматично вводиться до другого у відповідній сусідній комірці у стовпці 'B'. Чи можливо це, було б чудово, якби хтось міг мені допомогти.

Рішення

Реалізуйте цей код на робочому аркуші, на якому ви хочете працювати (клацніть правою кнопкою миші на вкладці робочого листа, натисніть на коді перегляду):

 Приватний робочий аркуш_Зміни (ByVal Target As Range) ActiveCell.Offset (-1, 1) = Sub End Time 

Всякий раз, коли ви кладете щось у клітинку і натискаєте ENTER, поточне системне час ставиться у сусідню клітинку праворуч.

Примітка

Зверніть увагу, що ви повинні підтвердити запис, натиснувши ENTER і не використовувати стрілки або TAB.

Завдяки Trowa за цей відгук на форумі.