【原创】VBA学习笔记（305）vba中end的用法

1 end的基本用法

1.1 end 用在其他语法里的基本用法

• sub … End Sub
• function …End Function
• if …End If
• select case …End Select

1.2 end 用在各种语法结构的末尾，一般代表结束的意思

• End结束一个过程或块
• 比如end sub 只能用在最后
• 并且end sub 后面不能有 有效的语句代码 只有 end 可能出现在 代码块的中间

1.3 例子

Sub test_sub1()Debug.Print func1(1, 9)End SubFunction func1(a, b)
func1 = a + bIf a > b ThenDebug.Print "a=" & a; " > " & "b=" & b
ElseDebug.Print "a=" & a; " <= " & "b=" & b
End IfSelect Case a
Case ">5"Debug.Print "a>5"
Case ElseDebug.Print "a<=5"
End SelectEnd Function

2 单独的end 和 exit sub 的区别

2.1 end 也可以单独使用

• 表示结束当前block，并且清除变量的值
• 相比之下，exit sub 并不马上清除变量的值，而是在VBE关闭后才清除。

Dim x
Dim ySub test_sub21()x = 10
y = 5
If x > y ThenDebug.Print "x>y"End
End IfDebug.Print x
Debug.Print yEnd SubSub test_sub22()x = 100
y = 55
If x > y ThenDebug.Print "x>y"Exit Sub
End IfDebug.Print x
Debug.Print yEnd SubSub test_sub31()test_sub21
Debug.Print x
Debug.Print yEnd SubSub test_sub32()test_sub22
Debug.Print x
Debug.Print yEnd Sub

运行 test_sub31()

运行 test_sub31()

3 end type ？这是啥

"在End Sub、End Function或End属性后面只能出现注释"提示。

Public Type RECT
Left As Long
Top As Long
Roght As Long
Bottom As Long
End Type