Application.Check拼写没有返回正确的布尔值

Question

我想准备一个excel文件，它会自动显示任何单词拼写错误。有些代码显示并突出显示特定单词字段，当单词拼写错误时，但是我想突出显示不同的单元格，如果任何 的单词拼写错误。

这是我做过什么： -

Function GFD() As Boolean 

Application.CheckSpelling (Range("a1").Text) 

End Function 

'======================================================= 

Function GFF() As Boolean 

Application.CheckSpelling (Range("a2").Text) 

End Function 

问题是在功能，我没有得到正确的值，如果我写在A2的功能被设置为假“asdfsd”，这是正确的。但是，如果我写“完美”这是正确的，它再次返回False。

请帮忙。

Answer 1

你要设置的功能到应用程序的返回值：

Function GFD() As Boolean 
    GFD = Application.CheckSpelling(Range("a1").Text) 
End Function