Jak automaticky přidat / zadat aktuální datum a čas v buňce dvojitým kliknutím v aplikaci Excel?

Pokud potřebujete vložit aktuální datum nebo čas často do listu, můžete vyzkoušet metodu v tomto článku. Tento článek vám pomůže automaticky přidat nebo zadat aktuální datum nebo datum v zadaných buňkách rozsahu pouze dvojitým kliknutím.

Dvojitým kliknutím automaticky přidáte / zadáte aktuální datum nebo čas s kódem VBA

Dvojitým kliknutím automaticky přidáte / zadáte aktuální datum nebo čas s kódem VBA

Můžete spustit níže uvedený kód VBA a automaticky přidat aktuální datum nebo čas v buňce dvojitým kliknutím. Postupujte prosím následovně.

1. Klikněte pravým tlačítkem na kartu List, do které chcete vložit aktuální datum, do vybraných buněk a poté vyberte Zobrazit kód z nabídky pravého tlačítka myši.

2. V Microsoft Visual Basic pro aplikace zkopírujte a vložte níže uvedený kód VBA do okna Kód.

Kód VBA: Dvojitým kliknutím přidáte do buňky aktuální datum

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

Poznámky:

3. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno a vrátit se do listu.

Od této chvíle při dvojitém kliknutí na libovolnou buňku ve specifikovaném rozsahu A1: B10. Aktuální datum nebo čas budou zadány automaticky.

Související články:

• Jak dvakrát kliknout na buňku a přidat 1 k této hodnotě buňky v aplikaci Excel?
• Jak přidat zaškrtnutí do buňky dvojitým kliknutím v aplikaci Excel?