Cella bevitel a szomszédos cellák makrójának hívásához

Probléma

Van egy olyan forgatókönyvem, amelyet szeretnék automatizálni. A forgatókönyv a következő

Ha egy értéket adok meg egy adott oszlop bármely cellájában, azt szeretném, ha a rendszeridőt a szomszédos cellába beírnánk. Jelenleg ezt a parancsot használtam egy makróban, de ez egy kézi folyamat (ActiveCell.Value = Time), és a szomszédos cellára kell kattintanom, majd minden alkalommal megnyomni a gyorsgombokat.

Példa:

Ha az A2 cellában 123-at írok be, akkor azt szeretném, ha a rendszeridőt (pl. 6:59:33 PM) a B2 cellában rögzítenénk. Folytatni szeretném az „A” oszlopban lévő értékek bevitelét a másik alatt, ahol a rendszeridő automatikusan a másodikba kerül a „B” oszlop megfelelő szomszédos cellájában. Ez lehetséges, félelmetes lenne, ha valaki segítene.

Megoldás

Végezze el ezt a kódot a munkalapon, amelyen szeretné dolgozni (kattintson jobb gombbal a munkalapra, kattintson a megtekintési kódra):

 Private Sub Worksheet_Change (ByVal Target As Range) ActiveCell.Offset (-1, 1) = Idő vége 

Amikor valamit behelyez egy cellába, és megnyomja az ENTER billentyűt, az aktuális rendszeridő a szomszédos cellába kerül jobbra.

jegyzet

MEGJEGYZÉS, hogy be kell erősítenie a bejegyzést az ENTER megnyomásával, és nem használja a nyilakat vagy a TAB-ot.

Köszönjük Trowa-nak ezt a tippet a fórumon.