Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
before double click
Hi Folks!
Just "tinkering" around. How do you keep from going into edit mode on a before double click event? Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myHeight As Double Application.EnableEvents = False On Error GoTo sub_exit If Not Intersect(Target, Range("A1:A100")) Is Nothing Then With Target If .Value = "a" Then .Value = "" Else myHeight = .EntireRow.RowHeight .Value = "a" .Font.Name = "Marlett" .EntireRow.RowHeight = myHeight End If End With End If sub_exit: Application.EnableEvents = True End Sub Biff |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
before double click
Set Cancel to True if your condition is followed:
Private Sub Worksheet_BeforeDoubleClick( _ ByVal Target As Range, Cancel As Boolean) Dim myHeight As Double Application.EnableEvents = False On Error GoTo sub_exit If Not Intersect(Target, Range("A1:A100")) Is Nothing Then With Target If .Value = "a" Then .Value = "" Else myHeight = .EntireRow.RowHeight .Value = "a" .Font.Name = "Marlett" .EntireRow.RowHeight = myHeight End If End With Cancel = True End If sub_exit: Application.EnableEvents = True End Sub In article , "T. Valko" wrote: Hi Folks! Just "tinkering" around. How do you keep from going into edit mode on a before double click event? Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myHeight As Double Application.EnableEvents = False On Error GoTo sub_exit If Not Intersect(Target, Range("A1:A100")) Is Nothing Then With Target If .Value = "a" Then .Value = "" Else myHeight = .EntireRow.RowHeight .Value = "a" .Font.Name = "Marlett" .EntireRow.RowHeight = myHeight End If End With End If sub_exit: Application.EnableEvents = True End Sub Biff |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
before double click
Thanks, JE!
Biff "JE McGimpsey" wrote in message ... Set Cancel to True if your condition is followed: Private Sub Worksheet_BeforeDoubleClick( _ ByVal Target As Range, Cancel As Boolean) Dim myHeight As Double Application.EnableEvents = False On Error GoTo sub_exit If Not Intersect(Target, Range("A1:A100")) Is Nothing Then With Target If .Value = "a" Then .Value = "" Else myHeight = .EntireRow.RowHeight .Value = "a" .Font.Name = "Marlett" .EntireRow.RowHeight = myHeight End If End With Cancel = True End If sub_exit: Application.EnableEvents = True End Sub In article , "T. Valko" wrote: Hi Folks! Just "tinkering" around. How do you keep from going into edit mode on a before double click event? Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myHeight As Double Application.EnableEvents = False On Error GoTo sub_exit If Not Intersect(Target, Range("A1:A100")) Is Nothing Then With Target If .Value = "a" Then .Value = "" Else myHeight = .EntireRow.RowHeight .Value = "a" .Font.Name = "Marlett" .EntireRow.RowHeight = myHeight End If End With End If sub_exit: Application.EnableEvents = True End Sub Biff |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to change syperlink from single click to double click | Excel Worksheet Functions | |||
Change single click to double click | Excel Programming | |||
userform label double-click goes to click event | Excel Programming | |||
Click on graph bar to execute a double-click in a pivot table cell | Charts and Charting in Excel | |||
Mouse Over Graph, Capture Information on Click(Double Click) | Excel Programming |