在单元格中指定的行上打开excel宏

Question

我在单元格“B1”中指定了我需要打开的工作表（= MATCH（TODAY（），A：A，0））。

我想在那一行自动打开我的Excel表格。 （例如：第10行=今天）

或者我可以在VBA中使用“= today（）”函数吗？

我在VBA中是一个菜鸟，所以能帮助我吗？

Answer 1

将以下事件宏放在 工作表代码区域中：

Private Sub Worksheet_Activate()
    Cells(Range("B1").Value, "A").Select
End Sub

打开工作表后，正确的单元格将自动为Selected：

因为它是工作表代码，所以很容易安装和自动使用：

1. 右键单击Excel窗口底部附近的选项卡名称
2. 选择查看代码 - 这会打开一个VBE窗口
3. 粘贴内容并关闭VBE窗口

如果您有任何疑虑，请先在试用工作表上试用。

如果保存工作簿，宏将随之保存。 如果您在2003年之后使用的是Excel版本，则必须保存 该文件为.xlsm而不是.xlsx

删除宏：

1. 按上述方式调出VBE窗口
2. 清除代码
3. 关闭VBE窗口

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏（工作表代码）的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能使其生效！

修改＃1：

要在打开文件时获得相同的行为，请保留上一个宏并将此宏放在 工作簿代码区：

Private Sub Workbook_Open()
    Application.EnableEvents = False
        Sheets("Sheet1").Select
        Cells(Range("B1").Value, "A").Select
    Application.EnableEvents = True
End Sub

（您将使用工作表的名称替换Sheet1）