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

Question

I suspect this is a pretty easy answer but I'm new to VBA and trying to generate a msgbox when I open my file and a certain condition is met. My code, as it currently stands, is:

Sub StopLossWarning()

    If Range("C4").Value < 30 Then

        MsgBox "Maximum allowable loss is at " & Range("C4").Value

    End If

End Sub

The Msgbox appears fine when I run the macro. I just need it to run once automatically when I open the file.

Answer 1

Try this:

1. Press Alt+F11 to open VBA Editor

2. Double click on ThisWorkbook from Project Explorer

   Copy the below code and paste there.

    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 

Alternatively You can insert a new module and paste the code below there:

    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

Note: If you have multiple worksheet you may want to refer to ranges explicitly. Otherwise you may get undesired result

Reference