基于单元格值的动态占位符

Question

我对 VBA/宏很陌生，所以假设这是一个我缺少的简单修复。

我正在寻求自动化一个流程，其中涉及打开工作簿，根据值“x”过滤工作表，复制工作表，粘贴到原始工作簿中，然后使用 4-5 个不同的工作表重复此过程。我目前编写了 4-5 个不同的子程序，所有这些都有效，但必须手动将“PB NY - Private”更改为“y”，然后“z”等。

我是否正确地假设应该有某种方式让这个过程只是一个子过程，并且可能能够对我原始工作簿中的单元格进行变量引用？因此，如果该单元格显示“PB NY - Private”，则子系统将基于该运行，如果“y”基于该运行，等等？

这是一个子组件的一部分，其中“PB NY - Private”是我想要基于单元格值（X、Y 或 Z）的部分

Answer 1

您可以将硬编码的

Criteria1

更改为单元格的引用。由于代码会打开参考中的其他工作簿，因此完全限定工作簿和工作表名称。

ActiveSheet.Range("$A$1:$AB$1236").AutoFilter Field:=1, Criteria1:= _
Workbooks("Workbook_name").WorkSheets("Sheet_name").Range("address")

此过程也可以应用于工作表名称。

如果您在工作表中添加命令按钮，则可以使用它调用子按钮。