作者：乔山办公网日期：
返回目录：excel表格制作
VBA没有提供来单击源事件知，只好道用SelectionChange 事件
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Target.Interior.Color = 255
Application.EnableEvents = True
End Sub
程序代码zd如下：内
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = "√容" Then
Target = "x"
ElseIf Target = "x" Then
Target = ""
Else
Target = "√"
End If
End Sub
例子文件：
你表格的内容复大吗？如果大的话，我的方法会很卡。
直接用表格双击命令，生成一个窗体，然后双击窗体里面的某个数值，制数值会自动生成在你双击的单元格中。如果数据量大，需要双击的单元格不固定或者数量很多的话。表格会zd很卡的。
代码如下复：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = "成功制百"
Cancel = True
End Sub
注意代码位置度不在问模块答里