ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   changing F keyes (https://www.excelbanter.com/excel-discussion-misc-queries/149950-changing-f-keyes.html)

droper

changing F keyes
 

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.
--
Thanks for any help....David Roper


Dave Peterson

changing F keyes
 
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
On Error GoTo 0
End Sub

droper wrote:

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.
--
Thanks for any help....David Roper


--

Dave Peterson


All times are GMT +1. The time now is 02:58 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com