数据刷新后执行宏

Question

下面的宏使用超链接函数更新 A 列。

在我的查询/数据源上单击数据刷新后如何运行它？

我尝试在我的工作表上写一个更改条件。

Sub InsertHyperlinkFormulaInCell()

currentRow = 2   
While Cells(currentRow, 2) <> "" 'check whether Column B is empty, stop if it is
ActiveWorkbook.Worksheets("Query").Cells(currentRow, 1) = "=HYPERLINK(CONCAT(X" & currentRow & ",B" & 
currentRow & "),W" & currentRow & ")"
currentRow = currentRow + 1
Wend

End Sub

Answer 1

不要手动刷新您的查询，而是从宏中执行，然后继续您的代码。

Sub InsertHyperlinkFormulaInCell()

Query.QueryTable.Refresh

'rest of your code here

End Sub