Question

这是Excel 2013 Power Programming中的代码，由于某些原因，我无法让它工作。

此脚本开箱即用，但不起作用：

Sub SayHello()
  Msg "Is your name " & Application.UserName & "?"
  Ans = MsgBox(Meg, vbYesNo)
  If Ans = vsNO Then
    MsgBox "Oh, nevermind then.  Bother"
  Else
    MsgBox "I must be clairvoyant!"
  End If 
End Sub

我收到编译错误： Sub or Function not defined 在子

的起始行

这是我第一次体验VBA，所以如果我做了一些非常愚蠢的事情，请保持温和。

Answer 1

错误拼写错误=

Sub SayHello()
    Msg = "Is your name " & Application.UserName & "?"
    Ans = MsgBox(Msg, vbYesNo)
    If Ans = vbNo Then
        MsgBox "Oh, nevermind then."
    Else
        MsgBox "I must be clairvoyant!"
    End If
End Sub

在Excel 2010中测试并使用

VBA问题，简单化

1 个答案: