Förbättra snabbkommandon

Excel erbjuder, precis som de flesta Windows-program, snabbkommandon via tangentbordet. Antag att vi vill förbättra det inbyggda snabbkommandot för att infoga datum (Ctrl+Skift+;) med att det också ska infoga tid samt ange dessa uppgifter i samtliga markerade celler.

I detta tips visas hur vi kan utöka dess funktionalitet.

Steg 1 - Skapa proceduren i en standardmodul

Option Explicit   Sub Insert_Date_Time()   Dim rnSelection As Range     Set rnSelection = Selection     With rnSelection     .Value = Now     .EntireColumn.AutoFit   End With  End Sub

 

Steg 2 - Skapa följande procedur i ThisWorkbook-modulen
 

Option Explicit   Private Sub Workbook_Open()   Application.OnKey "^+;", "Insert_Date_Time" End Sub