我需要创建一个包含两个部分的报告（用于打印）。顶部包含记分卡，底部包含记分卡中任何“红色”项目的钻取信息。
记分卡目前是具有条件格式的PowerPivot表。如果记分卡有3个“红色”单元格，那么我可以双击每个红色单元格以钻取到详细信息。但是，我想在记分卡下面的同一工作表中显示这3个钻取表，这样我就可以同时打印记分卡和钻取详细信息。
我正在寻找一种自动化的解决方案。每次打印报告时，我都可以进行大量复制和粘贴，但我不愿意。我正在寻找尽可能自动化的解决方案 - 因此报告的底部部分将始终包含记分卡中任何红色的详细信息。我愿意使用VBA。
谢谢！
答案 0 :(得分：0)
我建议使用VBA。但是，首先在一张工作表中存储工作表列表，以供您的VBA代码使用。在工作簿代码部分中创建以下子例程，以便在选择新工作表时触发：
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
现在将代码添加到此子例程，以通过检查列表来验证所选工作表是否已存在于工作簿中。
如果它尚未在列表中，请检查工作表上是否有表格。
如果工作表上有表格，则将其内容复制/移动到报表工作表中的特定范围，并再次删除钻取工作表（并将其从列表中删除）。让代码再次选择您的报告表！ 如果工作表上没有表格，请将其添加到工作表列表