JoPaJopa_ 2022-06-16 05:48 采纳率: 50%
浏览 121
已结题

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

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

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列里面。

  • 写回答

1条回答 默认 最新

  • Hello World, 2022-06-16 09:00
    关注
    
    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
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 6月24日
  • 已采纳回答 6月16日
  • 赞助了问题酬金1元 6月16日
  • 创建了问题 6月16日

悬赏问题

  • ¥50 swiftui @query 报错
  • ¥50 怎么解决刷卡或扫码后,点击软件输入框,win10屏幕键盘不会自动弹出的问题
  • ¥15 如何使用arcgispro的训练深度模型,发现water和nowater精度为0?(相关搜索:深度学习)
  • ¥20 matlab作业不太懂呀有问题能给个代码吗
  • ¥15 自制电路图为何无法驱动ESP01S?
  • ¥15 前端加access数据库
  • ¥15 ARCGIS 多值提取到点 ERROR 999999
  • ¥15 mysql异常断电, [MY-011971] [InnoDB]
  • ¥15 uni.onBluetoothDeviceFound熄屏不运行
  • ¥15 求PHDA糖尿病并发症数据集,有偿