当单击超链接以打开新工作簿时，Excel vba可以调用自动过滤器吗？ [英] Can Excel vba invoke an autofilter when a hyperlink is clicked to open new workbook?

问题描述

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

Fairly new to programming and I want to know if it's possible to create an autofilter on a workbook that is opened by a hyperlink on a separate workbook. I'll explain: I have code to compile a summary of information on one spreadsheet, workbook1. The information resides in workbook2. The user is working in workbook1 and inputs the record numbers they are searching. When the macro runs all the associated information from each record number gets imported from workbook2 into workbook1. I currently create a hyperlink to open workbook2 (in case user needs further details) and I would like to have workbook2 open up with an autofilter based on the record numbers when the hyperlink is clicked. Is this possible? I've read and seen code where the autofilter is invoked through a hyperlink from sheet to sheet in the same workbook, but not sure I comprehend vba code enough to apply it on separate workbooks. Thanks in advance.

推荐答案

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

Set workbook 2 as a variable in your workbook 1 code module, then call your methods.

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

希望有所帮助。

这篇关于当单击超链接以打开新工作簿时，Excel vba可以调用自动过滤器吗？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！