在 Excel VBA 中使用双击功能

大佬教程收集整理的这篇文章主要介绍了在 Excel VBA 中使用双击功能，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决在 Excel VBA 中使用双击功能？@H_696_1@ 开发过程中遇到在 Excel VBA 中使用双击功能的问题如何解决？下面主要结合日常开发的经验，给出你关于在 Excel VBA 中使用双击功能的解决方法建议，希望对你解决在 Excel VBA 中使用双击功能有所启发或帮助；

我正在开发一个项目，该项目需要应用 2 个过滤器的双击功能，我之前问过一个问题，其中一位好心的用户使用以下代码回答了我的问题 Here。请注意，我已经调整了列和目标选项卡名称。

Option Explicit

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

    Const dname As String = "SFC" ' adjust desTination tab name
    Const dFIEld1 As Long = 2 ' 6 is "F"
    Const dFIEld2 As Long = 6 ' 11 is "K"

    Dim srg As Range: Set srg = Range("A1").CurrentRegion
    Dim irg As Range: Set irg = srg _
        .Resize(srg.Rows.Count - 1,srg.columns.Count - 2).offset(1,2)

    If Intersect(Target,irg) Is nothing Then Exit Sub

    Dim dCrit1 As String: dCrit1 = CStr(Cells(1,Target.column).value)
    Dim dCrit2 As String: dCrit2 = CStr(Cells(Target.Row,2).value)

    Dim DWs As Worksheet: Set DWs = Me.Parent.Worksheets(dName)
    if DWs.autoFilterMode Then
        DWs.autoFilterMode = false
    End If
    
    Dim DRG As Range: Set DRG = DWs.Range("A1").CurrentRegion
    DRG.autoFilter FIEld:=dFIEld1,Criteria1:=dCrit1
    DRG.autoFilter FIEld:=dFIEld2,Criteria1:=dCrit2
    
    Cancel = True
    DWs.Activate

End Sub

我将它粘贴到应该具有双击功能的工作表模块中，但是我似乎无法让它工作。 双击范围内没有错误，它只是打开单元格内的公式。文件中的宏已打开，有人知道可能是什么问题吗？

解决方法@H_696_1@

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

大佬总结

以上是大佬教程为你收集整理的在 Excel VBA 中使用双击功能全部内容，希望文章能够帮你解决在 Excel VBA 中使用双击功能所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。