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

时间:2016-02-23 17:23:46

标签: excel vba excel-vba

我怀疑这是一个非常简单的答案,但我是VBA的新手并且在我打开文件并且满足某个条件时尝试生成msgbox。我目前的代码是:

N

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

1 个答案:

答案 0 :(得分:1)

试试这个:

  1. 按Alt + F11打开VBA编辑器
  2. 双击Project Explorer中的ThisWorkbook

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

        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
    
  3. 或者你可以插入一个新模块并将代码粘贴在那里:

    React.Children.map(this.props.children), (child) => {
        if (predicate(child)) {
            // do stuff
        }
        else {
            // do other stuff
        }
    }
    

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

    https://threejs.org/docs/?q=loading#api/loaders/managers/LoadingManager