Excel 2013 64bit VBA如何打开工作表专注于最后空行
问题描述:
感谢您检查此问题。Excel 2013 64bit VBA如何打开工作表专注于最后空行
我有一个工作簿,它有工作表上的用户名。 工作簿打开时的第一个工作表是一个'菜单'表单,它作为4个命令按钮(每个用户1个按钮),当他们单击它们的按钮时,它将把它们带到他们的工作表中。 我想,当他们点击他们的按钮出现的情况是
- 去他们的工作
- 设置光标在最后的空行(滚动光标的位置)。
我搜索了互联网,还没有找到任何代码,我可以修改,以适应我想要发生的事情。
当前的代码我有一个“菜单”工作表:
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
答
有趣的阅读:
还要确保
- 这片可见您激活它之前
- 细胞可以选择之前,你选择它
这是你想要的?
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
非常感谢您的快速回复。该代码完美地工作!这很简单,当你知道如何:)欢呼 – TheShyButterfly