|
How do I exit a cells edit mode?
If you select a cell and press F2, or double click it, the cell will go into
edit mode. I am using the following code to insert ticks and crosses in blank cells: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell = "û" Or Len(ActiveCell) = 0 Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.ColorIndex = 50 ActiveCell = "ü" Else If ActiveCell = "ü" Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.Color = vbRed ActiveCell = "û" End If End If End Sub After this code has run the cell goes into edit mode, and as the code runs 'BeforeDoubleClick' I can't get out of edit mode in the code. Any ideas? -- Adam Thwaites Access Database Designer Manchester, UK |
How do I exit a cells edit mode?
Through this in at the beginning of your code to stope editing in the cell
Application.EditDirectlyInCell = False -- -John Please rate when your question is answered to help us and others know what is helpful. "Adam Thwaites" wrote: If you select a cell and press F2, or double click it, the cell will go into edit mode. I am using the following code to insert ticks and crosses in blank cells: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell = "û" Or Len(ActiveCell) = 0 Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.ColorIndex = 50 ActiveCell = "ü" Else If ActiveCell = "ü" Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.Color = vbRed ActiveCell = "û" End If End If End Sub After this code has run the cell goes into edit mode, and as the code runs 'BeforeDoubleClick' I can't get out of edit mode in the code. Any ideas? -- Adam Thwaites Access Database Designer Manchester, UK |
How do I exit a cells edit mode?
Add the Cancel = True line as shown
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As _ Boolean) If ActiveCell = "û" Or Len(ActiveCell) = 0 Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.ColorIndex = 50 ActiveCell = "ü" Else If ActiveCell = "ü" Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.Color = vbRed ActiveCell = "û" End If End If Cancel = True 'add this line End Sub Gord Dibben MS Excel MVP On Wed, 17 Oct 2007 09:47:01 -0700, Adam Thwaites wrote: If you select a cell and press F2, or double click it, the cell will go into edit mode. I am using the following code to insert ticks and crosses in blank cells: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell = "û" Or Len(ActiveCell) = 0 Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.ColorIndex = 50 ActiveCell = "ü" Else If ActiveCell = "ü" Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.Color = vbRed ActiveCell = "û" End If End If End Sub After this code has run the cell goes into edit mode, and as the code runs 'BeforeDoubleClick' I can't get out of edit mode in the code. Any ideas? |
How do I exit a cells edit mode?
Insert
Cancel = True after the ActiveCell = ... lines. In article , Adam Thwaites wrote: If you select a cell and press F2, or double click it, the cell will go into edit mode. I am using the following code to insert ticks and crosses in blank cells: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell = "û" Or Len(ActiveCell) = 0 Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.ColorIndex = 50 ActiveCell = "ü" Else If ActiveCell = "ü" Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.Color = vbRed ActiveCell = "û" End If End If End Sub After this code has run the cell goes into edit mode, and as the code runs 'BeforeDoubleClick' I can't get out of edit mode in the code. Any ideas? |
How do I exit a cells edit mode?
Note that this will disable ALL double clicks, even if the active cell's
value is not "û","ü", or blank (which may be exactly what you want, but isn't obvious from your code). In article , Gord Dibben <gorddibbATshawDOTca wrote: Add the Cancel = True line as shown Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As _ Boolean) If ActiveCell = "û" Or Len(ActiveCell) = 0 Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.ColorIndex = 50 ActiveCell = "ü" Else If ActiveCell = "ü" Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.Color = vbRed ActiveCell = "û" End If End If Cancel = True 'add this line End Sub Gord Dibben MS Excel MVP On Wed, 17 Oct 2007 09:47:01 -0700, Adam Thwaites wrote: If you select a cell and press F2, or double click it, the cell will go into edit mode. I am using the following code to insert ticks and crosses in blank cells: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell = "û" Or Len(ActiveCell) = 0 Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.ColorIndex = 50 ActiveCell = "ü" Else If ActiveCell = "ü" Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.Color = vbRed ActiveCell = "û" End If End If End Sub After this code has run the cell goes into edit mode, and as the code runs 'BeforeDoubleClick' I can't get out of edit mode in the code. Any ideas? |
How do I exit a cells edit mode?
Thanks John
Will have to study this some more<g I see your second post and will look at that for pointers. Gord On Wed, 17 Oct 2007 11:31:45 -0600, JE McGimpsey wrote: Note that this will disable ALL double clicks, even if the active cell's value is not "û","ü", or blank (which may be exactly what you want, but isn't obvious from your code). In article , Gord Dibben <gorddibbATshawDOTca wrote: Add the Cancel = True line as shown Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As _ Boolean) If ActiveCell = "û" Or Len(ActiveCell) = 0 Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.ColorIndex = 50 ActiveCell = "ü" Else If ActiveCell = "ü" Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.Color = vbRed ActiveCell = "û" End If End If Cancel = True 'add this line End Sub Gord Dibben MS Excel MVP On Wed, 17 Oct 2007 09:47:01 -0700, Adam Thwaites wrote: If you select a cell and press F2, or double click it, the cell will go into edit mode. I am using the following code to insert ticks and crosses in blank cells: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell = "û" Or Len(ActiveCell) = 0 Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.ColorIndex = 50 ActiveCell = "ü" Else If ActiveCell = "ü" Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.Color = vbRed ActiveCell = "û" End If End If End Sub After this code has run the cell goes into edit mode, and as the code runs 'BeforeDoubleClick' I can't get out of edit mode in the code. Any ideas? |
How do I exit a cells edit mode?
Hi. Is there any way to cancel Excel edit mode using COM interfaces
from outside? I mean, can it be canceled from other application that gets pointer to Excel IDispatch? Any ideas? Thanks. On Oct 17, 7:31 pm, JE McGimpsey wrote: Note that this will disable ALL double clicks, even if the active cell's value is not "û","ü", or blank (which may be exactly what you want, but isn't obvious from your code). In article , Gord Dibben <gorddibbATshawDOTca wrote: Add the Cancel = True line as shown Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As _ Boolean) If ActiveCell = "û" Or Len(ActiveCell) = 0 Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.ColorIndex = 50 ActiveCell = "ü" Else If ActiveCell = "ü" Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.Color = vbRed ActiveCell = "û" End If End If Cancel = True 'add this line End Sub Gord Dibben MSExcelMVP On Wed, 17 Oct 2007 09:47:01 -0700, Adam Thwaites wrote: If you select a cell and press F2, or double click it, the cell will go into editmode. I am using the following code to insert ticks and crosses in blank cells: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell = "û" Or Len(ActiveCell) = 0 Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.ColorIndex = 50 ActiveCell = "ü" Else If ActiveCell = "ü" Then ActiveCell.Font.Name = "Wingdings" ActiveCell.Font.Size = "14" ActiveCell.Font.Color = vbRed ActiveCell = "û" End If End If End Sub After this code has run the cell goes intoeditmode, and as the code runs 'BeforeDoubleClick' I can't get out ofeditmodein the code. Any ideas? |
| All times are GMT +1. The time now is 02:55 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com