在单元格中指定的行上打开的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窗口

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

如果保存工作簿，宏将与其一起保存。 如果您正在使用一个版本的Excel更高然后2003，你必须保存 该文件作为.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）