VBA与代码封装基础

 

• 把计算代码封装在一个函数里
• 其他需要调用到不同计算的过程等，只需要引用这个函数即可，还可以传递不同的参数。避免每个sub单独计算

Function 计算(type1, a, b, c)
If type1 = 1 Then
   Debug.Print a + b + c
ElseIf type1 = 2 Then
   Debug.Print a * b * c
End If
End Function


Sub 求和调用()
Call 计算(1, 10, 20, 30)
End Sub


Sub 求乘积调用()
Call 计算(2, 10, 20, 30)
End Sub