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

Question

我尝试运行从UserForm收集数据并将结果输出到Workbook("A")或Workbook("A")（另一个）的Workbook("B")。

如果将结果发送到Workbook（“ B”），我将使用Workbook("B").Activate，Sheets(1).Activate。

但是在卸载用户窗体并完成宏之后，即使工作簿的标题已加阴影（这意味着Workbook（“ A”）不是AciveWorkbook），我仍然在Workbook("A")中。

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

Answer 1

这应该为您工作。

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