在RefreshAll之后触发VBA

我在Excel中有一个查询，从另一个电子表格拉一堆数据。 在这个查询旁边，我将一些数据整合到一行中以填充下拉列表。 不幸的是，按下“全部刷新”button后，公式不能正确更新。

我已经设法find一个解决scheme，从查询自动填充整合的公式：

Option Explicit Sub Autofill_ListSource() Dim ws As Worksheet Dim Lastrow As Long Dim rng As Range Set ws = ThisWorkbook.Sheets("PartsLibrary") With ActiveSheet Lastrow = ActiveSheet.UsedRange.Rows.Count Range("AM2:AO2").Select Selection.Autofill Destination:=Range("AM2:AO" & Lastrow), Type:=xlFillDefault End With End Sub 

我一直在努力做的是find一种方法来调用刷新全部触发后的这个Sub。 我怎么去做这个？ 感谢您提前帮助。

Answer 1

您可以在SheetTableUpdate事件上设置触发器。 ThisWorkbook只有三行：

 Private Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject) Autofill_ListSource End Sub