Excel文件打开macros

所以我试图创build一个macros，将更新一个单元格打开文件时。 我得到了424错误，所以我试图做更好的工作定义我的代码/对象，但它仍然没有成功。 我想我错过了/忽略了一些非常简单的东西，但我无法弄清楚，这是我的第一个项目，所以我试图学习，并获得更好的理解，然后只是使用一段代码将工作。

Private Sub Auto_Open() Dim Try1 As String Try1 = ActivateSheet.Cells(3, 2).Select Tryl = "-" ' My first attempt is shown below ' 'Sheets("Current Calc").Activate 'ActivateSheet.Cells(3, 2).Value = "-" End Sub 

Answer 1

你的评论代码中有一个错字

你有什么…

 Sheets("Current Calc").Activate ActivateSheet.Cells(3, 2).Value = "-" 

它应该是…

 Sheets("Current Calc").Activate ActiveSheet.Cells(3, 2).Value = "-" 

另外，我应该提到你应该避免使用.Activate和.Select除非必要。 据说，我会build议下面的代码，而不是…

 Sheets("Current Calc").Cells(3, 2).Value = "-" 

编辑：

使用Auto_Open ，必须手动打开Excel才能执行代码; 因此如果通过VBA打开这个事件将不会触发。 如果你想通过VBA触发一个事件并手动触发，我build议使用Workbook_Open

Answer 2

尝试与下面的子：

 Private Sub Workbook_Open() Dim Try1 As String Try1 = ActiveSheet.Cells(3, 2).Select Tryl = "-" End Sub 

一些build议：

1. 用小写写你的代码。 当你改变一行代码时，你的代码会自动变成大写和小写，这样你会发现是否有一些错字错误。
2. 编写一个函数或对象的anttypes. 这将打开一个下拉列表，这样你也将避免错字错误。