Question

感谢您查看此问题。

我有一个工作簿，其中包含用户名称的工作表。工作簿打开时的第一个工作表是一个菜单＆＃39;作为4个命令按钮（每个用户1个按钮）的工作表，当他们点击他们的按钮时，它将把他们带到他们的工作表。当他们点击按钮时我想要发生的是

转到他们的工作表
将光标设置在最后一个空行（滚动到光标位置）。

我在互联网上搜索过，并且找不到任何我可以修改的代码以适应我想要发生的事情。

我目前使用的菜单＆＃39;菜单＆＃39;工作表是：

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）

我很感激您的任何帮助或建议。

干杯， ShyButterfly

Answer 1

有趣阅读：

How to avoid using Select in Excel VBA macros

同时确保

在激活工作表之前可以看到工作表
在选择单元格之前可以选择单元格

这是你想要的吗？

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 64位VBA如何打开最后一行空白页面

1 个答案: