VBA 函数

功能：根据分类规则 对分析表内客户进行分类

 

 

 

函数：

Function 客户类型(s)

Dim score

score = s

'/根据分类表进行分类，并返回函数
If score < 30 Then
    客户类型 = "甲型"
ElseIf score < 60 Then
    客户类型 = "乙型"
ElseIf score < 90 Then
    客户类型 = "丙型"
Else
    客户类型 = "丁型"

End If

 

End Function

主程序：

Option Explicit


Sub 分类型()

Dim score2, i, level

For i = 3 To 8
    
    score2 = Cells(i, 3)
    level = 客户类型(score2)
    Cells(i, 4) = level
    
Next i

End Sub

假设35所谓单元格为C5，可以直接   =客户类型（C5）