按下按钮时如何在vba上显示文本？

Question

 Sum = Application.Sum(Range(Cells(12, 3), Cells(12, 82)))
 If Sum = 0 Then
    Enter = "Enter a value for  E"
    Exit Sub
 End If

所以我试图获得＆＃34;单击按钮时输入E的值以弹出。到目前为止，当陈述是真的，没有任何反应。

Answer 1

您可以在MsgBox Enter行后使用Enter = "Enter a value for E"：

Sum = Application.Sum(Range(Cells(12, 3), Cells(12, 82)))
If Sum = 0 Then
    Enter = "Enter a value for  E"
    MsgBox Enter
    Exit Sub
End If