如何在文本框中應用拼寫檢查？

我們可以輕鬆地使用拼寫功能對單元格中的文本字符串進行拼寫檢查，但是此功能不適用於文本框以進行拼寫檢查。 在本文中，我將討論如何在文本框中應用拼寫檢查。

在帶有VBA代碼的文本框中應用拼寫檢查

在帶有VBA代碼的文本框中應用拼寫檢查

要拼寫檢查文本框中的文本字符串，下面的VBA代碼可能對您有所幫助：

1。 首先，請點擊 開發者 > 插入 > 文本框（ActiveX控件），然後拖動以繪製文本框，請參見屏幕截圖：

2。 然後，請退出 設計模式 以根據需要在文本框中輸入文本字符串，輸入文本後，繼續啟用 設計模式，然後右鍵單擊文本框以選擇 查看代碼 從上下文菜單中，查看屏幕截圖：

3。 在開 Microsoft Visual Basic for Applications 窗口，請將原始代碼替換為以下VBA代碼。

VBA代碼：在文本框中應用拼寫檢查：

Sub SpellChkRvw_Click()
    Dim xObject As Object
    Dim xCell As Range
    On Error Resume Next
    Set xCell = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)
    If ActiveSheet.OLEObjects.Count > 0 Then
        For Each xObject In ActiveSheet.OLEObjects
            xCell = xObject.Object.Text
            xCell.CheckSpelling , , , 1033
            xObject.Object.Text = xCell
        Next
    End If
End Sub

4。 然後按 F5 運行此代碼的關鍵 拼字 對話框立即啟用，然後，您可以使用 拼字 如下圖所示，將文本拼寫檢查到文本框中的功能：

相關文章：

如何根據Excel中的值更改文本框顏色？

如何將圖片插入文本框？

如何在文本框中設置默認值？

如何在文本框中僅輸入數字？