Excel VBA 运行错误13 类型不匹配（调试错误出现在自定义function中）

Question

 # 问题遇到的现象和发生背景

Excel VBA 运行错误‘13’ 类型不匹配
感谢解答！

问题：自定义function第二行报错

发生背景：AC列的数据类型是文字，数据的样子是：V02等定长的电压简写。我想用自定义的coilv function 把AC列的信息对应到具体的电压信息上。对应出来的详细电压信息应被放进J列。但在运行过程中，自定义function第二行（If v = "V88" or "V89" Then）出现类型不匹配错误。我不知道应该怎么改，求解！超级感谢

 # 问题相关代码，请勿粘贴截图
Function coilv(v) As String
‘下一行是调试出错误的位置
If v = "V88" or "V89" Then
coilv = "24VAC 60hz"
ElseIf v = "V84" or "V80" Then
coilv = "120 VAC 60 hz"
ElseIf v = "V06" Then
coilv = "480 VAC 60 hz"
ElseIf v = "V07" Then
coilv = "600 VAC 60 hz"
ElseIf v = "V08" Then
coilv = "208 VAC 60 hz"
End If
End Function
Sub getcoilvoltage()
For i = 2 To Range("a65536").End(xlUp).Row
‘AC列数据类型是文字
Set s = Range("AC" & i).Value
‘想把自定义的function用在AC列上，对应出的结果放在J列。
Range("J" & i).Value = coilv(s)
Next
End Sub

 # 运行结果及报错内容
报错内容：运行时错误‘13’ 类型不匹配

 # 我想要达到的结果

自定义的function用到AC列，将返回的结果放在J列里面。

Answer 1

Function coilv(v) As String
    '下一行是调试出错误的位置
    If v = "V88" Or v = "V89" Then
        coilv = "24VAC 60hz"
    ElseIf v = "V84" Or v = "V80" Then
        coilv = "120 VAC 60 hz"
    ElseIf v = "V06" Then
        coilv = "480 VAC 60 hz"
    ElseIf v = "V07" Then
        coilv = "600 VAC 60 hz"
    ElseIf v = "V08" Then
        coilv = "208 VAC 60 hz"
    End If
End Function
Sub getcoilvoltage()
    For i = 2 To Range("a65536").End(xlUp).Row
        'AC列数据类型是文字
        s = Range("AC" & i).Value
        '想把自定义的function用在AC列上，对应出的结果放在J列。
        Range("J" & i).Value = coilv(s)
    Next
End Sub