# 问题遇到的现象和发生背景
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列里面。