拼寫檢查這個功能，在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---

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!