简单的MsgBox语法错误

Question

URL namespace

我只是在工作中自己学习VBA课程。

我附上了语法错误的图片。

我一直在msgbox上收到错误。

我做错了什么？

TAGA

Answer 1

我做了一些更改，以检查你的程序。我注意到的第一件事是你使用了两个if语句并且只关闭了第一个语句，我的意思是每个if你需要一个end if语句。其次，我认为两个if是不必要的，因为你可以使用elseif语句

Private Sub test()
Dim firstnum, secondnum As Single
 firstnum = Cells(1, 1).Value
 secondnum = Cells(1, 2).Value
If firstnum > secondnum Then
 MsgBox " The first number is greater than the second number"
ElseIf firstnum < secondnum Then
 MsgBox " The first number is less than the second number"
Else
 MsgBox " They are euqal "
End If
End Sub

最后作为建议尝试始终使用缩进。