检查URL时拼写检查类型不匹配错误

问题描述

此代码运行良好，直到我在带有URL的工作表上使用它为止。仍然会对第一个URL之前的文本进行拼写检查，然后显示类型不匹配，从而阻止了进一步检查。

Dim rng As Range

For Each rng In ActiveSheet.UsedRange

    If Not Application.CheckSpelling(rng.Text,IgnoreUppercase:="False") Then

        rng.Interior.ColorIndex = 6
        
    End If
    
Next rng
    

结束子

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）