为什么这个IF-THEN线路没有END IF？

Question

我对If命令有疑问。

For x = 2 To 8
If ComboBox1.ListCount < 7 Then ComboBox1.AddItem Cells(x, 13).Value
Next x'

为什么这没有错误？没有End if语句。 我不知道它是否重要，但此代码位于UserForm_Activate（）过程中。

感谢您的帮助。

Answer 1

如果End If中只包含一个语句，并且它与If语句位于同一行，则不需要If。

Answer 2

当End If关键字后面的语句位于同一行代码上时，

VBA（以及VB6和VB.Net）不需要Then。