如果您想知道如何使Excel能够对数据进行拼写检查(键入错误),在本文中,您将学习如何使用VBA在Excel中自动进行拼写检查。

让我们以一个例子来理解:

我们在A列中包含文本。请参见下面的快照

img1

在上面的快照中;在单元格A5和A11中,您会看到拼写错误。

目的是用红色突出显示错误。

单击“开发人员”选项卡。从“代码”组中,选择“ Visual Basic”

img2

或按ALT + F11快捷键以启动VB编辑器屏幕。

在当前工作表中输入以下代码。

私人子Worksheet_Change(按目标的ByVal目标)

昏暗的Myrange作为范围

如果不相交(目标,范围(“ A1”)。CurrentRegion)没有,则

对于Range(“ A1”)中的每个Myrange。CurrentRegion

如果Application.CheckSpelling(Myrange)= False,则

Myrange.Font.Color = vbRed

其他:Myrange.Font.Color = vbBlack

如果

结束

下一个

如果

结束

结束子

img3

编写完上述代码后,单元格A5和A11将变成红色。

img4

该代码适用于当前区域。如果文本在当前区域中,则上面的VBA代码将帮助用户识别错误。

如果用户想突出显示特定单元格上的错误,那么我们将使用以下代码:

私人子Worksheet_Change(按目标的ByVal目标)

昏暗的Myrange作为范围

如果不相交(目标,范围(“ A1,B3,C5”)),则

对于联合中的每个Myrange([A1],[B3],[C5])

如果Application.CheckSpelling(Myrange)= False,则

Myrange.Font.Color = vbRed

其他:Myrange.Font.Color = vbBlack

如果

结束

下一个

如果

结束

结束子

img5

这里,在上面显示的快照中,代码突出显示了单元格B3和C5中的错误。不在单元格C1和C7中。这是因为我们希望代码检查单元格A1,B3和C5。

这样,您可以使用VBA代码突出显示错误。