Excel 2013 64bit VBA 如何打开 sheet 关注Last empty row

Question

感谢您查看此问题。

我有一个工作簿，上面有 sheet 个用户名。当工作簿打开时，第一个 Worksheet 是一个 'Menu' sheet，它有 4 个命令按钮（每个用户一个按钮），当他们单击他们的按钮时，它将带他们去工作sheet。当他们点击他们的按钮时，我希望发生的事情是

去上班sheet
将光标设置在最后一个空行（滚动到光标所在位置）。

我已经搜索了 Internet，但还没有完全找到任何可以修改以适应我希望发生的事情的代码。

我目前'Menu'工作sheet的代码是：

Private Sub CMB_Andrew_Click()
    Sheets("Andrew").Activate
    last_row = ThisWorkbook.Worksheets("Andrew").Cells(Rows.Count,2).End(xlUp).Row

End Sub

Private Sub CMB_Chris_Click()
Sheets("Chris").Activate
last_row = ThisWorkbook.Worksheets("Chris").Cells(Rows.Count, 2).End(xlUp).Row

End Sub

Private Sub CMB_Joy_Click()
Sheets("Joy").Activate
last_row = ThisWorkbook.Worksheets("Joy").Cells(Rows.Count, 2).End(xlUp).Row

End Sub

Private Sub CMB_Michael_Click()
Sheets("Michael").Activate
last_row = ThisWorkbook.Worksheets("Michael").Cells(Rows.Count, 2).End(xlUp).Row

End Sub

我只是想让用户不必向下滚动（我需要它对最终用户来说尽可能简单 LOL）

如果您有任何帮助或建议，我将不胜感激。

干杯，害羞的蝴蝶

Answer 1

有趣的阅读：

How to avoid using Select in Excel VBA macros

还要确保

sheet 在您激活它之前是可见的
可以先 select 编辑单元格 select 它

这是你想要的吗？

Private Sub CMB_Andrew_Click()
    Sheets("Andrew").Activate
    last_row = ThisWorkbook.Worksheets("Andrew").Cells(Rows.Count,2).End(xlUp).Row
    Sheets("Andrew").Range("B" & last_row).Select
End Sub

Excel 2013 64bit VBA 如何打开 sheet 关注Last empty row

Excel 2013 64bit VBA How to open sheet focusing on Last empty row

excel

vba

worksheet