根据另一个工作表的范围内的更改自动执行宏

Question

每当 sheet1 范围内的单元格发生更改时，我都会尝试自动运行一个宏以在 sheet2 上运行。我已经尝试了很多东西，但我没有 vba 经验来知道它们有什么问题。基本上，sheet1 有我的输入，我为每个项目分配了 1-5 的优先级。 Sheet2 仅显示排名为 1、3 或 4 的项目。我使用 if 语句执行此操作，但这会在我的表中留下一堆空白行，因此我可以使用过滤器功能对空白行进行排序。如果我更改 sheet1 上的排名，我希望 sheet2 表自动更新。我编写了一个排序函数，可以适当地使用我的 sheet2 数据，但我正在努力使其自动化，以便当 sheet1 中的任何内容发生更改时它会自动更新。到目前为止，我一直在使用 worksheet_change 并且可以在 sheet1 更改时让 sheet1 重新过滤，这不是我想要的。有什么想法吗？

这是我目前的排序功能：

Sub ReSort() 
With Worksheets("Sheet2")
    .Range("$A$2:$D$34").AutoFilter Field:=2 
    .Range("$A$2:$D$34").AutoFilter Field:=2, Criteria1:="<>" 
End With 
End Sub

Answer 1

这个：

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Range("A:A")) Is Nothing Then 
        ' Do something
    End If 
End Sub 

应该做的伎俩

Answer 2

我终于让它工作了！对于那些阅读本文并遇到类似问题的人，我将此代码保存在 sheet1 中：

Sub ReSort() 
'This function filters my table spanning A2:D34 by the second column and sorts out the blanks

With Worksheets("Sheet2")
    .Range("$A$2:$D$34").AutoFilter Field:=2
    .Range("$A$2:$D$34").AutoFilter Field:=2, Criteria1:="<>"
End With 
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 
'This function runs my ReSort function if any cell on sheet1 in E3:E34 or G3:G34 is changed
    If Not Intersect(Target, Range("$E$3:$E$34,$G$3:$G$34")) Is Nothing Then
        ReSort
End If
End Sub

感谢大家的帮助！我对此感到沮丧，正认真地拔头发。

Answer 3

听起来您走在正确的道路上，worksheet_change 是解决此问题的正确方法，因为您确实希望宏在 sheet1 更改时运行，因此您需要检测到这一点。

我怀疑您只是缺少一件事，即在 sheet2 上运行的宏，将其明确放入模块引用 sheet2 中

例如，

Worksheets("Sheet1").Range("A1")

而不仅仅是

Range("A1")

然后你可以调用函数从任何工作表运行，只需使用函数名

如果您需要更多详细信息，请发布所有您目前拥有的代码，我会很乐意对其进行修改以适应