时间戳

首页 > 解决方案 > 当另一个工作表中的单元格值更改时，运行自动重新过滤的 VBA 代码

excel - 当另一个工作表中的单元格值更改时，运行自动重新过滤的 VBA 代码

问题描述

我有 2 张工作表，其中 1 张在一个列中更改值 Y/N，另一张工作表查看第一张工作表的某些列，包括 Y/N 列。我已将工作表 2 中的 Y/N 列过滤为“Y”，因此每当我在工作表 1 中进行更改时，我都必须在过滤器上单击“重新应用”。我尝试编写两个 VBA 代码以重新应用，另一个代码在值更改但没有运气时调用“重新应用”。

((((这是重新应用过滤器，“摘要”是 sheet2))))

Sub ReapplyFilter()  
  ActiveWorkbook.Worksheets("Summary").AutoFilter.ApplyFilter  
End Sub

（（这是针对 sheet1“索引概念”，我在其中更改 Y/N）））

Private Sub Worksheet_Change(ByVal Target As Range)  
    If Not Intersect(Target, Worksheets("Index Concept").Range("AM24:AM64")) Is Nothing Then Run Sheet1.ReapplyFilter  
End Sub

标签： excelvba

解决方案

推荐阅读