Celleindgang til opkaldsmakro i tilstødende celle

Problem

Jeg har et scenario, som jeg gerne vil automatisere. Scenariet er som følger

Hvis jeg indtaster en værdi i en celle i en bestemt kolonne, vil jeg gerne have systemtiden anbragt i den tilstødende celle. I øjeblikket har jeg brugt denne kommando i en makro for at gøre det, men det er en manuel proces (ActiveCell.Value = Time), og jeg skal klikke på den tilstødende celle og derefter trykke på genvejstasterne for at gøre det hver gang.

Eksempel:

Hvis jeg indtaster 123 i celle A2, så vil jeg have systemtiden (f.eks. 6:59:33 PM), der skal fanges i celle B2. Jeg vil fortsætte med at indtaste værdier i kolonnen 'A' den ene under den anden, hvor systemtiden automatisk indføres til den anden i den tilsvarende tilstødende celle i kolonne 'B'. Er det muligt, ville det være fantastisk, hvis nogen kunne hjælpe mig.

Opløsning

Gennemfør denne kode på det regneark, du vil have det til at fungere på (højreklik på fanen regneark, klik på visningskode):

 Private Sub Worksheet_Change (ByVal Target As Range) ActiveCell.Offset (-1, 1) = Time End Sub 

Når du lægger noget i en celle og rammer ENTER, sættes den nuværende systemtid i den tilstødende celle til højre.

Bemærk

BEMÆRK, at du skal bekræfte din indtastning ved at trykke på ENTER og ikke bruge pilene eller TAB.

Tak til Trowa for dette tip på forummet.