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

我们可以轻松地使用拼写功能对单元格中的文本字符串进行拼写检查，但是此功能不适用于文本框以进行拼写检查。 在本文中，我将讨论如何在文本框中应用拼写检查。

在带有VBA代码的文本框中应用拼写检查

在带有VBA代码的文本框中应用拼写检查

要拼写检查文本框中的文本字符串，下面的VBA代码可能对您有所帮助：

1。 首先，请通过点击插入文本框 开发商 > 插页 > 文本框（ActiveX控件），然后拖动以绘制文本框，请参见屏幕截图：

2。 然后，请退出 设计模式 以根据需要在文本框中输入文本字符串，输入文本后，继续启用 设计模式，然后右键单击文本框以选择 查看代码 从上下文菜单中，查看屏幕截图：

3。 在开 Microsoft Visual Basic应用程序 窗口，请将原始代码替换为以下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中的值更改文本框颜色？

如何将图片插入文本框？

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

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