Question

我有一个用数据填充数据表的子程序，然后我希望它激活结果表。但是，无论我如何尝试，当Sub完成时，它总是显示数据表而不是结果表。

Private Sub btnCalc_Click()

Dim LastRow As Long, ws As Worksheet
Set ws = Sheets("DataEntry")

LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1 
ws.Range("A" & LastRow).Value = TextBox1.Text 
LastRow = ws.Range("B" & Rows.Count).End(xlUp).Row + 1
ws.Range("B" & LastRow).Value = TextBox13.Text 

Worksheets("DataEntry").Activate
    ActiveSheet.Range("O1").Value = TextBox1.Text

Worksheets("ResultSplash").Activate 'I've tried activating it
Call ResultSplash 'I've tried calling a sub that activates it


    Unload Me
End Sub

我也尝试过其他一些东西，但无法显示ResultSplash表！

提前感谢您的帮助！

Answer 1

你甚至不应该激活“DataEntry”

只需替换此代码

Worksheets("DataEntry").Activate
    ActiveSheet.Range("O1").Value = TextBox1.Text

用这个

ws.Range("O1").Value = TextBox1.Text

为什么我的Sub不会激活我想要的工作表？

1 个答案: