如何在文本框中应用拼写检查？

我们可以轻松地应用“拼写检查”功能来检查单元格中的文本字符串，但此功能不适用于文本框的拼写检查。在本文中，我将介绍如何在文本框中应用拼写检查。

使用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中的值更改文本框颜色？

如何在文本框中插入图片？

如何在文本框中设置默认值？

如何仅允许在文本框中输入数字？