6、自写＜VBA函数＞二维表函数及判断函数

一、二维表函数（从二维表中取值，根据列名称及行名称，索定目标值）

Public Function erweibiao(c, cc, d, dd, cd As Range)
Dim a, b
a = Application.Match(c, cc, 0)   '线路代码在第几位
b = Application.Match(d, dd, 0)   '车型在第几位
erweibiao = Application.Index(cd, a, b)    '按列与行，二维数锁定目标值
End Function

二、判断函数

'判断运价是包趟，还是按车公里；小于10为车公里，大于10为包趟
'a 车公里  'b 里程

Public Function panduan10(a, b As Range)

If a > 10 Then
    panduan10 = a
    Else: panduan10 = a * b
End If

End Function