Excel文件打开宏

Question

因此，我正在尝试创建一个宏，该宏将在打开文件时更新单元格。 我收到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 。 话虽如此，我建议下面的代码代替...

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

编辑：

使用Auto_Open ，必须手动打开Excel才能执行代码。 因此，如果通过VBA打开该事件，则不会触发。 如果您希望通过VBA以及手动触发事件，建议您使用Workbook_Open

Answer 2

尝试以下子项：

Private Sub Workbook_Open()

    Dim Try1 As String

    Try1 = ActiveSheet.Cells(3, 2).Select
    Tryl = "-"

End Sub

一些建议：

1. 用小写形式编写代码。 当您更改一行时，您的代码将自动更改为大写和小写，这样您就可以检测到是否有拼写错误。
2. 写一个函数或对象ant类型. 这将打开一个下拉列表，这样您还可以避免输入错误。