changing F keyes

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I used to have a keyboard with CUT, COPY & PASTE as single keystrokes. Now I
have a new keyboard without them, and I miss them. I want to make 3 adjoining
keyes (say F10, F11, F12) into SINGLE STROKE SHORTCUTS. I have achieved it
with Corel & Word but can't do it with Exel.
 
I wouldn't do this. I think you'll find that excel behaves better if you use
the built in shortcut keys--ctrl-x to cut, ctrl-c to copy and ctrl-v to paste.

Running macros can have effects that you don't want--one of these problems is
that the Undo and Redo stack is sometimes (usually!) killed.

But if you want, ...

You can use a macro to reassign your F keys:

Option Explicit
Sub ReassignF10()
Application.OnKey "{f10}", "'" & ThisWorkbook.Name & "'!NewF10"
Application.OnKey "{f11}", "'" & ThisWorkbook.Name & "'!NewF11"
Application.OnKey "{f12}", "'" & ThisWorkbook.Name & "'!NewF12"
End Sub
Sub BackToNormal()
Application.OnKey "{f10}"
Application.OnKey "{f11}"
Application.OnKey "{f12}"
End Sub
Sub NewF10()
On Error Resume Next
Selection.Cut
If Err.Number <> 0 Then
Beep
End If
On Error GoTo 0
End Sub
Sub NewF11()
On Error Resume Next
Selection.Copy
If Err.Number <> 0 Then
Beep
End If
On Error GoTo 0
End Sub
Sub NewF12()
On Error Resume Next
ActiveSheet.Paste
If Err.Number <> 0 Then
Beep
End If
 
Back
Top