Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
What am I missing?
What am I missing? This code is in the "ThisWorkbook" Module; however it
does not execute ShiftLeft and ShiftRight when the designated keys are pressed. Private Sub App_WorkbookOpen(ByVal Wb As Workbook) Application.OnKey "%{LEFT}", "ShiftLeft" Application.OnKey "%{RIGHT}", "ShiftRight" End Sub Sub ShiftLeft() With Selection If (.IndentLevel 0) Then .InsertIndent -1 Else Beep End If End With End Sub Sub ShiftRight() With Selection If (.IndentLevel < 15) Then .InsertIndent 1 Else Beep End If End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
What am I missing?
I am assuming that this is a regular workbook and not an addin? Do you have a
class instantiated to catch events. If not then in ThisWorkbook you want Private Sub Workbook_Open() Application.OnKey "%{LEFT}", "ShiftLeft" Application.OnKey "%{RIGHT}", "ShiftRight" End Sub -- HTH... Jim Thomlinson "keithb" wrote: What am I missing? This code is in the "ThisWorkbook" Module; however it does not execute ShiftLeft and ShiftRight when the designated keys are pressed. Private Sub App_WorkbookOpen(ByVal Wb As Workbook) Application.OnKey "%{LEFT}", "ShiftLeft" Application.OnKey "%{RIGHT}", "ShiftRight" End Sub Sub ShiftLeft() With Selection If (.IndentLevel 0) Then .InsertIndent -1 Else Beep End If End With End Sub Sub ShiftRight() With Selection If (.IndentLevel < 15) Then .InsertIndent 1 Else Beep End If End With End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
What am I missing?
hey thr,
this assignment in workbook_open is havin no effect. Private Sub Workbook_Open() MsgBox "open" Application.OnKey "{~}", "EnterKey" End Sub Sub EnterKey() MsgBox "enter key" Call ActiveCell.Offset(ActiveSheet.Target.Row + 1, ActiveSheet.Target.Column) End Sub in the above code, enterkey is not being invoked. where should the application.onKey assignment be done. appreciate your inputs. thanks "Jim Thomlinson" wrote: I am assuming that this is a regular workbook and not an addin? Do you have a class instantiated to catch events. If not then in ThisWorkbook you want Private Sub Workbook_Open() Application.OnKey "%{LEFT}", "ShiftLeft" Application.OnKey "%{RIGHT}", "ShiftRight" End Sub -- HTH... Jim Thomlinson "keithb" wrote: What am I missing? This code is in the "ThisWorkbook" Module; however it does not execute ShiftLeft and ShiftRight when the designated keys are pressed. Private Sub App_WorkbookOpen(ByVal Wb As Workbook) Application.OnKey "%{LEFT}", "ShiftLeft" Application.OnKey "%{RIGHT}", "ShiftRight" End Sub Sub ShiftLeft() With Selection If (.IndentLevel 0) Then .InsertIndent -1 Else Beep End If End With End Sub Sub ShiftRight() With Selection If (.IndentLevel < 15) Then .InsertIndent 1 Else Beep End If End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Who is missing ? | Excel Discussion (Misc queries) | |||
Toolbars Missing, And option to Add Missing | Excel Discussion (Misc queries) | |||
On Error? Creates 1 missing worksheet then never detects any other missing worksheets | Excel Programming | |||
Missing Row | Excel Worksheet Functions | |||
Add-ins missing | Excel Programming |