拼写检查这个功能，在Excel中会自动进行，如果你设置了的话。
大多情况下，并不太注意，Excel对字符进行检查的依据是词典，具体词典在哪里？可以到选项-校对里找到，运行的时候系统自已对应设置的词典进行检查，如果找不到，拼写检查就不能正常进行。
当然了，词典也可以是自己定义的字符串，也就是说，你可以定义一些喜欢的字符作为字典单词来进行检查。
重点说一下，如何用vba代码进行字符串检查，执行字符串检查的好处，就是可以使我们编辑的内容避免出错。
下面看一下拼写检查的语法，如下图所示：
CheckSpelling方法
方法有三个参数，第一个是要进行拼写检查的单词，第二个就是自定义词典名，第三个定义大写字母是否检查，True为检查，False为忽略。
下图为一个示例，检查第二列是否有拼写错误，然后把检查结果写到第三列和第四列。
看图对照理解一下：
代码：
Private Sub CommandButton1_Click()
'拼写检查
Dim r As Range
Set r = ActiveSheet.Columns(2)
Dim c As Long, i As Long
c = Application.WorksheetFunction.CountA(r)
For i = 2 To c 1
If VBA.Len(r.Cells(i, 1)) = 0 Then GoTo Jop
If Application.CheckSpelling(VBA.CStr(r.Cells(i, 1).Value), True, True) = False Then
r.Cells(i, 1).Offset(0, 1).Value = "Sorry"
r.Cells(i, 1).Offset(0, 2).Value = "错误"
Else
r.Cells(i, 1).Offset(0, 1).Value = "Yes"
r.Cells(i, 1).Offset(0, 2).Value = "正确"
End If
Jop:
Next i
MsgBox "检查拼写完成", vbInformation, "提示"
End Sub
本节介绍的CheckSpelling方法是基于Application对象之下的方法，Range对象、Worksheet对象下面也有同样的CheckSpelling方法,应用方法和属性基本相同，有兴趣可以对照学习一下。
欢迎关注、收藏
---END---
,
