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

问题在于函数我没有得到正确的值，如果我写＆＃34; asdfsd＆＃34;在a2中，该函数设置为False，这是正确的。但如果我写'＃34;完美＆＃34;这是正确的，它再次返回False。

请帮忙。

Answer 1

您必须将该函数设置为应用程序返回的值：

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