作者:乔山办公网日期:
返回目录: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
注意代码位置度不在问模块答里