15. april 2005 - 14:00Der er
11 kommentarer og 1 løsning
Oprettelse af genvejstast
Da jeg benytter funktionen "Indsæt speciel... Værdier" meget, kunne jeg godt tænke mig at oprette en genvejstast til funktionen (f.eks. Ctrl Å) eller en lignende funktion, der vil gøre funktionen hurtigere at anvende (meget gerne uden brug af mus), hvis det er muligt. (I øjeblikket benytter jeg højre musetast for at få adgang til funktionen).
Jeg har forsøgt mig via makro-funktionen, men fandt den ikke tidsbesparende/enklere, da den oprettede "Indsæt speciel makroknap" skal placeres et sted i arket, og i store ark så alligevel ikke er tilgængelig (uden for skærmbilledet).
Finder det heller ikke hurtigere, at lave en genvejs-knap i værktøjslinien via menuen "Funktioner.. Tilpas".
Huskede lige at jeg engang havde set en undo funktion i en af mine bøger, så her er den listet:
Sub ZeroRange() ' Inserts zero into all selected cells Dim i As Integer Dim cell As Range
' Abort if a range isn't selected If TypeName(Selection) <> "Range" Then Exit Sub
' The next block of statements ' Save the current values for undoing ReDim OldSelection(Selection.Count) Set OldWorkbook = ActiveWorkbook Set OldSheet = ActiveSheet i = 0 For Each cell In Selection i = i + 1 OldSelection(i).Addr = cell.Address OldSelection(i).Val = cell.Formula Next cell
' Insert 0 into current selection Application.ScreenUpdating = False Selection.Value = 0
' Specify the Undo Sub Application.OnUndo "Undo the ZeroRange macro", "UndoZero" End Sub
Sub UndoZero() ' Undoes the effect of the ZeroRange sub Dim i As Integer
' Tell user if a problem occurs On Error GoTo Problem
Application.ScreenUpdating = False
' Make sure the correct workbook and sheet are active OldWorkbook.Activate OldSheet.Activate
' Restore the saved information For i = 1 To UBound(OldSelection) Range(OldSelection(i).Addr).Formula = OldSelection(i).Val Next i Exit Sub
' Error handler Problem: MsgBox "Can't undo", vbCritical End Sub
Er opmærksom på "Indsæt værdier"-knappen, som også er nem/hurtig.. ville bare gerne "slippe" for musen :) men tak!
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.