Vstup buňky pro volání makra v sousední buňce

Problém

Mám scénář, který bych chtěl automatizovat. Scénář je následující

Pokud zadám hodnotu v libovolné buňce v určitém sloupci, chci, aby byl systémový čas zadán do sousední buňky. V současné době jsem použil tento příkaz v makru, aby to udělal, ale je to ruční proces (ActiveCell.Value = Time) a já musím kliknout na sousední buňku a pak stiskněte klávesové zkratky, aby to pokaždé.

Příklad:

Pokud zadám 123 v buňce A2, pak chci, aby systémový čas (např. 6:59:33 PM) byl zachycen v buňce B2. Chci pokračovat v zadávání hodnot ve sloupci „A“ pod sebou, přičemž systémový čas se automaticky zadává do druhé v odpovídající sousední buňce ve sloupci „B“. Je to možné, bylo by úžasné, kdyby mi někdo mohl pomoci.

Řešení

Tento kód implementujte do pracovního listu, na kterém chcete pracovat (klikněte pravým tlačítkem myši na kartu pracovního listu, klikněte na kód zobrazení):

 Private Sub Worksheet_Change (Cíl cíl ByVal jako rozsah) ActiveCell.Offset (-1, 1) = Časový konec Sub 

Kdykoliv vložíte něco do buňky a stisknete klávesu ENTER, aktuální systémový čas se vloží do sousední buňky vpravo.

Poznámka

POZNÁMKA: Zadání potvrďte stisknutím klávesy ENTER a nepoužívejte šipky nebo klávesu TAB.

Díky Trowa za tento tip na fóru.