【原创】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 Sub


Function func1(a, b)
func1 = a + b

If a > b Then
   Debug.Print "a=" & a; " > " & "b=" & b
Else
   Debug.Print "a=" & a; " <= " & "b=" & b
End If

Select Case a
Case ">5"
  Debug.Print "a>5"
Case Else
  Debug.Print "a<=5"
End Select

End Function

2 单独的end 和 exit sub 的区别

2.1 end 也可以单独使用

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

Dim x
Dim y


Sub test_sub21()

x = 10
y = 5
If x > y Then
   Debug.Print "x>y"
   End
End If

Debug.Print x
Debug.Print y

End Sub


Sub test_sub22()

x = 100
y = 55
If x > y Then
   Debug.Print "x>y"
   Exit Sub
End If

Debug.Print x
Debug.Print y

End Sub

Sub test_sub31()

test_sub21
Debug.Print x
Debug.Print y

End Sub

Sub test_sub32()

test_sub22
Debug.Print x
Debug.Print y

End 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