单击超链接打开新工作簿时，Excel vba 可以调用自动筛选器吗？答案

【问题标题】：Can Excel vba invoke an autofilter when a hyperlink is clicked to open new workbook?单击超链接打开新工作簿时，Excel vba 可以调用自动筛选器吗？
【发布时间】：2016-04-20 21:12:09
【问题描述】：

对编程很陌生，我想知道是否可以在通过单独工作簿上的超链接打开的工作簿上创建自动过滤器。我会解释一下：我有代码可以在一个电子表格workbook1 上编译信息摘要。该信息位于workbook2。用户在workbook1 工作并输入他们正在搜索的记录号。当宏运行时，每个记录号的所有相关信息都会从workbook2 导入到workbook1。我目前创建了一个超链接以打开workbook2（以防用户需要更多详细信息），并且我希望在单击超链接时根据记录编号打开workbook2 并使用自动过滤器。这可能吗？我已经阅读并看到了通过同一工作簿中的工作表之间的超链接调用自动过滤器的代码，但不确定我是否理解 vba 代码足以将其应用于单独的工作簿。提前致谢。

【问题讨论】：

标签： excel vba hyperlink autofilter

【解决方案1】：

感谢@JMcD，您的帖子帮助我解决了问题。我使用了您的代码，对其进行了修改以满足我的需要，然后插入到了 module2 中。我使用另一个模块来创建超链接。然后，我在 workbook1 的 sheet1 中放置了一个 _followhyperlink 私有子，它调用了 module2。现在，如果我单击超链接，workbook2 打开，根据 A1 中的值应用自动过滤器。一旦我弄清楚如何使它看起来像上面的帖子一样漂亮，我将在这里发布代码。再次感谢。

【讨论】：

【解决方案2】：

将工作簿 2 设置为工作簿 1 代码模块中的变量，然后调用您的方法。

dim wb as workbook
dim i as integer
set wb = workbooks.open("C:\dogstuff\sticks\thebeststicks.xlsx")
i = thisworkbook.worksheets("throwingstuff").cells(5,5).value
wb.worksheets("rank").range(cells(2,1),cells(2,10)).autofilter
wb.worksheets("rank").range(cells(2,1),cells(2,10)).autofilter field:=1, criteria1:=I

希望对您有所帮助。

【讨论】：

谢谢。您的代码在添加到模块时可以工作，但是，它并不是我想要的工作方式。我需要的是创建超链接，比如 workbook1 中的 A1，我已经有了一个模块。然后当用户单击该超链接时。第二个电子表格打开并应用自动过滤器。我将在单独的评论中发布我到目前为止所拥有的内容。我使用以下代码收到运行时错误 1004....
在 workbook1 的“Sheet1”上我有：Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim i As String With Workbooks.Open("C:\Users\oolmos\Desktop\Ultimate Data.xls") i = ThisWorkbook.Worksheets("sheet1").Cells(1, 1).Value Workbooks("UltimateData.xls").Worksheets("Cranks&BB").Range(Cells(1, 1), Cells(1, 33)).AutoFilter Workbooks("UlmtiateData.xls").Worksheets("Cranks&BB").Range(Cells(1, 1), Cells(1, 33)).AutoFilter field:=1, Criteria1:=i End With End Sub
我正准备在这里回复，但我刚刚在下面看到你的另一个答案。我很高兴能帮上忙！由于我的回答很有帮助，如果您能将其标记为已接受的答案，我将不胜感激！