在单元格中指定的行上打开的excel宏
问题描述:
我已经在单元格“B1”中指定需要打开我的表单(= MATCH(TODAY(),A:A,0))的单元格。在单元格中指定的行上打开的excel宏
我想在该行自动打开我的Excel表。 (例如:第10行=今天)
或者我可以在VBA中使用函数“= today()”吗?
我是VBA中的一个菜鸟,所以你可以帮我吗?
答
放入工作表的代码区下面的事件宏:
Private Sub Worksheet_Activate()
Cells(Range("B1").Value, "A").Select
End Sub
当工作表被打开,适当的细胞会自动Selected
:
因为它是工作表代码,它很容易安装和自动使用:
- 右击近Excel窗口
- 选择查看代码底部的标签名称 - 这带来了一个VBE窗口
- 粘贴的东西并关闭VBE窗口
如果您有任何疑虑,请先在试用工作表上尝试。
如果保存工作簿,宏将与其一起保存。 如果您正在使用一个版本的Excel更高然后2003,你必须保存 该文件作为.XLSM而非的.xlsx
要删除宏:
- 弹出窗口VBE如上
- 清晰的代码进行
- 关闭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)
这可以在完整的文件也打开了?而不是仅在更换纸张时才使用? –
@DennisLaan看我的**编辑#1 ** –