Question

我在excel中有一个查询，它从另一个电子表格中提取了大量数据。在此查询旁边，我将一些数据合并到一行中以填充下拉列表。遗憾的是，在按下“全部刷新”按钮后，公式未正确更新。

我设法找到了一个解决方案，用于从查询中自动填充合并公式：

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

我努力做的是找到一种方法在触发刷新全部后调用此Sub。我该怎么做呢？谢谢你提前帮忙。

Answer 1

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

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

在RefreshAll之后触发VBA

1 个答案: