<em>EXCEL</em>用<em>VBA</em>将<em&g

请用工zhidao作表专的 BeforeDoubleClick 事件属：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = Range("A1") Then
        userfomr1.Show
    End If
End Sub

程序知代码如下：道

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

例子文件：容

 

没有直接的解决办法.

换一种思百路吧度.
在关闭窗体事件加入:
Application.ScreenUpdating = False'取消Excel刷新
Sheet1.Range("A65536").Select'关闭窗体后,自动选择知另一个固定单元格
Application.ScreenUpdating = True'恢复道Excel刷新

然后在Worksheet_SelectionChange事件中版,加入
if Target.Address(0, 0)="A65536" then exit sub '如果是自动选择的单元格就退出权事件

点击 录制宏 执行：全选-调字体9号-最合适行高-最合适列宽

点击 结束录制宏

嗯 Ctrl+F11，在模块1中可以看到宏代码

本文标签：vba窗口(1)excel vba 双击事件(1)