自动MsgBox打开Excel文件并满足条件时

我怀疑这是一个相当简单的答案，但我是新来的VBA，并尝试生成一个msgbox当我打开我的文件，并满足一定的条件。 我现在的代码是：

Sub StopLossWarning() If Range("C4").Value < 30 Then MsgBox "Maximum allowable loss is at " & Range("C4").Value End If End Sub 

运行macros时Msgbox显示正常。 我只需要它打开文件时自动运行一次。

Answer 1

尝试这个：

1. 按Alt + F11打开VBA编辑器

2. 从Project Explorer中双击ThisWorkbook

   复制下面的代码并粘贴在那里。

    Private Sub Workbook_Open() Dim WK As Worksheet Set WK = Sheet1 'Change it to your sheet number. If WK.Range("C4").Value < 30 Then MsgBox "Maximum allowable loss is at " & WK.Range("C4").Value End If End Sub 

另外您可以插入一个新的模块，并粘贴下面的代码：

  Sub Auto_Open() Dim WK As Worksheet Set WK = Sheet1 'Change it to your sheet number. If WK.Range("C4").Value < 30 Then MsgBox "Maximum allowable loss is at " & WK.Range("C4").Value End If End Sub 

注意：如果您有多个工作表，您可能需要明确引用范围。 否则，你可能会得到不希望的结果

参考