不触发工作表单元格可以运行工作表事件程序吗？

kuangben8

各位老师好！
    我编写了一个工作表事件过程，想要实现的目的：自动判断 A1：A30单元格内容是否为空，若为空，则隐藏该行，
若不为空，则不隐藏该行。如下图所示：



以上程序在工作表里操作时，在组合框里选择一个数字后，需要任意激活一个单元格，然后程序才可以运行，否则程序不运行！我希望通过选择组合框里的一个数字，该工作表事件就直接运行，不知道该如何修改？在此请教各位老师给予帮助，感谢！！ 不触发工作表单元格可以运行工作表事件程序吗.zip (15.84 KB, 下载次数: 3)

2017-7-2 22:10 上传

点击文件名下载附件

小花鹿

在模块中写好代码，然后指定宏就行了

山菊花

给控件指定宏。

宝贝万岁

要么指定宏，要么直接用单元格设置有效性

today0427

设置控件的change事件，一旦控件值改变，就直接对工作表进行操作。

kuangben8

山菊花 发表于 2017-7-2 23:04
给控件指定宏。

老师好！我把您的程序移到实际的工作表里，把控件改成透视表的切片器，发现只要一点击切片器里的选项，鼠标就转圈，一会之后还是原样，表格没有变动。所以想请教一下：
If Intersect(target, Range("a5:a30")) Is Nothing Then Exit Sub
这句话是判断什么的？

山菊花

判断编辑的区域是否在a5:a30。

kuangben8

山菊花 发表于 2017-7-3 21:50
判断编辑的区域是否在a5:a30。

老师好！附件如下：
kuangben8_不触发工作表单元格可以运行工作表事件程序吗.zip (21.44 KB, 下载次数: 5)

2017-7-3 21:59 上传

点击文件名下载附件

点击透视表的切片器没有反应，请教老师帮忙看看。

山菊花

试试：
Private Sub Worksheet_Calculate()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = 1 To 30
        If Range("A" & i).Value = "" Then
            Range("A" & i).EntireRow.Hidden = True
        Else
            Range("A" & i).EntireRow.Hidden = False
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

kuangben8

山菊花 发表于 2017-7-3 22:50
试试：
Private Sub Worksheet_Calculate()
    Dim i As Integer

感谢山版帮助，可以实现我的目的了。