主讲人：张志MVP
2003-2013连续10年荣获微软最有价值专家(MVP)
主讲人：张志MVP
主讲人介绍：2003-2013连续10年荣获微软最有价值专家(MVP)
▲ PriceSort自定义函数
Public Function PriceSort(Price As Currency) As String
'说明：本示例的价格是在0-5万之间，不在此区间的数据没有作处理
'大家在实践运用中要注意
On Error Resume Next
Select Case Price
Case 0 To 2999
PriceSort = "3000元以下"
Case 3000 To 5000
PriceSort = "3000-5000元"
Case 5001 To 8000
PriceSort = "5001-8000元"
Case 8001 To 10000
PriceSort = "8001-10000元"
Case 10001 To 50000
PriceSort = "10000元以上"
End Select
End Function
