VBA学习10_子过程模块化及函数Function()

子过程和模块化

为什么使用过程
(1) 程序结构清晰
(2) 功能灵活易改
(3) 避免重复代码

代码调用 ⇒ 使用Call关键字 常省略
Sub 的本质 宏 对于代码来说就是一个过程

Sub 合并及汇总()
	Call 合并()				'此处的Call关键字可以省略
	Call 汇总()				'此处的Call关键字可以省略
End Sub
---------------------------------------------
Sub 合并()
End Sub
---------------------------------------------
Sub 汇总()
End Sub

函数 Function()

函数的本质也是过程的一种,可以有返回值 , 子过程Sub没有返回值
但是两者都可以使用参数来接收

Option Explicit
Sub 暴力倾向分析()

    i = 3
    
    Do While Cells(1, 2)
        score = Cells(i, 3)
        level = 客户分类(score)
        Cells(i, 4) = level
    Loop
End Sub

Function 客户分类(s)  's为参数

    Dim score, level
    
    score = s
    
    If score < 30 Then
    
        level = "温柔型"
    ElseIf score < 60 Then
        level = "冲动型"
    ElseIf score < 90 Then
        level = "暴躁型"
    Else
        level = "狂暴型"
    End If
    
    客户分类 = level '将level的值返回给调用者

   
End Function