如何在ActiveWorkbook中将ActiveSheet设置为屏幕顶部的窗口？

Question

我尝试运行一个UserForm，从Workbook("A")收集数据并将结果输出到Workbook("A")或Workbook("B")（另一个）。如果结果发送到工作簿（“B”），我会使用Workbook("B").Activate，Sheets(1).Activate。但卸载UserForm并完成宏后，我仍然在Workbook("A")，即使工作簿的标题是阴影（这意味着工作簿（“A”）不是AciveWorkbook）。

如何将真实的ActiveWorkbook Workbook("B")带到计算机屏幕的顶部？

Answer 1

这应该适合你。

Dim wb1 As Workbook, wb2 As Workbook
Set wb1 = Workbooks("A")
Set wb2 = Workbooks("B")
wb2.Sheets(1).Activate