Worksheet_BeforeDoubleClick事件

e丫丫

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub
程序中cancel起什么作用，能具体举例说明吗？谢谢

清风_ll

所有事件的Cancel参数,都用来取消该事件的下一步执行,就BeforeDoubleClick事件来说,正常情况下,将使Target 单元格进入编辑状态,如果在事件中指定Cancel参数为True,将禁止单元格进入编辑状态.

zldccmx

之所以事件称之为：BeforeDoubleClick，就是说在你双击鼠标时系统执行原来的功能之前先响应用户设定的功能，然后再根据用户是否允许执行原来的功能(对于双击鼠标而言，就如清风大师所说的，原本是直接进入单元格的编辑状态)，是否允许由Cancel参数来决定，这个参数默认是False，也就是不中断(挂起)原来的功能，如果用户设定Cancel=True，则是让系统知道，用户禁止执行其原来的功能。

zldccmx

类似的还有
工作表事件： BeforeRightClick
工作簿事件：BeforeClose、BeforePrint、BeforeSave
窗体事件：BeforeDragOver、BeforeDropOrPaste等

e丫丫

有点明白了，谢谢两位大师

rsdhy

学习了，谢谢，默认是false啊？

Dim rng As String
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
If target.Address = rng Then
If Len(target) = 0 Or target = "×" Then
target = "√"
Else
target = "×"
End If

不太明白
End If
End Sub

liushenglly

我来学习下

fisherhetao

哪位高手帮看下下面的代码，在excel不能通过，我想每行一个记录都统计检测时间，时间记录咋c3里。谢谢！
着急!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Cells.Count = 1 And (Not Intersect(Target.Cells(1), Range("B1")) Is Nothing) Then
[B1] = "开始时间"
[C1] = Format(Now(), "Hh:mm:Ss")
[D1] = Timer [D1].Font.ColorIndex = 2
[B2:D3].ClearContents
End If

If Target.Cells.Count = 1 And (Not Intersect(Target.Cells(1), Range("B2")) Is Nothing) Then
[B2] = "结束时间"
[C2] = Format(Now(), "Hh:mm:Ss")
[D2] = Timer [D2].Font.ColorIndex = 2
[B3] = "总共用时"
[C3] = Format([D2] - [D1], "#0.00")
[D3] = "秒"
End If

Target.Offset(1, 0).Select

End Sub

kaolacola

清风_ll 发表于 2009-7-12 22:36
所有事件的Cancel参数,都用来取消该事件的下一步执行,就BeforeDoubleClick事件来说,正常情况下,将使Target  ...

原来如此，不明觉厉~~~~~

Peter_Chow

路过，标记……