Function chehao(p As String) As String
Application.Volatile
On Error Resume Next
Select Case p
Case "LSFD03205LC002046": chehao = "S0R-001"
Case "LSFD03207LC002047": chehao = "S0R-002"
Case "LSFD03209LC002048": chehao = "S0R-003"
Case "LSFD03200LC002049": chehao = "S0R-004"
Case "LSFD03207LC002050": chehao = "S0R-005"
Case "LSFD03209LC002051": chehao = "S0R-006"
Case "LSFD03203LC002059": chehao = "S0R-014"
Case "LSFD0320XLC002060": chehao = "S0R-015"
Case "LSFD03201LC002061": chehao = "S0R-016"
Case "LSFD03202GC001359": chehao = "SOL-001"
Case "LSFD03202GC001930": chehao = "SOL-002"
Case "LSFD03204GC001931": chehao = "SOL-003"
Case "LSFD03206GC001932": chehao = "SOL-004"
Case "LSFD03208GC001933": chehao = "SOL-005"
Case "LSFD0320XGC001934": chehao = "SOL-006"
Case "LSFD03201GC001935": chehao = "SOL-007"
Case "LSFD03203GC001936": chehao = "SOL-008"
Case "LSFD0320XGC001965": chehao = "SOL-037"
Case "LSFD03201GC001966": chehao = "SOL-038"
Case "LSFD03203GC001967": chehao = "SOL-039"
Case Else: chehao = p
End Select
End Function
如果是固化的索引值,建议用这个方法。差不多可以代替vlookup
参考自:https://www.cnblogs.com/aademeng/articles/12950323.html
Function Bonus(performance, salary)
Select Case performance
Case 1
Bonus = salary * 0.1
Case 2, 3
Bonus = salary * 0.09
Case 4 To 6
Bonus = salary * 0.07
Case Is > 8
Bonus = 100
Case Else
Bonus = 0
End Select
End Function
https://blog.csdn.net/pigerr/article/details/128897661