求组大大们，如何双击某几个单元格分别隐藏对应的列

jaye_koo

如图所示，我现在根据论坛大大的公式修改之后只捣腾出双击一个单元格隐藏/显示 某些列，公式如下：


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

    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("F2:F2")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("B3:E3")
        xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden

End If
End Sub


利用这个公司双击F2单元格可隐藏1月的周数据，再次双击可以显示1月周数据。


如果需求每个月都如此，是否能实现？就是点击F2隐藏/显示1月的周数据，点击K2隐藏/显示2月的周数据，以此类推，(并且这个F2单元格是否可以锁定住？因为双击隐藏后必须点其他单元格再回来点击F2才会显示，括号内红的可有可无）

liangmutou01

上传一个附件吧

jaye_koo

liangmutou01 发表于 2019-12-20 19:22
上传一个附件吧

自己摸索出来了，谢谢~