1. 顽石财经首页
  2. 专题归档

VBA双击单元格触发事件

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then  '如果单元格所在列为第一列,则
    'If Target.Column < 3 And Target.Row < 10 Then  '如果单元格区域为A1:B9,则
        Cancel = True  '如果事件过程将此参数设为True,则程序结束后不执行默认的双击操作
        MsgBox "您双击了 " & Target.Address(0, 0) & " 单元格", vbOKOnly, "提示"
    End If
End Sub

本文来自用户投稿,不代表顽石财经立场;如侵犯了您的权益,请与本站联系;如若转载,请注明出处:https://www.rocknod.com/1410.html

发表评论

登录后才能评论
QR code